[[20141030103926]] 『マクロで空白削除』(kiss) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『マクロで空白削除』(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.