在VBA中匹配字符串中的单个单词
在VBA中匹配字符串中的单个单词
提问于 2017-03-17 00:26:20
这里的Excel 2013 --我试图将D单元格中的值与C单元中的值相匹配，这一部分让我把头发拔了出来，那就是，如果C栏中存在一个单词，那么它就应该从D列中删除。
例如
Column C Column D
Red Hairy Hats Hairy Cowpies由于这两个字段都包含单词Hairy，因此应该更新为如下所示
Column C Column D
Red Hairy Hats Cowpies我无法发现如何在Excel中进行字符串比较的通配符匹配。我有一个与完全匹配的语法，但是如何才能像上面的示例那样从字符串中执行单个单词呢？
Dim i As Long
Dim resArry
dataArry = Cells(1).CurrentRegion
ReDim resArry(UBound(dataArry, 1) - 1, 1)
For i = 2 To UBound(dataArry, 1)
If InStr(1, dataArry(i, 3), dataArry(i, 4), vbBinaryCompare) Then
resArry(i - 2, 0) = ""
Else
resArry(i - 2, 0) = dataArry(i, 4)
End If
Next
Range("D2").Resize(UBound(resArry, 1)) = resArry回答 3
Stack Overflow用户
回答已采纳
发布于 2017-03-17 00:50:43
带有变体数组的RegExp选项。
为每一个C字符串和每一个D字符串创建一个模式，作为整个单词的替换
B(红毛帽子)\b
等
Sub Interesting()
Dim rng1 As Range
Dim X, Y
Dim lngCnt As Long
Dim ObjRegex As Object
Set rng1 = Range([c1], Cells(Rows.Count, "c").End(xlUp))
X = rng1.Value2
Y = rng1.Offset(0, 1).Value2
Set ObjRegex = CreateObject("vbscript.regexp")
With ObjRegex
.Global = True
For lngCnt = 1 To UBound(X, 1)
.Pattern = "\b(" & Join(Split(X(lngCnt, 1), Chr(32)), "|") & ")\b"
Y(lngCnt, 1) = .Replace(Y(lngCnt, 1), vbNullString)
Next
End With
rng1.Offset(0, 1).Value2 = Y
End SubStack Overflow用户
发布于 2017-03-17 00:50:21
这不是一个完整的答案，因为我对VBA有点生疏，但与其使用instr查找匹配，您可能会更成功地将两个字符串拆分成数组。
这个过程应该是这样的：
- 使用空格拆分两个字符串
- 对于第二个数组中的每个元素
- 测试它是否在第一个数组中
- 如果是，则移除元素。
- 使用空格将第二个数组重新加入到字符串中。
- 重复冲洗
Stack Overflow用户
发布于 2017-03-17 00:52:20
Private Sub Test()
Dim C As String, D As String
C = "Red Hairy Hats"
D = "hairy cowpies"
Debug.Print RemoveMatches(C, D)
End Sub
Private Function RemoveMatches(C As String, D As String) As String
Dim Sp() As String
Dim i As Integer
Sp = Split(C)
For i = 0 To UBound(Sp)
If InStr(1, D, Sp(i), vbTextCompare) Then
D = Trim(Replace(D, Sp(i), "", Compare:=vbTextCompare))
End If
Next i
RemoveMatches = D
End Function页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/42847137
复制相关文章
相似问题
腾讯云开发者
