批量复制表的内容

LVMJ2023

各位老师好，我正在试着写些vba代码解决表格中的问题，将表1中a列到e列的内容复制到工作簿剩下的125张表中，用了简单的for循环，运行出了问题，请各位老师帮忙看下或者修改下，谢谢！

shiruiqiang

最基本的删表和建表、复制

wang-way

1. Sub 新建表()
   
2.     For i = 1 To 126
   
3.         Set sht = ThisWorkbook.Worksheets.Add(after:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count))
   
4.         sht.Name = i
   
5.     Next i
   
6. End Sub
   
7. Sub 复制内容()
   
8.     With ActiveSheet
   
9.         S = .Name
   
10.         ar = .Range("a1").CurrentRegion.Value
    
11.     End With
    
12.     For Each sht In ThisWorkbook.Worksheets
    
13.         If sht.Name <> S Then
    
14.             sht.Range("a1").Resize(UBound(ar), UBound(ar, 2)).Value = ar
    
15.         End If
    
16.     Next sht
    
17. End Sub
    

复制代码

LVMJ2023

谢谢老师，谢谢！

LVMJ2023

wang-way 发表于 2023-1-30 20:50

谢谢老师，已经解决了

LVMJ2023

shiruiqiang 发表于 2023-1-30 20:48
最基本的删表和建表、复制

谢谢老师，谢谢！