EXCEL 用宏合并工作表的代码问题,初级问题,高手直接来拿分吧~_百度知...

发布网友发布时间：2024-09-30 12:31

共2个回答

热心网友时间：2024-10-15 05:32

你在取得源表的最后一行时没有指定工作表，于是取的都是sheet1的最后一行，所以会出现你说的这种情况。这样修改试试：
Sub 合并()
Dim i As Integer
For i = 2 To Worksheets.Count Step 1
Worksheets(i).Range("1:" & Worksheets(i).[a65536].End(3).Row).Copy [a65536].End(3).Offset(1)
Next
End Sub

热心网友时间：2024-10-15 05:36

试下这个，是知道里别人的回答。
Sub 复制合并()
Application.ScreenUpdating = False
For i = 1 To Sheets.Count - 1
Sheets("第" & i & "表").Range("A:B").Copy Sheets("sheet1").Cells(1, i * 2 - 1)
Next
Application.ScreenUpdating = False
End Sub

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com