Question

excel vba按位置找出内容并删除

A39：J1038为范围
2.为条件L2

Answer 1

Sub s()
    Dim c As Range, cto(1 To 4)
    cto(1) = 1
    cto(2) = 2
    cto(3) = 0
    cto(4) = 3
    t = [l2]
    n = Len(t)
    ReDim ct(1 To n)
    For i = 1 To n
        ct(i) = Mid(t, i, 1)
    Next
    For Each c In [a39:j1038]
        If Len(c) = 4 Then
            For i = 1 To 4
                If cto(i) Then If Mid(c, i, 1) <> ct(cto(i)) Then GoTo 100
            Next
            c = ""
        End If
100
    Next
End Sub

追问

cto(1) = 1
cto(2) = 2
cto(3) = 0
cto(4) = 4才对