如何合并VBA代码实现按L列数据行选择多列区域

方法1：构造正确的区域字符串 #

你之前的错误是只把行号追加在整个区域字符串末尾，导致生成了B4:AU, BI4:CU100这类无效的区域格式。正确的做法是给每个独立区域分别拼接结束行号，再用逗号分隔：

Dim lastRow As Long
lastRow = Cells(Rows.Count, "L").End(xlUp).Row
Range("B4:AU" & lastRow & ", BI4:CU" & lastRow).Select

方法2：使用Union函数（更推荐） #

用Union函数合并多个Range对象，代码可读性更强，也不容易拼错字符串，尤其适合后续要对合并区域执行其他操作的场景：

Dim lastRow As Long
lastRow = Cells(Rows.Count, "L").End(xlUp).Row
Union(Range("B4:AU" & lastRow), Range("BI4:CU" & lastRow)).Select

额外提示 #

尽量避免使用Select操作，除非你确实需要让用户看到选中的区域。如果是要对区域执行格式设置、赋值等操作，直接操作Range对象效率更高，比如：

' 示例：给合并区域设置黄色背景
Union(Range("B4:AU" & lastRow), Range("BI4:CU" & lastRow)).Interior.Color = vbYellow

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