EXCEL VBA对应位置结果找内容删除

2.范围在A39：J1038

2025-04-07 09:15:39

推荐回答（1个）

回答1：

Sub s()
    Dim c As Range, t(1 To 4)
    f = [c10].Text
    For Each c In [a39:j1038]
        If Len(c) = 4 Then
            For i = 1 To 4
                t(i) = Val(Mid(c, i, 1))
            Next
            For i = 1 To 3
                For j = i + 1 To 4
                    k = (10 + t(i) - t(j)) Mod 10
                    If InStr(f, k) Then GoTo 100
                Next
            Next
            c = ""
        End If
100
    Next
End Sub