[VBA] Excel表快速合并，多个Excel表合并到一个里面，只保留一个表头

最新推荐文章于 2024-12-19 11:37:40 发布

Luyy94

最新推荐文章于 2024-12-19 11:37:40 发布

阅读量4.9k

点赞数 4

分类专栏： Excel VBA

本文链接：https://blog.csdn.net/baidu_31950961/article/details/98640001

版权

修改了这片文章中提供的代码https://blog.csdn.net/shuai9201/article/details/73322974以实现合并的结果只有一个表头的功能。

Sub MergeMultiFiles()
    Dim filePath As String, fileName As String, mergedWorkbookName As String, processedFileNames As String
    Dim workbook As workbook
    Dim copyRange As Range
    Dim i As LongPtr
    Dim num As LongPtr
    Dim box As String
	Dim headerCount As Integer
    
	headerCount