多个工作表合并一个工作表方法.docxVIP

1.首先把需要合并的excel工作薄整理到一个文件夹中，如图，用来合并到一起的工作薄的名字要注意，这里取名叫“合并工作薄”。 2.打开这个excel表，直接按键ALT+F11，进入下图界面。双击如图所示位置的sheet1。 3.如图，打开准备好的VBA代码，复制到这个空白的代码编译处，代码如下： Sub 工作薄间 HYPERLINK /s?wd=%E5%B7%A5%E4%BD%9C%E8%A1%A8tncprfenlei=mv6quAkxTZn0IZRqIHckPjm4nH00T1Y3P199nhnLrjmduHfdPhf10ZwV5Hcvrjm3rH6sPfKWUMw85HfYnjn4nH6sgvPsT6KdThsqpZwYTjCEQLGCpyw9Uz4Bmy-bIi4WUvYETgN-TLwGUv3EnHRknHDzrjcLrHnsnW61njcvn0 \t _blank 工作表合并() Dim FileOpen Dim X As Integer Application.ScreenUpdating = False FileOpen = Application.GetOpenFilename(FileFilter:=Microsoft Excel文件(*.xls),*.xls, MultiSelect:=True, Title:=合并工作薄) X = 1 W