Question

excel把30个工作薄中名称为"张三"的工作表合并在一个表中（这些表格式都一样的）用什么方法

EXCEL有30个工作薄，每个工作薄里面有4个表（张三、李四、王二、孙五），我要把30个工作薄中工作表名称为“孙五”的全部合并在一个工作表中

若以下回答无法解决问题，邀请你更新回答

Answer 1

知道VBA吗?这个要用VBA来做, 这30个工作薄在一个目录里吗?合并的工作表放在一个新的工作薄里吗?追问

追问

EXCEL有30个工作薄，每个工作薄里面有4个表（张三、李四、王二、孙五），我要把30个工作薄中工作表名称为“孙五”的全部合并在一个工作表中

都在一个目录，放在新的工作表合并成一个表

追答

代码如下,你可以自己在要合并文件的目录里建立一个新的工作薄,在sheet1上点击鼠标右键选查看代码 然后复制粘贴下面的代码,执行.也可以下载附件放到你要合并文件的目录中,打开这个文件 按ALT+F8 选中"合并孙五" 点击执行.

Sub 合并孙五()
On Error Resume Next
Sheet1.Cells = ""
Dim FileName As String
Dim WK As Workbook
Dim MyEndRow As Long
Dim Rng As Range
FileName = Dir(ThisWorkbook.Path & "\*.xls")
If FileName <> "" Then
    Do
        If FileName <> ThisWorkbook.Name Then
            N = N + 1
            Set WK = Workbooks.Open(ThisWorkbook.Path & "\" & FileName)
            MyEndRow = Range("A65536").End(xlUp).Row
            WK.Sheets("孙五").UsedRange.Copy
            Range("A" & MyEndRow + 1).PasteSpecial
            WK.Close
        End If
        FileName = Dir
    Loop While FileName <> ""
End If
BT = Range("A2").Value
For Each Rng In Range("A3:A" & UsedRange.Rows.Count)
    If Rng.Value = BT Then Rng.EntireRow.Delete
Next
MsgBox "处理完毕!共处理文件" & N & "个."
End Sub