[[20200514101034]] 『行削除』(しほ) ページの最後に飛ぶ

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

 

『行削除』(しほ)

特定の行を削除したく質問させていただきます。
A3からH400の範囲でB列に0がある行を削除したいのですが
下記のコードでは行全体を削除してしまいます。

Sub 削除()

  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

Range(i & ":" & i).Deleteの部分で範囲を指定できるのでしょうか?
i & ":" & iの意味が理解出来なくて困ってます。
どなたかご教授お願いします。

< 使用 Excel:Excel2007、使用 OS:Windows10 >


 セル範囲を指定してやります。

 Range(i & ":" & i).Delete
 ↓
 Range(Cells(I,1).Resize(,8).Delete Shift:=xlUp

 ※適宜シートの指定を付加してください。
(OK) 2020/05/14(木) 10:34

 >i & ":" & iの意味が理解出来なくて困ってます。

 i = 1の場合

 Range("1:1")
 という意味になります。
 行番号1のセルの行全体が対象になります。

 Range(Range("A1"),Range("B5"))

  ↓
  A1:B5
 という意味になります。

 セル範囲の表現は他にもいくつかあります。
(OK) 2020/05/14(木) 10:42

 参考HPです。

https://excel-ubara.com/excelvba1/EXCELVBA311.html
(OK) 2020/05/14(木) 10:46


ok様返信ありがとうございます。
参考HPを見てるのですが基本が分かってないので
中々理解できませんがもう少し頑張ってみます。
(しほ) 2020/05/14(木) 11:01

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.