[已解决]VBA一次选定区域偶数行的问题

隐身

兰校长的VBA80集第十一集提到的代码如下

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.         Set rg = Union(rg, Cells(x, 1))
   
6.       Next x
   
7.       rg.Select
   
8.     End Sub

复制代码

我不明白的是为何要用If x = 2 Then Set rg = Cells(x, 1)这个判断，去掉为何不行。希望各位能提供帮助，解释一下。


通过2楼和3楼的简单提示，自己稍微有点理解了：

union至少要有两个参数，也就是当x=2的时候，rg会为空，union（rg,cells(2,1))只有cells(2,1）一个参数，因为rg初始值是空的，出现错误。
要union至少有两个参数，必须让rg初始值不为空。rg赋值后，union(cells(2,1),cells(2,1))是符合union语法的，不会报错。

如果不使用IF判断，我们可以在前面对rg赋一个初始值，如下代码

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

复制代码

最佳答案

月排行榜 / 总排行榜

hylees

2012-5-27 23:10

他是为了后面union　不出错
　　　因为union的第一个参数必须不为空，否则就会运行错误。所以要先给rg赋个值

跳转到最佳答案楼层

ppp710715

不要这句的话会出错，因为rg没有赋值

hylees

他是为了后面union　不出错
　　　因为union的第一个参数必须不为空，否则就会运行错误。所以要先给rg赋个值

fjmxwrs

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

复制代码

奇数行应该是1呀，怎么成了2了？

隐身

fjmxwrs 发表于 2012-5-28 01:40
奇数行应该是1呀，怎么成了2了？

额，说错，是偶数行

ppp710715