请教一个老生常谈的工作表合并的问题：如何保留唯一的表头格式

练大脖子

先吐槽一番：来论坛也有些日子了，合并工作表的贴子没看一千也有八百了，没想到还能遇到新问题……
问题是这样的：需要合并本表所在文件夹下的全部工作簿的sheet1表，并保留一个表头，我按https://club.excelhome.net/thread-1241449-1-1.html贴中的代码，自行修改后，确实实现了数据合并、文件名提取、重复表头清理等功能。但好像是因为代码中复制数据的功能是通过数组来实现的，因此所有数据的格式全部丢失，最后这个表就没表头了。
也在论坛里找过其他大神写的代码，似乎要保留表头就只能通过单元格复制的方法去实现数据合并，不知道是否还有别的方法？

ykcbf1100

别的方法先不要管了，先试试单元格复制的方法吧。

练大脖子

试了，但是有个问题，就是想实现添加数据来源的文件名的功能，论坛里给的方法都是使用数组……

fanyoulin

练大脖子 发表于 2023-4-23 20:19
试了，但是有个问题，就是想实现添加数据来源的文件名的功能，论坛里给的方法都是使用数组……

稍微改变下，用.open来打开工作表，不要用不打开工作表的方式来读取数据，然后使用单元格复制来代替数组读取表头，因为数组读取的只有数据，没有格式，而且只有一行，但单元格复制可以不受上述限制。下面截图演示了如何用单元格复制来复制表头。