excel2003怎么合并工作表

学习啦在线学习网 　　在excel中，想要合并两个内容相似的工作表，应该怎么设置呢?下面随学习啦小编一起来看看吧。

　　excel合并工作表的步骤

　　每个文件夹中的工作簿都输入了简单的内容。

　　在该文件夹中，新建立一个新的excel工作簿文件。重命名为8.

学习啦在线学习网 　　打开新建立的excel工作簿文件8.按Alt+F11或者将鼠标移动到下方工作表名称sheet1上右键，选择查看代码。

学习啦在线学习网 　　在弹出的代码编辑窗口中，输入代码。注意：通过快捷键Alt+F11打开的窗口如下没有直接复制代码的面板，需要点击左上方的工程-VBA project模块，双击sheet1，即可打开代码窗口。而步骤3中的第二种方法可以直接打开代码输入窗口。

学习啦在线学习网 　　在代码窗口中，黏贴下列代码：

学习啦在线学习网 　　Sub CombineFiles()

　　Dimpath As String

　　DimFileName As String

　　DimLastCell As Range

　　DimWkb As Workbook

学习啦在线学习网 　　DimWS As Worksheet

学习啦在线学习网 　　DimThisWB As String

学习啦在线学习网 　　Dim MyDir AsString

学习啦在线学习网 　　MyDir =ThisWorkbook.path & "\"

　　'ChDriveLeft(MyDir, 1) 'find all the excel files

　　'ChDir MyDir

学习啦在线学习网 　　'Match =Dir$("")

　　ThisWB =ThisWorkbook.Name

　　Application.EnableEvents = False

学习啦在线学习网 　　Application.ScreenUpdating = False

　　path =MyDir

学习啦在线学习网 　　FileName =Dir(path & "\*.xls", vbNormal)

学习啦在线学习网 　　Do UntilFileName = ""

　　If FileName <> ThisWB Then

　　Set Wkb = Workbooks.Open(FileName:=path & "\"& FileName)

　　For Each WS In Wkb.Worksheets

学习啦在线学习网 　　Set LastCell = WS.Cells.SpecialCells(xlCellTypeLastCell)

　　If LastCell.Value = "" And LastCell.Address = Range("$A class="main">