[已解决]VBA代码如何写

lingyuncelia

某工作簿有N个工作表，如果我想每张工作表A1的内容复制到B2，那么如果用For Each 循环结构VBA代码该如何写啊？

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-11-10 15:30

1. Sub demo()
   
2.     Dim sht As Worksheet
   
3.     Application.ScreenUpdating = False
   
4.     For Each sht In Worksheets
   
5.         sht.Range("b2") = sht.Range("a1")
   
6.     Next
   
7.     Application.ScreenUpdating = True
   
8.     MsgBox "复制完成"
   
9. End Sub
   

复制代码

跳转到最佳答案楼层

grf1973

for each sh in worksheets
      [b2]=sh.[a1]
next

hwc2ycy

1. Sub demo()
   
2.     Dim sht As Worksheet
   
3.     Application.ScreenUpdating = False
   
4.     For Each sht In Worksheets
   
5.         sht.Range("b2") = sht.Range("a1")
   
6.     Next
   
7.     Application.ScreenUpdating = True
   
8.     MsgBox "复制完成"
   
9. End Sub
   

复制代码

lingyuncelia

grf1973 发表于 2014-11-10 15:29
for each sh in worksheets
      =sh.[a1]
next

刚试过，只有当前的工作表成功，其它工作表依然无效。

grf1973

lingyuncelia 发表于 2014-11-10 15:46
刚试过，只有当前的工作表成功，其它工作表依然无效。

理解错了，应该是
for each sh in worksheets
        sh.[b2]=sh.[a1]
next

上清宫主

为什么用循环呢？
录了个宏，自己改
Sub 宏1()
Sheets.Select
Sheets(1).Activate
Range("A1").Copy
Range("c5").Select
ActiveSheet.Paste
End Sub

lingyuncelia

hwc2ycy 发表于 2014-11-10 15:30

谢谢,成功解决了

lingyuncelia

上清宫主 发表于 2014-11-10 16:39
为什么用循环呢？
录了个宏，自己改
Sub 宏1()

如果一个工作簿有100个类似的工作表呢?重复的事情一次性做,这就是学VBA的原因.