|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
Sub test()
Dim arr, x, c, i
arr = Sheet1.Range("n1").CurrentRegion.Value
With Sheet1.Range("c1")
For j = 1 To UBound(arr, 2)
For i = 1 To UBound(arr)
x = InStr(.Value, arr(i, j))
If x Then
c = Len(arr(i, j))
With Sheet1.Range("c1").Characters(Start:=x, Length:=c).Font
.Color = -16776961
.Bold = True
End With
End If
Next i
Next
End With
MsgBox "核对完成!"
End Sub
Sub 恢复颜色()
With Sheet1.Range("c1").Font
.ColorIndex = xlAutomatic
.Bold = False
End With
End Sub |
评分
-
1
查看全部评分
-
|