Vba 如何从第2行而不是所有行开始选择？

如何修改以下内容以限制选择仅从第2行开始？目前它选择每一行

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

---

要使其工作，您必须确保单元格

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

子样本（）
暗myRng As范围
将ws设置为工作表
暗淡的光线和长的一样
“~~>将此更改为相关工作表
设置ws=ThisWorkbook.Sheets（“Sheet1”）
与ws
“~~>获取第D列中有数据的最后一行
Lrow=.Range（“D”和.Rows.Count）.End（xlUp）.row
如果不是Lrow<2，则
设置myRng=.Range（“D2:D”和Lrow）
MsgBox myRng.地址
其他的
MsgBox“单元格D2中没有数据”
如果结束
以
端接头

如果D列中没有任何内容，您提供的代码将选择行1:2，或者选择范围D2:D（最后一行数据在D中），不是吗？在D列的最后一行之前，我不可能选择所有行，除非您有数据。