EXCEL 提取表中有颜色的行至另一个表

2025-12-04 10:13:25

推荐回答（4个）

回答1：

2007及其以上版本可以按底纹颜色排序排序后集中到一起组成连续单元格区域再复制粘贴到另一个工作表中

回答2：

Sub test()
With Worksheets("sheet1")
    For i = 1 To .UsedRange.Rows.Count
        If Cells(i, 1).Interior.Color = vbYellow Then
            .Rows(i).Copy Worksheets("sheet2").[a65536].End(xlUp).Offset(1, 0)
        ElseIf Cells(i, 1).Interior.Color = vbRed Then
            .Rows(i).Copy Worksheets("sheet3").[a65536].End(xlUp).Offset(1, 0)
        End If
    Next
End With
End Sub

回答3：

Excel 2007 可以按颜色来筛选的。

回答4：

筛选是最简单的了