vba如何进行字符模糊查找

2021年11月1日 作者： 来源：

用一个判断语句,判断一个单元格的内容中包含某个字或词以确定其为某类型,如:有一个表的A3中单元格中的内容为"一类科目",则经过判断"一类"一词来确定该条数据为一类。A4单元格中的内容为"二类科目",则通过判断"二类"一词来确定该条数据为二类.

代码如下：
Sub 查找()

Sheets("Sheet1").Select

lastrow = [A65536].End(xlUp).Row'作用是寻找到本表格的最后一行
  
For i = 1 To lastrow
If InStr(Cells(i, 1), "一类") > 0 Then
Cells(i, 2) = "一类"
Else
Cells(i, 2) = "二类"
End If
Next i

End Sub