问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

如何在多张不同的EXCEL文件中提取相同位置的数据?

发布网友 发布时间:2022-04-28 22:08

我来回答

3个回答

热心网友 时间:2022-05-23 18:30

利用“=”号就可以,在5.xls中的A1里输入  ='1.xls'!A8   然后点击回车即可。如图:

热心网友 时间:2022-05-23 18:30

5.XSL,右键sheet1——查看代码——粘贴代码——运行代码

Sub mysub()
Dim ShApp As Object, mysheet As Object
Dim TF As Boolean, i As Integer
Dim aTable As Object, n As Integer
On Error Resume Next
n = 0
With Application.FileDialog(msoFileDialogFilePicker)
       .Title = "请选定要处理的excel文档"
       .Filters.Add "excel文档", "*.xls"  '暂定扩展名为xls的excel文档
       .AllowMultiSelect = True
       If .Show <> -1 Then Exit Sub
       Set ShApp = GetObject(, "Excel.Application")
       If Err <> 0 Then
           TF = True
           Set ShApp = CreateObject("Excel.Application")
       End If
       Application.ScreenUpdating = False
       For i = 1 To .SelectedItems.Count
           Set mysheet = ShApp.Workbooks.Open(.SelectedItems(i))
                With mysheet.Sheets(1)
                     .[a8].copy [a65536].end(xlup).offset(1)
                End With
                n = n + 1
           mysheet.Close True
       Next i
   End With
   If TF = True Then ShApp.Quit
   Set ShApp = Nothing
   MsgBox "处理完毕,共处理了" & n & "个excel文档。"
   Application.ScreenUpdating = True    
End Sub

热心网友 时间:2022-05-23 18:31

当然,用VBA也是可以的,只是不会用的话也不用像楼上那么复杂。不过你要确定你这些1.xls、2.xls、3.xls、4.xls在硬盘的路径是否在同一文件夹。
如果不在同一文件夹,那还不如直接复制粘贴,因为用公式的话要输入路径。
假设都在D:\下。那么在5.xls中,A8='D:\[1.xls]Sheet1'!$A$8+'D:\[2.xls]Sheet1'!$A$8'D:\[3.xls]Sheet1'!$A$8'D:\[4.xls]Sheet1'!$A$8
这就把1.xls、2.xls、3.xls、4.xls文件中A8的数据到加起来放在5.xls中了
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
诺基亚5233直签工具 我的5233下了证书、也在塞班官网上在线签名了、怎么还是提示证实书错误... 你好 就是我用的诺基亚5233直签工具就是用不了什么受证书限制内部错误... 请问哪里有做餐用包装纸巾的.厂 怎么在餐巾纸上或者纸巾包装上打广告? 广告餐巾纸广告餐巾纸的分类 广告餐巾纸广告餐巾纸的制作形式 ...支付密码一样呢?支付密码和银行卡的关系是什么?求解答, ...今天是怎么了,换了数据线也不行,同事的M1也一样不能充电... 小米M1和小米青春版就是CPU和内存不一样,我是学生,买哪一个比较好? Excel分别从不同表格提取对应数据? Excel中从不同表格提取同类数据? 古法金手镯空心的里面什么样子 苹果手机删除微信对话框会延迟是什么原因 古法手镯和普通手镯有什么区别? 什么叫古法手镯呢? 微信 信息收到提示音延迟 什么情况? 苹果手机微信收到信息提示不及时怎么办? 开网吧要办的网络文化经营许可证怎么办? 申请网吧营业执照的流程是什么? 新开网咖,办理网吧经营许可证需要哪些手续 谁知道开网吧办证的全套流程? 《特种兵归来4替身疑云(2021)》百度云免费高清资源在线观看,侯杰导演... 电影特种兵归来归来的拼音 特种兵男主角叫什么? 微电影特种兵归来怎么没结局 一个电影“特种兵归来”就那一集吗,最后面一个女的敲门叫了一句师兄就完了? 求 特种兵归来 百度云资源,谢谢 特种兵归来4替身疑云演员表包含哪些人? 都市特种兵的电影叫什么 如何从不同的excel文件中取数据 请问一年前的微信聊天记录还能恢复吗 电视剧(大猫儿追爱记)全集高清下载地址,在线观看 为什么大猫电影网进不去了 急求 三人合伙入股办厂的协议书怎么写?急! 急! 急! 答的好的必加分! 饮品店营业执照名字怎么取 奶茶店营业执照如何办理 苹果手机无缘无故自己录屏 太恐怖了,苹果12系统会自动开启录屏,这是被监控了吗? windows7系统各版本号介绍 苹果手机的摄像头会自动录制视频和自动拍照和自动录制声音吗它的安全性会低吗? 本人过户车辆授权委托书要怎么写 数一数二数三考试科目比例是多少呢? 考研中的数学三具体考哪些数学科目? 研究生考试数学中的“数一、数二、数三”指什么?分别包含哪些科目?什么最难? 考研得数学三 包括那些科目? 考研招生目录里的“数学三” 苹果xr有电为啥还出现自动重启的现象咋办? iPhonexr电源接触不良为什么手机会自动重启呢? iphone xr手机用了不到半年,续航能力差咋解决?