excel 模糊匹配文字?

发布网友发布时间：2022-04-29 08:48

共2个回答

热心网友时间：2022-05-30 17:11

公式不晓得，可以用vba
Sub 字符串()
Dim i, K
For i = 2 To Range("A65536").End(xlUp).Row
For j = 2 To Range("c65536").End(xlUp).Row
N = Len(Cells(i, "c"))
For R = 1 To N
Y = Mid(Cells(j, "c"), R, 1)
X = WorksheetFunction.CountIf(Cells(i, "a"), "*" & Y & "*")
K = K + X
If N = K Then
Cells(i, "E") = Cells(i, "A")
End If
Next
K = 0
Next
Next
End Sub

热心网友时间：2022-05-30 18:29

'自定义公式-按ALT+F11-插入-模块-粘贴代码-将表格另存为启用宏的格式(xlsm)
Function 包含文字(a As Range, b As String)
For i = 1 To a.Rows.Count
If a.Cells(i, 1) = "" Then Exit For
n = 0
For j = 1 To Len(b)
If InStr(a.Cells(i, 1), Mid(b, j, 1)) <> 0 Then n = n + 1
Next
If n = Len(b) Then
包含文字 = a.Cells(i, 1)
Exit For
End If
Next
End Function