Excel VBA質問箱 IV

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

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


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

25697 / 76736

←次へ　｜　前へ→


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

かみちゃん - 08/6/15(日) 19:11 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

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

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

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

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

0 hits

▼

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