你打算把30+多个表格简单合并到一个表格中,是吗?是的话可以用下面的vba命令
将所有的工作表合并到你指向的工作表中,瞬间就可以完成。
Sub xyz()
For j = 1 To Sheets.Count
If Sheets(j).Name <> ActiveSheet.Name Then
X = Range("A65536").End(xlUp).Row + 1
Sheets(j).UsedRange.Copy Cells(X, 1)
End If
Next
End Sub
温馨提示:答案为网友推荐,仅供参考