发布网友
共2个回答
热心网友
Sub 工作簿合并()
For Each st In Worksheets
If st.Name <> ActiveSheet.Name Then st.UsedRange.Offset(1, 0).Copy [a65536].End(xlUp).Offset(1, 0)
Next
End Sub
新建一个工作表,按ALT+F11,双击新建表,把上面代码粘贴进去,按F5,
切换到工作表 查看
热心网友
这个要看具体表格的情况,如果有样表请发上来