用VB或宏打开一个EXCEL文件并表复制内容到另外一个总表中
我有个总表格式如下,需要从几百个分表中复制数据,粘贴到总表统计,要求是:在总表中光标放在某一个表名上,运行宏,宏会自动打开光标所在表的表名,并将表中数量这一列复制,然后粘...
我有个总表格式如下,需要从几百个分表中复制数据,粘贴到总表统计,要求是:在总表中光标放在某一个表名上,运行宏,宏会自动打开光标所在表的表名,并将表中数量这一列复制,然后粘贴到总表的对应表的对应栏中。总表及分表格式如下,分表取名为:表一、表二、表三、..........,向高手求助!
展开
3个回答
展开全部
Sub 汇总()
Dim strPath As String
Dim MySht As String
Dim MyWK As Workbook
strPath = ThisWorkbook.Path
For I = 2 To 2001
If Cells(2, I) = "" Then
Exit For
Else
Set MyWK = Workbooks.Open(strPath & "\" & Cells(2, I) & ".xlsx") ''请注意你的EXCEL档案存放的路径
ARR = Range("B2:B7") ''注意你要复制的资料范围
End If
MyWK.Close
Cells(3, I).Resize(6, 1) = ARR
Next
End Sub
2019-04-10
展开全部
在Excel中用powerquery做吧!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询