求一段Excel宏模糊查询的代码（excel宏程序编程100例）

Sub 模糊查找()Sheets("sheet2").Selecta = Range("b3")x1 = Sheets("sheet1").[a65536].End(xlUp).Rowx2 = [d65536].End(xlUp).RowIf x2 0 Then For j = 1 To 7 Cells(m, j + 3) = Sheets("sheet1").Cells(i, j) Next m = m + 1 End IfNextEnd Sub此代码可实现“模糊”查找。