如何通过VB实现模糊搜索表2中的关键字所在行，然后复制此行去表1

greyrabbit123

如何通过VBA实现以下步骤
1.在sheet5中指定位置B1中输入搜索内容，如“马鞍山”
2.点击sheet5中按钮“按地名搜索”，按步骤1的搜索内容在sheet1中模糊搜索B列，然后筛选中被搜索到的所有行
3.复制sheet1中被搜索到的行
4.将所有被搜索到的行黏贴至sheet5的指定行及指定行的以下行

Private Sub CommandButton1_Click()
Sheet5.Range("A4:K10000").Clear '清除之前所有的筛选结果
ends = Sheet1.Range("B65536").End(xlUp).Row '动态找到B列的最后一个单元格
For Each Rng In Sheet1.Range("B2:B" & ends)
m = m + 1
If Rng Like Sheet5.Range("B1").Value & "*" Then  '如果条件成立，那么
k = k + 1
Sheet1.Range("A" & m + 1 & ":K" & m + 1).Copy Sheet5.Range("a" & k + 3) '将记录复制到另一个区域
End If
Next
End Sub