如果单元格的颜色为绿色，则从Sheet1复制一行并将其粘贴到工作表2中

Sub CopyGreenRow()
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Dim i As Integer
    Dim lastRow As Integer
    
    ' 设置要复制的工作表
    Set ws1 = ThisWorkbook.Sheets("Sheet1")
    
    ' 设置要粘贴的工作表
    Set ws2 = ThisWorkbook.Sheets("工作表2")
    
    ' 获取Sheet1最后一行的行号
    lastRow = ws1.Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 循环检查每一行的背景色
    For i = 1 To lastRow
        If ws1.Cells(i, 1).Interior.Color = RGB(0, 255, 0) Then ' 绿色的RGB值为(0, 255, 0)
            ' 复制该行到工作表2
            ws1.Rows(i).Copy ws2.Rows(ws2.Cells(Rows.Count, 1).End(xlUp).Row + 1)
        End If
    Next i
End Sub