【求助】如何对union区域的单元格逐个赋值

Bikmin

1. Sub dd() 'union示例
   
2.   Dim rg As Range, x As Integer
   
3.   For x = 2 To 10 Step 2
   
4.     If x = 2 Then Set rg = Cells(x, 1)
   
5.    
   
6.     Set rg = Union(rg, Cells(x, 1))
   
7.   Next x
   
8.   rg.Select
   
9. End Sub

复制代码

如上面这段代码，选取的结果是A2,A4,A6,A8,A10
然后我现在要对这些单元格分别赋值。
我想用这些的方法表示

1. rg(1)=2
   
2. rg(2)=4
   
3. rg(3)=6
   
4. rg(4)=8
   
5. rg(5)=10

复制代码

但是，结果却是A2=2,A3=4.A4=6,A5=8,A6=10.
这个例子是有点规则的。是有其他办法解决的。

但是如果是无规则的。然后我想对union区域里的所有单元格分别进行赋值。该怎么做呢

Bikmin

虽然还是没人回答。但是自己已经找到办法了。

1. Sub dd() 'union示例
   
2.   Dim rg As Range, x As Integer
   
3.   Dim k As Range
   
4.   For x = 2 To 10 Step 2
   
5.     If x = 2 Then Set rg = Cells(x, 1)
   
6.     Set rg = Union(rg, Cells(x, 1))
   
7.   Next x
   
8.   For Each k In rg
   
9.     k.Value = "3"
   
10.   Next k
    
11.   rg.Select
    
12. End Sub

复制代码

用这样类似的办法。嘻嘻

zhouzhongchi

1. For Each c In rg
   
2.         c.Value = "ok?"
   
3. Next

复制代码