EXCEL如何把不同的SHEET表合并与实例.docVIP

EXCEL如何把不同的 SHEET表合并与实例 1、 打开你的工作簿，不同的表格分别命名为：表 1、表 2，表 3， 并新建一个工作表，并命名为 合并表；如下截图： 2、在这个工作表合并表标签上右键，查看代码 3、你把下面那段标注“天蓝色”代码复制到里边去，然后，上面有 个运行按钮，点击运行，并得到最后合并表结果。 4、代码如下，如果出现问题你可以尝试工具——宏——宏安全性里 把那个降低为中或者低即可。 Sub 合并当前工作簿下的所有工作表 () = False For j = 1 To If Sheets(j).Name Then X = Range(A65536).End(xlUp).Row + 1 Sheets(j). Cells(X, 1) End If Next Range(B1).Select = True MsgBox 当 前 工 作 簿 下 的 全 部 工 作 表 已 经 合 并 完 毕 ！ , vbInformation, 提示 End Sub 表 1： 学生 班级 语文 数学 英语 总分 平均分 XH1001 五（ 2 班） 87 78 87 252 XH1002 五（ 2 班） 88 90 88 266 XH1003 五（ 2 班） 54 98 89 241 XH1004 五（ 2 班） 100 90 90 280 XH1005 五（ 2 班） 88