这似乎相对简单,而且据我所知,是可以实现的。但我似乎无法弄清楚或在互联网上找到我要找的东西。
我有一些Excel数据在A列中,其中一些数据是蓝色的(0,0,255),一些是红色的(255,255,255),一些是绿色的(0,140,0)。我想删除所有蓝色的数据。
我被告知:
Sub test2()
Range("A2").DisplayFormat.Font.Color
End Sub
我想获取颜色...但是当我运行它时,它会提示属性无效并突出显示.color
相反,我点击了: 字体颜色下拉菜单 然后更多颜色 然后自定义颜色 然后我可以看到蓝色数据在(0,0,255)
所以我尝试了:
Sub test()
Dim wbk As Workbook
Dim ws As Worksheet
Dim i As Integer
Set wbk = ThisWorkbook
Set ws = wbk.Sheets(1)
Dim cell As Range
With ws
For Each cell In ws.Range("A:A").Cells
'cell.Value = "'" & cell.Value
For i = 1 To Len(cell)
If cell.Characters(i, 1).Font.Color = RGB(0, 0, 255) Then
If Len(cell) > 0 Then
cell.Characters(i, 1).Delete
End If
If Len(cell) > 0 Then
i = i - 1
End If
End If
Next i
Next cell
End With
End Sub
我在多个网站上找到了这个解决方案,但是当我运行它时,好像什么也没有发生。