| |
i-de さん：Yuki さん こんにちは
Yuki さんから適切な回答があり解決しそうですが、かいちゃったので送信します。 Debug.Print を使ってイミディエイトウインドウで確認 も有りましたね。
＞質問の仕方が下手で・・・
そんなことないっすよ (^0^!!!
初級者の私にはばっちり解ります。
そんなときは、途中にブレークポイントを設定しておいてマクロを走らせます。
そして .Select を活用して動きを確かめたり
ローカルウインドウで 行 が何かを確かめたり、てきとーな宣言で確認します。
Sub 一行上と同じ内容なら行消去()
Dim 行 As Long
Const 列 = 2
Dim 何だろう As String ’追加１
Cells(Rows.Count, 列).Select ’追加２
何だろう = Cells(Rows.Count, 列).End(xlUp).Row ’追加３
For 行 = Cells(Rows.Count, 列).End(xlUp).Row To 3 Step -1
If Cells(行, 列) = Cells(行 - 1, 列) Then
Rows(行).Delete
End If
Next 行 ’ブレークポイントにしておく
End Sub
*ブレークポイント
例１・ Next 行 にカーソル当てておいて手のアイコンをおす。
例２・ Next 行 の左側の灰色のところをクリックする。
のようにしてコードの一部を茶色にする。
*ローカルウインドウ
メニューの 表示 から設定しておいてね。
End(xlUp)はマクロの記録を取っている状態で、
Ctrl + ← や Ctrl + ↑ や Ctrl + → 等のキーボード操作して確認してください。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
