VBA在指定的一列查找内容，并将内容所在行复制到另一工作表指定单元格

Question

在sheet1中Rang（A）查找内容123，将123所在行的内容复制到sheet2中

Answer 1

Sub aa()
 Dim x
 x = Application.Match(123, Range("a1:e1"), 0)
 Cells(1, x).EntireRow.Copy Sheets("sheet5").Range("a1")
End Sub

Answer 2

这个代码倒是好写，不过你的指定内容是什么？你的表格最大列和最大行数是多少?或者说你的表格从a1单元格起是连续区域吗？只有知道这些才能帮你写代码？

追问

比如在sheet1中Rang（A）查找内容123，将123所在行的内容复制到sheet2中