Question

我试图同时选择两个未命名的范围，即非连续列。我可以使用以下方法一次突出显示两个单独的列：

ActiveSheet.Range("B:B,D:D").Select

但是，当我尝试使用函数选择多列中的范围以获取最后一行时，它会突出显示B1：Dlrow，而不是B1：lrow和D1：lrow。这是我正在使用的代码：

 Sub selectmultiple()
Dim lrow As Long
lrow = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row

    ActiveSheet.Range("B1" & ":B" & lrow, "D1" & ":D" & lrow).Select
End Sub

任何帮助都会非常感激。谢谢！

Answer 1

我认为你的逗号位于错误的位置，它应该与你的冒号一样在引号内。试试这个......

ActiveSheet.Range("B1:B" & lrow & ",D1:D" & lrow).Select

Answer 2

您可以使用Union Method选择多个范围。

Sub selectmultiple()
Dim lrow As Long
lrow = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row


    Union(Range("B1" & ":B" & lrow), Range("D1" & ":D" & lrow)).Select
End Sub

选择多个带有变量的未命名范围

2 个答案: