请求大神帮助！在同一个工作簿中，如何把原始数据填到每一张工作表的固定单元格里

chdshp · 发表于 2019-8-31 10:33

本帖最后由 chdshp 于 2019-8-31 10:42 编辑

问题是这样的：
我的工作簿中有共有375张表格，
其中存放原始数据的表格1张工作表名称为ggg，
剩余374张表格都是相同的工作表名称为001 002 003 004------371 372 373 374

我想完成这样的工作：
存放在原始数据工作表ggg中

A1里的数据填写到001表格 H17中
A2里的数据填写到002表格 H17中
A3里的数据填写到003表格 H17中
...........
A373里的数据填写到373表格 H17中
A374里的数据填写到374表格 H17中

请问怎样完成

报表.zip (8.14 KB, 下载次数: 1)

chdshp · 发表于 2019-8-31 10:37

本帖最后由 chdshp 于 2019-8-31 10:38 编辑

请各位帮忙写一下VBA吧

约定的童话 · 发表于 2019-8-31 10:58

哪一个附件是最重的？

chdshp · 发表于 2019-8-31 11:12

都可以的，谢谢您了

鄂龙蒙 · 发表于 2019-8-31 11:14

Sub 本薄多表填写()
Dim sh As Worksheet
Dim m
Application.ScreenUpdating = False
For Each sh In Worksheets
If sh.Name <> ActiveSheet.Name Then
m = m + 1
sh.Cells(17, 8) = Cells(m, 1)
End If
Next
Application.ScreenUpdating = True
End Sub

复制代码

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