Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

25695 / 76736

←次へ　｜　前へ→


	【56379】Re:どなたか教えてください

こう - 08/6/15(日) 19:13 -


	引用なし

	パスワード

▼かみちゃんさん：
>こんにちは。かみちゃん　です。
>
>>>実行前に、「い」の行が３行あるのに、実行後は２行にするのですか？
>>
>>>もしかして、上の行と、値が違うときは、１行挿入するということですか？
>>
>>上の行と、値が違うときは、１行挿入したいです。
>
>では、実行後の期待している結果にそのように書かないと、わかりませんよ。
>
>以下は、ヒントのコードです。
>行の挿入は、特定の行を挿入する操作を「マクロの記録」で記録するとある程度の
>ことは、わかります。
>
>Sub Sample()
>　Dim rngLastCell As Range
>　Dim lngRow As Long
>　
>　Set rngLastCell = Range("A" & Rows.Count).End(xlUp)
>　
>　For lngRow = rngLastCell.Row To 2 Step -1
>　　If Cells(lngRow, "A").Value <> Cells(lngRow - 1, "A").Value Then
>　　　'行を挿入する
>　　End If
>　Next
>End Sub

ありがとうございます。実行してみます。

2 hits

▼

【56368】どなたか教えてください こう 08/6/15(日) 18:26