在Excel中简单重复macros

我GOOGLE了这一点，但无法find明确的答案。

我有一个包含大量工作表的工作簿，每个工作表都包含采购订单信息。 我想复制每个工作表的同一单元格范围，并编译所有这些范围的长列表。

我的代码是目前;

Sub WorksheetLoop() Sheets("5040001253").Select Range("A4:O23").Select Selection.Copy Sheets("PO_Combi").Select lastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row ActiveSheet.Range("A" & lastRow + 1).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False End Sub 

我的问题是：是否有一个简单的命令，允许replace名为5040001253表，这将使这个macros在所有表中重复？ 如果没有，有人可以告诉我该怎么做才能做到这一点？

Answer 1

下一个代码将每个表（ PO_Combi除外）的Range("A4:O23") PO_Combi到表PO_Combi A列：

 Sub WorksheetLoop() Dim sh As Worksheet Dim shCombi As Worksheet Dim lastrow As Long Set shCombi = ThisWorkbook.Worksheets("PO_Combi") For Each sh In ThisWorkbook.Worksheets With shCombi If sh.Name <> .Name Then lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row sh.Range("A4:O23").Copy .Range("A" & lastrow + 1).PasteSpecial xlPasteValues End If End With Next Application.CutCopyMode = False End Sub