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