excel 宏 代码 函数 将一个工作簿里除第一张表外的所有工作表中相同位置的数据引用到第一张表里
答案:3 悬赏:70 手机版
解决时间 2021-11-29 04:31
- 提问者网友：锁深秋
- 2021-11-28 16:59
excel 宏 代码 函数 将一个工作簿里除第一张表外的所有工作表中相同位置的数据引用到第一张表里
最佳答案
- 五星知识达人网友：污到你湿
- 2021-11-28 18:25
Sub HZ()
Dim i%, r%
Dim mSht As Worksheet
Set mSht = Worksheets("汇总")
Application.ScreenUpdating = False
For i = 2 To Worksheets.Count
Sheets(i).Range("d48:ad48").Copy mSht.Range("e1:ae1").Offset(i - 1, 0)
Next i
Application.ScreenUpdating = True
End Sub
Dim i%, r%
Dim mSht As Worksheet
Set mSht = Worksheets("汇总")
Application.ScreenUpdating = False
For i = 2 To Worksheets.Count
Sheets(i).Range("d48:ad48").Copy mSht.Range("e1:ae1").Offset(i - 1, 0)
Next i
Application.ScreenUpdating = True
End Sub
全部回答
- 1楼网友：蕴藏春秋
- 2021-11-28 19:15
我也不知道
- 2楼网友：不甚了了
- 2021-11-28 18:36
在"汇总"表的E2单元格输入公式
=indirect("sheet" & row(a1) &"!d48")
向右填充,向下填充
=indirect("sheet" & row(a1) &"!d48")
向右填充,向下填充
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯