excel中将一列移动到另一列(Excel表格复制多个工作簿的数据到一个工作表)

在Excel表格中数据的复制汇总是我们经常会遇到的问题，当工作表很多时一个个的复制粘贴会非常麻烦、效率非常低今天为朋友们分享一段非常简短并且实用的VBA代码来实现复制多个工作簿的数据到一张工作表的操作操作步骤：

1.新建一个Excel工作簿将其另存为启用宏的工作簿。

4.复制以下代码到刚才插入的模块：Sub 复制()Application.ScreenUpdating = FalseDim Erow As Long, wt As Worksheet, mz As String, sht As Worksheet, wb As Workbook, arr As Variant,allfilename As Variant, openfile As Variant

allfilename = Application.GetOpenFilename(FileFilter:="所有文件,*.*,Excel文件,*.xls; *.xlsx *.xlsm", Title:="选择要复制的工作簿", MultiSelect:=True) 选择文件

Set wt = ThisWorkbook.Worksheets(1)For Each openfile In allfilenameIf openfile <>False ThenSet wb = Workbooks.Open(openfile)

For Each sht In wb.WorksheetsErow = wt.Range("A1048576").End(xlUp).Row + 1If sht.Visible = True Thenarr = sht.Range("A1:GZ" & (sht.Range("A50000").End(xlUp).Row))

wt.Cells(Erow, "A").Resize(UBound(arr, 1), UBound(arr, 2)) = arrEnd IfNextwb.Close FalseEnd IfNextApplication.ScreenUpdating = True

End Sub

亲爱的读者们，感谢您花时间阅读本文。如果您对本文有任何疑问或建议，请随时联系我。我非常乐意与您交流。