[已解决]请高手解决下下。

石岗

Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    RefEdit1 = "$e$9:$j$11"   '数据区域
    Range(RefEdit1).ClearContents    '清除原有数据
    For i = 1 To UBound(Filename)

如果在数据区域还加上一些数据区域，可不可以？如果可以的话，如何加。

最佳答案

月排行榜 / 总排行榜

冥王

2014-4-22 17:48

1. Application.DisplayAlerts = False
   
2.     Application.ScreenUpdating = False
   
3.     RefEdit1 = Range("$e$9:$j$11")   '数据区域1
   
4.     RefEdit2 = Range("$c$9:$c$11")   '数据区域2
   
5.     Union(RefEdit1, RefEdit2).ClearContents   '清除原有数据

复制代码

跳转到最佳答案楼层

danio112

可以，union

冥王

union（区域1，区域2，区域3，……）可以将多个区域合并起来，再一起操作

石岗

能不能详细的说一下

石岗

比如我在数据区域中上另一个数据区域c9:c11

石岗

提示类型不匹配，是什么原因哟  RefEdit1 = Union("$e$9:$j$11", "$c$9:$c$11") '数据区域

冥王

1. Sub jj()
   
2.     Union(Range("a2:a4"), Range("c2:c6")).Select
   
3.     Selection.Interior.Color = vbRed
   
4. End Sub

复制代码

你试一下看看效果，再查下帮助

冥王

1. Application.DisplayAlerts = False
   
2.     Application.ScreenUpdating = False
   
3.     RefEdit1 = Range("$e$9:$j$11")   '数据区域1
   
4.     RefEdit2 = Range("$c$9:$c$11")   '数据区域2
   
5.     Union(RefEdit1, RefEdit2).ClearContents   '清除原有数据

复制代码

风林火山

Set RefEdit1 =Union(Range("$e$9:$j$11"), Range("$c$9:$c$11"))

石岗

谢谢冥王给了我的提示。也感谢回复我的朋友们。