批量复制区域内容到其它表

LVMJ2023 · 发表于 2023-1-30 20:35

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

For n = 1 To 125
a = a + 1
b = a + 1
Workbooks("12位置上的所有筛选.xlsm").Sheet1.Range("A1:E1048576").Copy _
ThisWorkbook.Sheets(b).Range("A1")
Next
End Sub

lcluck2002 · 发表于 2023-1-30 22:58

可否上传一个附件？

chzsh · 发表于 2023-1-31 05:20

Sub shsh()
For n = 2 To 126
Sheet1.Range("A1:E65536").Copy ThisWorkbook.Sheets(n).Range("A1")
Next
End Sub

chzsh · 发表于 2023-1-31 05:49

Sub sh2()
Dim arr1, irow, i
irow = Sheet1.Range("a65536").End(xlUp).Row
arr1 = Sheets(1).Range("a1:e" & irow)
For i = 2 To Sheets.Count
Sheets(i).[A1].Resize(irow, 5) = arr1
Next
End Sub

mmwwdd · 发表于 2023-1-31 06:46

刚来的都不习惯传附件

陈正 · 发表于 2023-1-31 06:53

先学习下如何正确提问呗

LVMJ2023 · 发表于 2023-1-31 11:51

lcluck2002 发表于 2023-1-30 22:58
可否上传一个附件？

谢谢大神，已经解决了

LVMJ2023 · 发表于 2023-1-31 11:52

chzsh 发表于 2023-1-31 05:20
Sub shsh()
For n = 2 To 126
Sheet1.Range("A1:E65536").Copy ThisWorkbook.Sheets(n).Ra ...

谢谢大神，要的就是这个效果，我好笨还多搞了两个变量

LVMJ2023 · 发表于 2023-1-31 11:53

chzsh 发表于 2023-1-31 05:49
Sub sh2()
Dim arr1, irow, i
irow = Sheet1.Range("a65536").End(xlUp).Row

谢谢老师，问题已经解决了

LVMJ2023 · 发表于 2023-1-31 11:53

mmwwdd 发表于 2023-1-31 06:46
刚来的都不习惯传附件

是的呢，谢谢大神提醒，问题已经解决了

		自动登录	找回密码
密码			免费注册

[求助] 批量复制区域内容到其它表