回答:这个首先要获取RGB值吧!然后再利用RGB数值返回你需要的数值
Sub 根据颜色填充值()
Dim ws As Worksheet
Dim lastRow As Long
Dim i As Long
Dim targetColor As Long ' 目标颜色的RGB值
' 设置工作表(如Sheet1),可修改为实际表名
Set ws = ThisWorkbook.Worksheets("Sheet1")
' 获取A列最后一行数据
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
' 遍历A列从第1行到lastRow
For i = 1 To lastRow
' 获取A列单元格的填充色(RGB值)
@WPS产品体验官
创作者俱乐部成员
@WPS产品体验官