在 Sheet1 中找到一个单元格，然后将其所在的整个行复制到 Sheet2 中的第一个空行

Question

我在以下行开始收到“下标超出范围”： Sheets(“Sheet1”).Cells("A", i).EntireRow.Copy 。如何将该行复制并粘贴到 Sheet2 中的第一个打开的行。

Sub IDwalkups()
Dim endRow As Long
Dim Match1() As Variant
Dim ws As Worksheet
Set ws = Worksheets("Sheet1")
ICount = 0
endRow = Sheet1.Range("B999999").End(xlUp).Row

Match1 = Sheet1.Range("E3:E" & endRow)
For i = LBound(Match1) To UBound(Match1)
    If Match1(i, 1) = "W" Then

    Sheets(“Sheet1”).Cells("A", i).EntireRow.Copy Destination:=Sheets   (“Sheet2”).Range(“A” & Rows.Count).End(xlUp).Offset(1)

    Else
   End If
Next i
End Sub

Answer 1

你遇到的三个错误是：

• 使用“ 和” 而不是"。例如，“Sheet1” 是一个有效的变量名，可以在诸如“Sheet1” = 5 * 2 之类的语句中使用。从语法上讲，它与 "Sheet1" 完全不同，后者是一个字符串文字。
• 使用Cells("A", i) 代替Cells(i, "A") - Cells 的第一个参数是行，第二个参数是列。
• 在使用 Rows.Count 时不限定您所指的工作表（但很有可能无论如何这都会起作用）

所以

Sheets(“Sheet1”).Cells("A", i).EntireRow.Copy Destination:=Sheets   (“Sheet2”).Range(“A” & Rows.Count).End(xlUp).Offset(1)

应该是

Sheets("Sheet1").Cells(i, "A").EntireRow.Copy Destination:=Sheets("Sheet2").Range("A" & Sheets("Sheet2").Rows.Count).End(xlUp).Offset(1)

Answer 2

我看到 2 个错误。 首先，复制和粘贴是两个步骤（2 个命令）。其次，如果您使用Cells，则必须将行和列作为数字参数。您必须将其更改为Range。

    If Match1(i, 1) = "W" Then
        Dim sourceRange As Range, destRange As Range
        Set sourceRange = ws.Range("A" & i).EntireRow
        ' or Set sourceRange = ws.Cells(i, 1).EntireRow
        sourceRange.Copy
        Set destRange = Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1)
        destRange.PasteSpecial
    End If