哪位大神帮忙看看，实在数据太多了，谢谢大大

715327259 · 发表于 2018-3-19 10:46

求各位大大帮帮忙，本人同一个文件夹有一个总表工作簿（有许多工作表），还有许多其他工作簿（只有一个工作表）。现在要检索其他工作簿工作表的第一行的文字，如果与总表工作簿其中一张工作表的第一行文字相同，则复制其他工作簿工作表内容到总表相对应的工作表（复制内容的表结构相同）。在线等，谢谢大神！

ahnyt · 发表于 2018-3-19 10:57

看了一下，没太明白数据的意思，看消息吧

子衿666 · 发表于 2018-3-19 11:24

这个得用VBA了

朱荣兴 · 发表于 2018-3-19 12:15

提示: 作者被禁止或删除内容自动屏蔽

lsc900707 · 发表于 2018-3-19 12:28

留个脚印先>>>>>>

opiona · 发表于 2018-3-19 16:41

Set SH0 = Sheets("汇总表")
Str例外表 = "|汇总表|其他|"
FileArr = FileAllArr(ThisWorkbook.Path, "*.xls?", ThisWorkbook.Name, True, False)
For I = 0 To UBound(FileArr)
Set WB = Workbooks.Open(FileArr(I))
Set SHW = WB.Worksheets(1)
For Each SH In ThisWorkbook.Worksheets
If InStr(Str例外表, "|" & SH.Name & "|") = 0 Then
If SH.Range("A1") = SHW.Range("A1") Then
SH.Cells.ClearContents
SHW.Cells.Copy SH.Range("A1")
End If
End If
Next SH
WB.Close False
Set WB = Nothing
Next I

复制代码

opiona · 发表于 2018-3-19 16:42

完整代码见附件：

案例2.rar (57.62 KB, 下载次数: 10)

LEWZ · 发表于 2018-3-19 16:56

提示: 作者被禁止或删除内容自动屏蔽

715327259 · 发表于 2018-3-23 14:42

opiona 大神，提示我For I = 0 To UBound(FileArr)

超限，是什么意思啊

orc250 · 发表于 2018-3-23 15:30

学习了学习了学习了学习了学习了

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

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2018-3-19 12:15 来自手机 \| 显示全部楼层 [广告] ★Excel Home云课堂 - 专业的职场技能充电站★ ★Excel三大利器★ ★ 笨办法学VBA全系列★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

LEWZ LEWZ 当前离线性别保密 UID 3672520 阅读权限 0 注册时间 2017-2-25 在线时间小时最后登录 1970-1-1 积分 116 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2018-3-19 16:56 来自手机 \| 显示全部楼层 [广告] ★用Excel做企业管理系统，Excel服务器学习和下载★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

[求助] 哪位大神帮忙看看，实在数据太多了，谢谢大大