vba - 将突出显示的绿色复制到另一个工作表

Question

我设法复制了同一张表中的单元格。但这不是我的主要意图。我应该能够将突出显示的单元格复制到另一个工作表，如 Sheet2 或 Sheet3。我怎么做？

以下是我在同一张纸上复制所做的

Sub copyHighlight()
    Dim ws As Worksheet
    Dim lr As Long, i As Long, u As Long

    Set ws = ThisWorkbook.Worksheets("Sheet1")

    With ws
        lr = .Cells(Rows.Count, 1).End(xlUp).Row
        If 2 > lr Then Exit Sub

        u = 2
        For i = 2 To lr
            If .Cells(i, 1).Interior.ColorIndex = 4 Then
                .Cells(i, 1).Copy .Cells(u, "E")
                u = u + 1
            End If
        Next i
    End With

    Set ws = Nothing
End Sub

Answer 1

搞清楚如何只复制某些单元格的工作做得很好，这难倒了很多人。

微小变化:添加 Sheets("Sheet2")如下:

Sub copyHighlight()
    Dim ws As Worksheet
    Dim r As Long, i As Long, u As Long

    Set ws = ThisWorkbook.Worksheets("Sheet1")

    With ws
        lr = .Cells(Rows.Count, 1).End(xlUp).Row
        If 2 > lr Then Exit Sub

        u = 2
        For i = 2 To lr
            If .Cells(i, 1).Interior.ColorIndex = 4 Then
                .Cells(i, 1).Copy Sheets("Sheet2").Cells(u, "E")
                u = u + 1
            End If
        Next i
    End With

    Set ws = Nothing
End Sub