Question

excel vba中给相同字符填充颜色

1。b6为条件(条件可输多个字符)
2。B8:B17为范围(如果修改为C列时，如何修改请注解)

Answer 1

Sub xx()
  Const a = 2 'C列改为3
  n = Len(Cells(7, a).Text) '如果是b6把7改为6
  ReDim arr(1 To n)
  For i = 1 To n
    arr(i) = --Mid(Cells(7, a).Text, i, 1) '如果是b6把7改为6
  Next
  For i = 8 To 17
    With Cells(i, a)
      For j = 3 To Len(.Text)
        t = --Mid(.Text, j, 1)
        For k = 1 To n
          If t = arr(k) Then .Characters(j, 1).Font.ColorIndex = 3
        Next
      Next
    End With
  Next
End Sub

Answer 2

代码如下：

Sub Macro1()
Dim i As Integer
For i = 8 To 17        '8至17行
    If Cells(i, 2) = Cells(6, 2) Then        'cells(6,2)是6行2列的单元格内容，C列为3
        Cells(i, 2).Interior.ColorIndex = 6        '6是黄色，可取0到56
    End If
Next
End Sub