|
发表于 2013-11-11 20:38
|
显示全部楼层
本楼为最佳答案
- Sub tsst()
- Dim arr, a
- Dim arrCon
- Dim arrA(1 To 65536, 1 To 1), lPos As Integer
- arr = ActiveSheet.UsedRange.Columns(2).Value
- arrCon = Range(Range("c3"), Range("c3").End(xlToRight)).Value
- For Each a In arr
- If Len(a) Then
- For Each b In arrCon
- If myfun1(Trim$(a), Trim$(b)) Then
- lPos = lPos + 1
- arrA(lPos, 1) = "'" & a
- Exit For
- End If
- Next
- End If
- Next
- If lPos Then
- Columns(1).Clear
- Range("a1").Resize(lPos).Value = arrA
- MsgBox "完成"
- End If
- End Sub
- Function myfun1(str1 As String, str2 As String) As Boolean
- If str1 Like "*" & str2 & "*" Or str1 Like "*" & StrReverse(str2) & "*" Then
- myfun1 = True
- End If
- End Function
复制代码 |
|