怎么把EXCEL的一个工作簿中多个工作表的内容合并到一个工作表？？

Question

一个工作簿中有38个工作表，怎么把这38个工作表的内容合并到一个新的工作表？？？怎么用宏啊

Answer 1

Private Sub CommandButton1_Click()
    Dim tmpSht, srcSht As Worksheet
    Dim i, cpyStartRow      As Integer
    
    cpyStartRow = 0
    For i = 1 To Application.ActiveWorkbook.Worksheets.Count
        If i > 1 Then
            Set tmpSht = ActiveWorkbook.Worksheets(i)
            
            '' tmpSht.UsedRange.Select
            tmpSht.UsedRange.Copy
            
            srcSht.Cells(cpyStartRow, 1).Value = "----------------" & tmpSht.Name & "----------------"
            srcSht.Cells(cpyStartRow + 1, 1).Select
            srcSht.Paste
            
            cpyStartRow = cpyStartRow + tmpSht.UsedRange.Rows.Count + 1
        Else
            Set srcSht = ActiveWorkbook.Worksheets(i)
            cpyStartRow = srcSht.UsedRange.Row + srcSht.UsedRange.Rows.Count + 1
            
        End If    
    Next i
    
End Sub