将EXCEL中的多个SHEET中内容合并到一个SHEET中

Sub hb()Dim bt, i, r, c, n, first As Longbt = 1 #表头行数，多行改为对应数值#Cells.ClearFor i = 1 To Sheets.CountIf Sheets(i).Name <> ActiveSheet.Name ThenIf first = 0 Thenc = Sheets(i).Cells(1, Columns.Count).End(xlToLeft).ColumnSheets(i).Range("A1").Resize(bt, c).Copy Range("A1")n = bt + 1: first = 1End Ifr = Sheets(i).Cells(Rows.Count, "A").End(xlUp).RowSheets(i).Range("A" & bt + 1).Resize(r - 1, c).Copy Range("A" & n)n = n + r - btEnd IfNextEnd Sub