[已解决]看看这个代码能用数组简化代码吗

zxc1152468

  [名一] = Evaluate("=TEXT(名总,0)")
    [名二] = Evaluate("=TEXT(名总,0)")
    [名三] = Evaluate("=TEXT(名总,0)")
    [名四] = Evaluate("=TEXT(名总,0)")
    [名五] = Evaluate("=TEXT(名总,0)")
    [名六] = Evaluate("=TEXT(名总,0)")

最佳答案

月排行榜 / 总排行榜

dsmch

2014-12-16 06:11

1. Sub Macro1()
   
2. w = Array("名一", "名二")
   
3. For i = 0 To UBound(w)
   
4.     Range(w(i)) = Evaluate("=1+2")
   
5. Next
   
6. End Sub

复制代码

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. Set 名1 = [a1:a3]
   
3. Set 名2 = [c1:c3]
   
4. Union(名1, 名2) = Evaluate("=1+2")
   
5. End Sub

复制代码

zxc1152468

dsmch 发表于 2014-12-15 20:34

Union不能跨工作表使用，上面的都是自定义单元格并且不在同一工作表中

zxc1152468

zxc1152468 发表于 2014-12-15 20:38
Union不能跨工作表使用，上面的都是自定义单元格并且不在同一工作表中

自定义单元格啊

爱疯

做个简单附件，看帖的人就更好理解些

dsmch

1. Sub Macro1()
   
2. w = Array("名一", "名二")
   
3. For i = 0 To UBound(w)
   
4.     Range(w(i)) = Evaluate("=1+2")
   
5. Next
   
6. End Sub

复制代码