Sub test()
Dim x As Integer
Dim rg As Range
For x = 2 To 30 Step 2
If x = 2 Then rg = Range("a" & x)
rg = Union(rg, Range("a" & x))
Next
rg.Select
End Sub
好像你想做的和你的程序是不一致的,麻烦问下你想做什么?
问题所在:
rg是对象,赋值时用 set
Sub test()
Dim x As Integer
Dim rg As Range
set rg =range("A2")
For x = 2 To 30 Step 2
If x = 2 Then
rg = Range("a" & x)
set rg = Union(rg, Range("a" & x))
endif
Next
rg.Select
End Sub
好像你想做的和你的程序是不一致的,麻烦问下你想做什么?
问题所在:
rg是对象,赋值时用 set
Sub test()
Dim x As Integer
Dim rg As Range
set rg =range("A2")
For x = 2 To 30 Step 2
If x = 2 Then
rg = Range("a" & x)
set rg = Union(rg, Range("a" & x))
endif
Next
rg.Select
End Sub
是不是想选中A2:A30的偶数行?
可参考如下代码:
Sub test()
Dim x As Integer
Dim rg As Range
Set rg = Range("A2")
For x = 2 To 30 Step 2
rg = Range("a" & x)
Set rg = Union(rg, Range("a" & x))
Next
rg.Select
End Sub
Sub test()
Dim x As Integer
Dim rg As Range
For x = 2 To 30 Step 2
If x = 2 Then set rg = Range("a" & x)
set rg = Union(rg, Range("a" & x))
Next
rg.Select
End Sub