[已解决]数据自动复制到无数个工作表中

mmc998

工作簿n.rar (17.63 KB, 下载次数: 10)

2021-3-12 19:54 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

高

2021-3-12 20:52

Sub fuzhi()
For x = 2 To Worksheets.Count
Sheets("Sheet1").Range("a14").CurrentRegion.Copy Sheets(x).Range("a14")
Next x
End Sub

跳转到最佳答案楼层

高

Sub fuzhi()
For x = 2 To Worksheets.Count
Sheets("Sheet1").Range("a14").CurrentRegion.Copy Sheets(x).Range("a14")
Next x
End Sub