如何用动态行号定义Excel VBA中的非连续单元格Range对象？

问题根源在于Range方法的参数逻辑：当你传入两个独立地址参数时，它会将这两个地址解析为连续矩形区域的左上角和右下角单元格，而非你需要的两个非连续独立区域。所以ws.Range("A2:A" & lastRow, "D2:D" & lastRow)实际选中的是A2到D&lastRow的整块矩形区域，而非目标的两列独立范围。

正确实现方式 #

将两个非连续区域的地址用逗号拼接成完整字符串，作为Range的单个参数传入，和静态写法的逻辑保持一致：

Sub Range_Test()

   Dim ws As Worksheet: Set ws = ActiveSheet
   
   Dim lastRow As Long
   lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
   
   ws.Range("A2:A5,D2:D5").Select    ' 静态写法正常工作
   
   ' 动态拼接非连续区域的正确写法
   ws.Range("A2:A" & lastRow & ",D2:D" & lastRow).Select
 
End Sub

可选替代方案 #

如果需要更灵活地组合多个非连续区域，可使用Union方法，代码可读性和扩展性更好：

Union(ws.Range("A2:A" & lastRow), ws.Range("D2:D" & lastRow)).Select

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