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