vba - 我想复制第一列中与 A3、A4、A5、A6 中具有相同单词的整行的某些部分并从空行粘贴到另一张纸上？

Question

我在 copySheet.sheet1 中有一些行，第一列中有一些特殊关键字为 "Ojha"。所以我想复制第一行中具有“Ojha”的整行并将其粘贴到另一个 pasteSheet.sheet2 中。起初我发现那个细胞有“Ojha”。所以我把它放在Foundcell中。所以现在我用...:

Foundcell.EntireRow.Copy

& 在另一张纸上，我首先找到行将粘贴的空行，所以

RowCount = WorksheetFunction.CountA(pasteSheet.Range("A:A")) + 1

pasteSheet.Range("A" & RowCount).PasteSpecial xlPasteValues

所以它只粘贴了第一行有“Ojha”
所以现在我想复制所有在第一列中有“Ojha”的行并粘贴到下一个旁边的 pasteSheet。

Answer 1

如果您只想遍历单元格，这将起作用

Sub Loopy()
    Dim sh As Worksheet, ws As Worksheet
    Dim Rws As Long, rng As Range, c As Range

    Set sh = Sheets("Sheet1")
    Set ws = Sheets("Sheet2")

    Application.ScreenUpdating = 0

    With sh
        Rws = .Cells(.Rows.Count, "A").End(xlUp).Row
        Set rng = .Range(.Cells(1, 1), .Cells(Rws, 1))
    End With

    With ws
        For Each c In rng.Cells

            If c = "Ojha" Then
                c.EntireRow.Copy
                .Cells(.Rows.Count, "A").End(xlUp).Offset(1).PasteSpecial xlPasteValues
            End If

        Next c
    End With

    Application.CutCopyMode = 0

End Sub

您还可以使用自动过滤宏...