关于使用VBA查找关键字匹配问题

wjd1163 · 发表于 2019-3-25 14:19

用VBA对A列的条件进行查找，查找是否包含配置表内的关键字，如包含即将配置内的结果返回到B列，如配置表内不包含，将对应的B列单元格填充为红色。

爱疯 · 发表于 2019-3-25 14:50

Sub test()

Dim A, B, i, j, k, bol
Sheets(1).Select
Cells.Interior.ColorIndex = xlNone
Range("b2:b65536") = ""
A = Range("a1").CurrentRegion
B = Sheets(2).UsedRange

For i = 2 To UBound(A)
      bol = False
      For j = 2 To UBound(B)
         For k = 2 To UBound(B, 2)

            If B(j, k) <> "" Then
                  If InStr(A(i, 1), B(j, k)) Then
                     bol = True
                     A(i, 2) = A(i, 2) & "、" & B(j, UBound(B, 2))
                     Exit For
                  End If
            End If

         Next k
      Next j
      If bol Then A(i, 2) = Mid(A(i, 2), 2) Else Cells(i, 2).Interior.ColorIndex = 3
Next i

Range("a1").Resize(UBound(A), UBound(A, 2)) = A
End Sub

wjd1163 · 发表于 2019-3-25 15:57

爱疯发表于 2019-3-25 14:50
Sub test()

Dim A, B, i, j, k, bol

出现报错了，能否将附件上传一下吗？

爱疯 · 发表于 2019-3-25 15:59

1.rar (10.49 KB, 下载次数: 19)

wjd1163 · 发表于 2019-3-25 16:22

爱疯发表于 2019-3-25 15:59

可能我前面的附件没有说清楚，我是要在一段文字上面找相关的关键字，并不是数据统计，所以才需要使用VBA实现，能否使用原附件用VBA完成此功能。
{:3_60:}

爱疯 · 发表于 2019-3-25 16:27

4楼用的是1楼附件。
没明白，比如手动做1个，能不能描述一下具体的过程

wjd1163 · 发表于 2019-3-25 17:09

爱疯发表于 2019-3-25 16:27
4楼用的是1楼附件。
没明白，比如手动做1个，能不能描述一下具体的过程

4楼好像不是1楼的附件，请看以下附件
先谢你了{:9_307:}

爱疯 · 发表于 2019-3-25 17:22

2.rar (16.62 KB, 下载次数: 97)

wjd1163 · 发表于 2019-3-26 08:06

爱疯发表于 2019-3-25 17:22
如果不是这样，请举例说明“要在一段文字上面找相关的关键字，并不是数据统计”是怎样的效果？

就是这个了，谢谢大神{:9_305:}，

		自动登录	找回密码
密码			注册