合并 多个EXCEL表代码 今天工作时，写一个文档，突然需要将多个excel工作簿 合并 成一个，于是总结一下，希望有用。 1、 合并 多个EXCEL表为同一个EXCEL表 Sub CombineWorkbooks() Dim FilesToOpen Dim x As Integer On Error GoTo ErrHandler Application.ScreenUpd 在需要 合并 的sheet中， 加入一个按钮， 点击此按钮 出现提示框， 让用户自己输入需要 合并 的列； 列名可以为数字或字母； 如输入1， 代表第一列； 输入A， 也代表第一列 自动判断所有的行数； 进行循环遍历； 将此列内容相同的相邻2列或几列， 合并 单元格 合并 单元格总出现提示