[已解决]VBA 代码错误指点

yashj2007

错误代码
Sub t()
Dim x As Integer
Dim rg As Range
For x = 1 To 13
Set rg = Range("a1")
If Range("a" & x + 1) = Range("a" & x) Then
Set rg = Union(rg, Range("a" & x + 1))
Else
rg.Merge
Set rg = Range("a" & x + 1)
End If
Next x
End Sub
为什么set语句要放在for语句前面，新手请高手指教。

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-9-29 10:45

如果不放前，每一次循环的时候RG又等于A1了，这样就达不到合并相同数值单元格的目的了。

跳转到最佳答案楼层

hwc2ycy

如果不放前，每一次循环的时候RG又等于A1了，这样就达不到合并相同数值单元格的目的了。

无聊的疯子

给你一个简单的例子
y的初始值是50，我们要在他的基础上对 1 到10 这10个数中的 偶数进行累加

y在 for 循环外的代码

1. 
   
2. Sub cc()
   
3. y = 50
   
4. For X = 1 To 10
   
5.   If X Mod 2 Then y = y + X
   
6. Next
   
7. msgbox y
   
8. End Sub
   

复制代码

换成你那个，把 y 放到 for  循环内

1. 
   
2. Sub cc()
   
3. For X = 1 To 10
   
4.   y = 50
   
5.   If X Mod X Then y = y + X
   
6. Next
   
7. msgbox y
   
8. End Sub
   

复制代码

两者的结果，很明显是不一样的吧？那个结果是对的呢？也很清楚了吧？

上清宫主

除了第一个set的问题而外，还有漏洞

hwc2ycy

上清宫主 发表于 2012-9-29 18:47
除了第一个set的问题而外，还有漏洞

X值的最大问题？