excel多张表头相同，合并到一张表中：

excel多张表头相同，合并到一张表中：


Sub 工作表合并()
For Each st In Worksheets
If st.Name <> ActiveSheet.Name Then
st.UsedRange.Offset(1, 0).Copy [a65536].End(xlUp).Offset(1, 0)
End If
Next
End Sub