用自定义函数，需要辅助列
或直接用代码完成
Sub 提取颜色()
Columns("P") = ""
Dim I%
For I = 2 To Range("J65536").End(xlUp).Row
If Cells(I, "J").Interior.ColorIndex = 6 Then
Cells(I, "P") = Cells(I, "J")
End If
If Cells(I, "M").Interior.ColorIndex = 6 Then
Cells(I, "P") = Cells(I, "M")
End If
Next
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024