从工作表复制行并粘贴到一张主工作表中[重复]

Question

这个问题在这里已经有了答案：

VBA 整数溢出 70,000 （1 个回答）

VBA 宏在 32000 行后崩溃（3 个回答）

4 小时前关闭。

我的 Excel 文件中有 247 张工作表，我需要从每张工作表中复制行并粘贴到一个“主”工作表中。 每张纸有 100 到 400 行。 出于某种原因，我拥有的代码省略了大部分工作表，似乎可以工作并且只复制了几张工作表。

Sub CleanV2()
Dim ws As Worksheet
Dim Lastrow As Long
Dim finalRow As Long
Dim H As Integer

Application.ScreenUpdating = True

'''''''''Paste to Analysis'''''
    
For Each ws In ActiveWorkbook.Worksheets
If ws.Name <> "ImportCommand" And ws.Name <> "Analysis" And ws.Name <> "Cities" Then
ws.Select

Lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Range("A1:H" & Lastrow).Select
Selection.Copy
 Sheets("Analysis").Select
 
 
  finalRow = Cells(Rows.Count, 1).End(xlUp).Row
 
H = finalRow + 1
 'Sheets("MasterData").Select
Sheets("Analysis").Range("$A$" & H).Select
On Error Resume Next
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
On Error Resume Next

End If
Next
''''''Finish paste'''''

End Sub

任何帮助为什么代码不复制和粘贴每张纸的原因。 似乎代码正在复制每张纸，但粘贴未按需要工作。

谢谢