Excel VBA質問箱 IV

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

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


26065 / 76732 ←次へ | 前へ→

【56003】Re:行番号を出す数式?
発言  Abebobo  - 08/5/29(木) 12:08 -

引用なし
パスワード
   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 + →  等のキーボード操作して確認してください。
0 hits

【55997】行番号を出す数式? i-de 08/5/29(木) 10:48 質問
【56001】Re:行番号を出す数式? Yuki 08/5/29(木) 11:49 発言
【56003】Re:行番号を出す数式? Abebobo 08/5/29(木) 12:08 発言
【56006】Re:行番号を出す数式? ひげくま 08/5/29(木) 12:31 回答
【56007】Re:行番号を出す数式? i-de 08/5/29(木) 12:57 お礼

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