工作簿汇总，工作表汇总合并，多文件汇总合并 通用代码 支持多层子文件夹

nmcfbgttyl

太全了，够用！

piao123456

opiona老师好！您发的汇总有很大的用处，太好了！
想问一下如果是想提取同一列中特定几个位置的单元格的数值，该部分怎么设置呢？
Rem 打开分表
        Set WB = Workbooks.Open(FileArr(I))
        Rem 找到对应表格
        For Each SH In WB.Worksheets
            If SH.Name = SHX.Range("B1").Value Then
                Rem 写入文件名
                SHX.Cells(I + 5, 1).Value = GetPathFromFileName(FileArr(I))
                Rem 找到需要的单元格位置
                For ICOL = 2 To SHX.Range("HZ4").End(xlToLeft).Column
                    If Len(SHX.Cells(3, ICOL).Value) > 0 Then
                        SHX.Cells(I + 5, ICOL).Value = SH.Range(SHX.Cells(3, ICOL).Value).Value
                    End If
                Next
                Exit For
            End If
        Next SH
        WB.Close False
        Set WB = Nothing
    Next I

nmcfbgttyl

北极狐弟，刚试了一下“ 4_单工作簿内多工作表，全部数据汇总“，能合并所有数据，但身份证号或银行卡号出现格式错误，变成了科学记数方式，这得怎么处理呢？怎样才能保留原有格式呢？

anna188

谢谢大神！！！！

tinybee123

十分优秀     

corcube

谢谢老师的分享，非常有用！

小雪爱学习

特别好用，谢谢楼主

永在战场

“看上去代码多，是因为几个自定义函数
这个是个人习惯：将常用的做成函数或过程，用时只要填几个参数就OK了”

这个习惯好，值得学习！

opiona

nmcfbgttyl 发表于 2019-2-15 09:37
北极狐弟，刚试了一下“ 4_单工作簿内多工作表，全部数据汇总“，能合并所有数据，但身份证号或银行卡号出 ...

保存位置 提前设为：文本格式

农村信合人

谢谢老师 了辛苦了。