如何在第2行开始选择，而不是所有行？

Question

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

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

Answer 1

要使其工作，您将必须确保单元格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