Question

EXCEL VBA和配对不同内容

1。条件A在K1（这里可以输入多个字符）
3。条件C在J2
4。条件A依据和值,自动配对出结果（并插入字符到结果中）

Answer 1

Sub s()
    Const t1 = 2
    Const t2 = 3
    a = [k1].Text
    b = [j2]
    Set d = CreateObject("scripting.dictionary")
    For i = 1 To Len(a)
        d(Mid(a, i, 1)) = ""
    Next
    For i = 0 To 9
        For j = 0 To 9
            a = CStr((i + j) Mod 10)
            If d.exists(a) Then
                a = i & j
                If t1 Then a = Left(a, t1 - 1) & "配" & Mid(a, t1)
                If t2 Then a = Left(a, t2 - 1) & "对" & Mid(a, t2)
                [c6].Offset(j, i * 2) = a
                [c6].Offset(j, i * 2 + 1) = b
            End If
        Next
    Next
End Sub