VBA如何编写更简洁规范的代码以选中A列最后一行后到UsedRange末尾的区域

优化说明 #

你提供的原有代码存在一处潜在逻辑问题：ws.UsedRange.Rows.Count 仅返回已用区域的行数，而非已用区域最后一行对应的工作表行号。如果工作表已用区域不是从第1行开始，原有计算会出错，导致选中区域偏差。

以下是更规范、同时兼容边界场景的精简实现，固定选中到AE列的版本：

Option Explicit

Sub Select_Blank_in_Usedrange()
    Dim ws As Worksheet: Set ws = ActiveSheet
    With ws.UsedRange
        ws.Range("A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row + 1, "AE" & .Row + .Rows.Count - 1).Select
    End With
End Sub

优化点 #

• 用With语句简化已用区域属性调用，减少冗余变量声明，代码更短
• 修正已用区域最后行号计算逻辑：.Row + .Rows.Count - 1 可以准确获取已用区域最后一行的真实行号，兼容已用区域不从第1行开始的场景
• 保留Option Explicit强制变量声明的规范要求，避免隐式变量引发的报错

如果你不需要固定选中到AE列，想要自动适配已用区域的最后一列，可以使用更通用的版本：

Option Explicit

Sub Select_Blank_in_Usedrange()
    Dim ws As Worksheet: Set ws = ActiveSheet
    With ws.UsedRange
        ws.Range("A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row + 1, .Cells(.Cells.Count)).Select
    End With
End Sub

区域选择逻辑参考 #

内容的提问来源于stack exchange，提问作者Leedo