Excel：根据单元格在另一张工作表上复制和插入行

Question

我正在尝试编写一个代码来检查 D 列中名为 All 的主表中的数字（例如 780101），如果它符合条件，它会复制整行并插入 （不粘贴）它到另一个具有条件名称的工作表（例如 780101），从第 6 行开始。 我拥有的代码不像我想要的那样工作。它不会复制所有符合条件的行，有时会插入空白行。

Sub Insert()
For Each Cell In Sheets("All").Range("D:D")
If Cell.Value = "780101" Then
    matchRow = Cell.Row
    Rows(matchRow & ":" & matchRow + 1).Select
    Selection.Copy
    Sheets("780101").Select
    Rows("6:6").Select
    Selection.Insert Shift:=xlDown
End If
Next
End Sub

我刚开始学习 VBA，所以如果可能的话，工作表的名称将成为单元格值的标准（代码仅针对一张工作表 - 780101，但有 20 个工作表不同的名字）。

Answer 1

如果不查看示例数据以及可能导致您遇到的问题的原因，很难提出建议，但您可以对现有代码运行此 rehash。

Sub Insert()
    Dim dc As Range
    With Sheets("All")
        For Each dc In Intersect(.Range("D:D"), .UsedRange)
            If dc.Value2 = 780101 Then
                dc.Resize(2, 1).EntireRow.Copy
                Sheets("780101").Rows(6).Insert Shift:=xlDown
            End If
        Next
    End With
End Sub

从上到下运行的性质意味着结果将相反。您不妨考虑从下到上运行主循环以保持顺序。