既然假设两个文件都打开的我就不做错误处理了，你看这个代码能用不：
Sub test()
Dim myrow, mycol
myrow = Selection.row
mycol = Selection.Column
str2find = Selection.Text
Cells(myrow - 1, mycol).Resize(4, 1).Copy
Workbooks("B.xlsx").Worksheets("Sheet1").Activate
Cells.Find(str2find).Activate
End Sub
不过要说明一下，xlsx文件是不能保存宏的，你关闭后下次再打开代码就没有了，解决的办法是存成XLSM文件（B.xlsx不影响，因为它里面是不包含宏的）
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024