Excel VBA 如果 A 列中的单元格为红色，则将行复制到另一张表的最后一行

Question

我需要帮助解决这个问题：

Set sht = ThisWorkbook.Worksheets("Report")
Set ws1 = ThisWorkbook.Worksheets("Abgleich blaue Seite")
With ws1.UsedRange
ws1row = ws1.Cells(ws1.Rows.count, "A").End(xlUp).row
End With
    
    For i = ws1row To 3 Step -1
        If Cells(i, 1).Interior.ColorIndex = 3 Then _
        erow = sht.Cells(sht.Rows.count, "A").End(xlUp).row
        ws1.Cells(i, 1).EntireRow.Copy Destination:=sht.Cells(erow, 1)
    Next i

如果 A 列中的单元格为红色（索引 = 3），我尝试将工作表 ws1 中的行复制到最后一行的其他行但是，我的代码出现错误，我不知道如何解决...

Answer 1

您需要从if中删除_ ，这会导致erow位于if内部而副本位于外部。

您可能希望erow也为+ 1 ，否则您将覆盖只保留最后一个循环。

我还建议添加ws1. 到Cells(i, 1)以确保您使用的是正确的工作表。

全部一起：

Set sht = ThisWorkbook.Worksheets("Report")
Set ws1 = ThisWorkbook.Worksheets("Abgleich blaue Seite")
With ws1.UsedRange
    ws1row = ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row
End With
    
    For i = ws1row To 3 Step -1
        If ws1.Cells(i, 1).Interior.ColorIndex = 3 Then
            erow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row + 1
            ws1.Cells(i, 1).EntireRow.Copy Destination:=sht.Cells(erow, 1)
        End If
    Next i