Question

excel VBA删除与条件符合的内容 代码3

1。条件在F3
2。范围A33：J1032
3。删除与条件符合的内容

Answer 1

Sub cxx()
arr = Split([F3], "/")
N = UBound(arr) + 1
ReDim S(1 To N, 1 To 2)
For I = 0 To UBound(arr)
S(I + 1, 1) = Left(arr(I), 1)
S(I + 1, 2) = Right(arr(I), 1)
Next
For I = 1 To 10
For J = 1032 To 33 Step -1
For k = 1 To N
c = Cells(J, I)
If (Mid(c, 1, 1) - -Mid(c, 4, 1)) Mod 10 - S(k, 1) = 0 And (Mid(c, 3, 1) - -Mid(c, 3, 1)) Mod 10 - S(k, 2) = 0 Then
Cells(J, I).Delete shift:=xlUp
Exit For
End If
Next
Next
Next
End Sub

Answer 2

看不到条件 不好说

Answer 3

temp = Range("a33:j1032").Replace(Range("f3"), "", xlWhole)