Question

Excel将一个工作表中有颜色标记的行放置到另一个工作表中

1：将sheet1中有颜色标记部分提取到sheet2中从第二行开始排列，填充色去除。2：用VBA代码实现。





Answer 1

无疑问，这个问题得用宏，关键是，颜色是手工填充的，还是代码填充的，还是条件格式填充的？如果是最后一种，也可以用公式，不过得标明条件是什么。

追问

颜色是代码填充的！
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Target.EntireRow.Interior.ColorIndex = IIf(Target.Interior.ColorIndex = xlColorIndexNone, 9, 0)
End Sub

等筛选好资料后手动运行宏得到sheet2

追答

Public Sub CXsj()
    Dim CXrng As Range, XRrng As Range
    Set XRrng = Sheets("Sheet2").Range("A2")
    For Each CXrng In Sheets("Sheet1").Range("A2:A" & Sheets("Sheet1").Range("A65536").End(xlUp).Row)
        If CXrng.Interior.ColorIndex = 9 Then
            XRrng.EntireRow.Value = CXrng.EntireRow.Value
            Set XRrng = XRrng.Offset(1, 0)
        End If
    Next
End Sub

追问

谢谢您