Question

EXCEL VBA按条件删除内容

按条件删除范围内列内容
AV7:BY12范围内,同列保留三个单元以上有标颜色的字符列
例：az7到AV12其中有三个以上或三个单元，部分内容已经标记上颜色（内容字符标上颜色）这个范围内的列为保留（反之则删除）

例：ba7到ba12, 只有ba7和ba9单元部分内容标标记上颜色,不满足三个单元以上，删除范围内列内宾（ba7：ba9范围列删除内容）

Answer 1

Sub test()
Dim str$, t$, w&
str = "1,-4105,-4142,"
For m = 48 To 56
w = 0
For n = 7 To 12
t = Cells(n, m).Value
For p = 1 To Len(t)
If InStr(str, Cells(n, m).Characters(Start:=p, Length:=1).Font.ColorIndex & ",") = 0 Then w = w + 1: Exit For
Next
Next
If w < 3 Then Range(Cells(2, m), Cells(25, m)) = ""
Next
End Sub