excel如何把同一个工作簿中，指定工作表合并到一张工作表上（请使用VBA）

比如，我工作簿中有表1，表2，表3，表4，表5，表6。每张表的表头都是2行。我想只合并表1，表2，表3，表4.这四张表合并到 一张总表上，要求只留表1的表头。如何写啊。我都折腾了3天了，总是全部合并，，，求大神帮忙啊。谢谢啊。。。

按ALT+F11调出VBA窗口，插入一个模块，然后把下面的代码复制进去。

Sub hz()
   Set NewSheet = Sheets.Add(Type:=xlWorksheet) '生成一个新表
   Sheets(NewSheet.Index).Move Before:=Sheets(1) '将此新表移动到最前面
   For i = 2 To Worksheets.Count
   Sheets(i).UsedRange.Copy NewSheet.Cells([a65536].End(xlUp).Row + 2, 1) '将其他表的已使用区域复制到新表中
   Next i
   MsgBox "合并完成"
End Sub

执行代码即可

追问

这样不是就把这个工作薄中所有表都合并了呢，并且，所有表的表头是一样的，表头有两行，用您的方法，会留下所有的表头，我们只需要留下表1的表头就行了。希望我能说清楚了，

追答

哦，这样呀，那就把代码改成下面：

Sub hz()
   Set NewSheet = Sheets.Add(Type:=xlWorksheet) '生成一个新表
   Sheets(NewSheet.Index).Move Before:=Sheets(1) '将此新表移动到最前面
   For i = 2 To Worksheets.Count
    na = Sheets(i).Name
    If na = "表一" Then Sheets(i).UsedRange.Copy NewSheet.Cells([a65536].End(xlUp).Row + 1, 1)
    If na = "表二" Or na = "表三" Or na = "表四" Then
        Sheets(i).UsedRange.Offset(2, 0).Copy NewSheet.Cells([a65536].End(xlUp).Row + 1, 1)
    End If
   Next i
   MsgBox "合并完成"
End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：http://55.wendadaohang.com/c/0984364196371223842.html