vba - すべての行ではなく、行 2 から選択を開始するにはどうすればよいですか?

Question

以下を変更して、選択を行 2 からのみ開始するように制限するにはどうすればよいですか? 現在、すべての行を選択します。

Set myRng = .Range("D2", .Cells(.Rows.Count, "D").End(xlUp))

Answer 1

それを機能させるには、 cell にデータがあることを確認する必要がありますD2。この例を参照してください。

Sub Sample()
    Dim myRng As Range
    Dim ws As Worksheet
    Dim Lrow As Long

    '~~> Change this to the relevant worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")

    With ws
        '~~> Get last row which has data in Col D
        Lrow = .Range("D" & .Rows.Count).End(xlUp).row

        If Not Lrow < 2 Then
            Set myRng = .Range("D2:D" & Lrow)
            MsgBox myRng.Address
        Else
            MsgBox "There is no data in cell D2"
        End If
    End With
End Sub