怎么快速把一份excel导入到另一份excel里

建个宏然后运行：

Sub 合并Application.ScreenUpdating = FalseFor 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 IfNextRange(B1).SelectApplication.ScreenUpdating = TrueEnd Sub 懂的直接复制走用，不懂的建议别碰代码，怕翻车