|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
测试有效
Sub ExtractNonDefaultColorChars()
Dim ws As Worksheet
Dim rng As Range
Dim cell As Range
Dim char As String
Dim i As Integer
Dim result As String
Set ws = Worksheets("Sheet1")
Set rng = ws.Range("B12") '此处修改单元格范围
For Each cell In rng '循环
result = ""
For i = 1 To Len(cell.Value)
char = Mid(cell.Value, i, 1)
If cell.Characters(i, 1).Font.Color <> RGB(0, 0, 0) Then
result = result & char
End If
Next i
Range("C12") = result '此处修改输出单元格范围
Next cell
End Sub
|
|