[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『マクロで空白削除』(kiss)
いつもお世話になっております
大変お手数と思いますが
ご教示頂けると幸いです
下記の様に空白削除のマクロを探したのですけど
1から18行の間で削除したい場合
どの様にすればよいのでしょうか
よろしくお願いいたします
Sub test01()
Dim lRow As Long
Dim i As Long
lRow = Cells(Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False
For i = lRow To 2 Step -1
If Cells(i, 2).Value = 0 Then
Range(i & ":" & i).Delete
End If
Next i
Application.ScreenUpdating = True
End Sub
< 使用 Excel:Excel2013、使用 OS:Windows8 >
> For i = lRow To 2 Step -1
↓のようにするだけでは?
For i = 18 To 1 Step -1
(カリーニン) 2014/10/30(木) 10:44
早速のご回答ありがとうございます
(kiss) 2014/10/30(木) 10:53
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.