Question

excel vba删除单元格位置相同的内容

1。F6条件=ACDFG
2。范围A33：J1032
3。当范围内的内容有2个以上字符串的位置与F5相同时，删除此单元

Answer 1

Sub xxx()
    Dim arr(1 To 4)
    s = [f5]
    For i = 1 To 4
        arr(i) = Mid(s, i, 1)
    Next
    For i = 1 To 10
        For j = 1032 To 33 Step -1
            c = Cells(j, i)
            n = 0
            For k = 1 To 4
                If arr(k) = Mid(c, k, 1) Then n = n + 1
            Next
            If n >= 2 Then Cells(j, i).Delete shift:=xlUp
        Next
    Next
End Sub