需要复制＆amp;从几张不同的纸张垂直粘贴到一张纸上

Question

我正在尝试编写一个宏，它将从工作表复制一系列单元格，将它们粘贴到包含所有粘贴数据的工作表（“批量处理表”）中，然后转到第一个工作表之后的下一个选项卡。这需要40多个标签。幸运的是，数据位于每个标签的相同位置，包括批量处理表标签。

我可以很容易地将其应用于一个标签，但是返回到第一个活动标签，然后转到下一个标签，这给我带来了麻烦。

实施例。代码（缩写为关键位）。在底部，Next将是我需要移动到下一个工作表并执行相同功能的地方，返回“Bulksheet”并粘贴到C列中的下一个空单元格中。：

angular.element(document).ready(function () {

    // your code here

});

Answer 1

尝试使用索引值循环遍历工作表。

Sub
Dim i as integer
For i = 1 to worksheets.count
sheets(i).Activate
if activesheet.name <> "Bulksheet" then
Range("C100:F103").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Bulksheet").Select
Range("D1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
end if
Next
End Sub

Answer 2

试试这个：

Sub CopyToBulksheet()
Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets
    If ws.Name <> "Bulksheet" Then
        ws.Activate
        Range("C1:F10").Copy

        Sheets("Bulksheet").Select
        Range("D" & Cells.Rows.Count).End(xlUp).Offset(1, 0).Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    End If
Next
End Sub