Excel VBA質問箱 IV

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

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


25693 / 76732 ←次へ | 前へ→

【56377】Re:どなたか教えてください
発言  かみちゃん  - 08/6/15(日) 19:11 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>>実行前に、「い」の行が3行あるのに、実行後は2行にするのですか?
>
>>もしかして、上の行と、値が違うときは、1行挿入するということですか?
>
>上の行と、値が違うときは、1行挿入したいです。

では、実行後の期待している結果にそのように書かないと、わかりませんよ。

以下は、ヒントのコードです。
行の挿入は、特定の行を挿入する操作を「マクロの記録」で記録するとある程度の
ことは、わかります。

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

1 hits

【56368】どなたか教えてください こう 08/6/15(日) 18:26 質問
【56369】Re:どなたか教えてください かみちゃん 08/6/15(日) 18:32 発言
【56370】Re:どなたか教えてください こう 08/6/15(日) 18:40 発言
【56371】Re:どなたか教えてください かみちゃん 08/6/15(日) 18:50 発言
【56372】Re:どなたか教えてください こう 08/6/15(日) 18:57 質問
【56373】Re:どなたか教えてください kanabun 08/6/15(日) 19:02 発言
【56374】Re:どなたか教えてください かみちゃん 08/6/15(日) 19:04 発言
【56376】Re:どなたか教えてください こう 08/6/15(日) 19:07 発言
【56377】Re:どなたか教えてください かみちゃん 08/6/15(日) 19:11 発言
【56379】Re:どなたか教えてください こう 08/6/15(日) 19:13 お礼
【56375】Re:どなたか教えてください SUS304 08/6/15(日) 19:04 発言
【56378】Re:どなたか教えてください こう 08/6/15(日) 19:12 発言

25693 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free