excel - 正确的/更短的代码来选择从最后一行到使用范围结束的范围，VBA？

Question

我需要从 after Last Row till end of usedRange 中选择一个范围.
下面的代码有效，但是是否有正确的/更短的代码。

Option Explicit

Sub Select_Blank_in_Usedrange()

 Dim ws As Worksheet: Set ws = ActiveSheet
 Dim LastR As Long, LastR_UsedRange As Long

 LastR = ws.Cells(Rows.Count, "A").End(xlUp).Row
 LastR_UsedRange = ws.UsedRange.Rows.Count
 
 ws.Range("A" & LastR + 1, "AE" & LastR_UsedRange).Select

End Sub

Answer 1

如果代码有效并且没有多余的部分，我会说它很好。如果我要提出改进建议，那就是将相关地址保存为范围对象而不是行号。这样，您可以直接从两个角组装更大的范围，而不必在最后一步连接地址。

Sub Select_Blank_in_Usedrange()
    
    Dim ws As Worksheet: Set ws = ActiveSheet
    
    Dim TopCorner As Range
    Set TopCorner = ws.Cells(ws.Rows.Count, "A").End(xlUp).Offset(1, 0)
    
    Dim BottomCorner As Range
    With ws.UsedRange.Columns(31)
       Set BottomCorner = .Cells(.Cells.Count)
    End With
    
    ws.Range(TopCorner, BottomCorner).Select

End Sub

对我来说，这要清楚得多，并且可以清楚地显示常量。如果列数发生变化，或者起始列从“A”移动，这将使以后更容易编辑。