åºè¯¥æ¯é¤äºç©ºæ ¼å®å
¨å¹é
çå§ã
Private Function MyFunction10()
Dim I As Long, J As Long, Str
For I = Range("A65536").End(xlUp).Row To 1 Step -1 'éè¦å é¤çå
For J = 1 To Range("B65536").End(xlUp).Row 'æ¥æ¾çå
Str = Split(Range("B" & J).Text, " ") 'æç©ºæ ¼åå²
Str = Join(Str, "") 'éæ°ç»ååå³å¯å»æç©ºæ ¼
If InStr(Str, Range("A" & I).Text) > 0 Then Range("A" & I).Delete: Exit For 'æ¯è¾
Next
Next
MsgBox "å®æï¼"
End Function
温馨提示:内容为网友见解,仅供参考