EXCEL : 求VBA选中 不连续两列中 的部分单元格

在VBA中选择单元格使用range.select

Range支持不连续的多区域，表示方式为，Range（区域A1地址，区域B地址,……）
例如：A列中的A2：A3和C列中的C3:C9,是不连续的两列
那么同时选择两部分，则可以表示为Range("A2：A3,C3:C9")

VBA代码中具体使用如下：
sub Main
dim rng as range
'区域赋给rng
set rng=Range("A2：A3,C3:C9")
'区域选择
rng.select

end sub

Sub test()
Dim c As Range
Set c = c.Select
End Sub
我要用变量来表示，不是直接set c=Union([a1], [b2], [c5]),这里的[A1],[b2],[c5] 要变量，为满足条件的单元格

第一个回答者的公式 Range("A2:A" & i, "B2:B" & i).Select
改为Range("A2:A" & i & ",B2:B" & i).Select
用 & 连接，“,”属于文本。

Sub ASASAS()
Dim Lon As Worksheet
Dim k As Integer
Set Lon = Worksheets("SHEET1")'你的表名称
For k = 1 To 30
If Lon.Cells(1, k) > 0.00000000001 And Lon.Cells(3, k) > 0.0000000001 Then
Lon.Cells(2, k) = (Lon.Cells(1, k) + Lon.Cells(3, k)) / 2
End If
Next
End Sub

A 为第1列
C 为第3列

结果在B列

range("A2:A" & i).select
range("B2:B" & i).select
同时选中
Range("A2:A" & i, "B2:B" & i).Select