vba如何将标有颜色的单元格挑出

用下面的代码，可以把每一行A列的填充颜色写入F列中（如果F列已经使用可以改为其它列）：

 Option ExplicitSub ygb()
    Dim i As Long
    For i = 1 To Sheet1.UsedRange.Rows.Count
        Sheet1.Cells(i, "F") = Sheet1.Cells(i, "A").Interior.ColorIndex
    Next i
End Sub

Option Explicit

Sub ygb()
    Dim i As Long
    For i = 1 To Sheet1.UsedRange.Rows.Count
        Sheet1.Cells(i, "F") = Sheet1.Cells(i, "A").Interior.ColorIndex
    Next i
End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/ef333yr2j73yvvy27y.html