Question

EXCEL VBA填充区域

1。区域1的范围为C19：L28

Answer 1

Sub s()
    Dim a$, b$, c As Range, d As Object, i%
    a = [t11]
    b = [t12]
    If Len(a) <> Len(b) Then
        MsgBox "Ìõ¼þ×Ö·û²»Ò»ÖÂ"
        Exit Sub
    End If
    Set d = CreateObject("scripting.dictionary")
    For i = 1 To Len(a)
        d(Mid(a, i, 1) & Mid(b, i, 1)) = ""
    Next
    For Each c In [c19:l28]
        If d.exists(c.Text) Then
            c.Interior.ColorIndex = 6
        End If
    Next
End Sub