Vba关键字模糊查找

怎么个模糊法？模糊的条件是什么呢？既然看到了，我就按照我的假设来写一段。
假设：把所有单元格中包含字母 “g”的行复制出来，代码要放在表“sheet”中
ss1 = ActiveCell.Row '读取当前单元格的行，这是为了后面复位单元格做准备
ss2 = ActiveCell.Column '读取当前单元格的列
s1 = Worksheets("sheet1").UsedRange.Rows.Count '数据区的行数
s2 = Worksheets("sheet1").UsedRange.Columns.Count '列数
s3 = Worksheets("sheet1").UsedRange.Row '数据区的起始行
s4 = Worksheets("sheet1").UsedRange.Column '起始列
hs = 1 '复制到sheet2的起始行，这个参数你自己调整
For i = s3 To s1 + s3 - 1 '循环第一行到最后一行
For j = s4 To s2 + s4 - 1 '循环第一列到最后一列
If Cells(i, j) Like "*g*" Then '这里是迷糊条件，我假设是包含字母“g”，你自己修改
Rows(i).Copy Worksheets("sheet2").Cells(hs, 1) '复制到sheet2的第 hs 行第 1 列
hs = hs + 1 '复制一次行数就要+1
Exit For '本行任意单元格满足条件就退出，后面其他单元格没必要再判断了
End If
Next j
Next i
Cells(ss1, ss2).Select '单元格复位，仍回到代码开始前的那个单元格