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

分类: 文章 • 2025-04-20 08:39:28

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