search一个给定的值后，将excel中的一行从一张表复制到另一张表中

免责声明…我不是在寻找某人为我编码，只是指向正确的方向或给我一些我可以合作的例子。

问题：我有一个有两页的工作簿。 第一个如果这样格式化

 主机名机箱服务标签资产标签位置u   
 LCLDHV003-25 PE R610 1 * V4YQ1 1 * 1315 D3SF85.08 21
 LCMNTYPXYB02 PE R610 BZ00L1 19368 x3SD04.34 36
 LEMAILMIG001 PE 1950 9ZVSJ1 12078 x3SE07.12 29
 LPASSCDB01-01 PE R710 3XSVH1 11415 P3SD02.22 03

我需要在位置字段中search给定的值（例如x3SD04），然后将此行插入到第二个表中。 我需要将现有数据移到页面上。

我看过vlookup索引，匹配和一些vba选项。 只是我所尝试的一切都失败了。

Answer 1

尝试这个：

Sub test() Dim SearchString$, cl As Range, n& SearchString = "x3SD04" n = Sheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Row + 1 'get row for insert copied row Set cl = Sheets("Sheet1").Cells.Find(SearchString) 'find range with SearchString If Not cl Is Nothing Then 'if SearchString exist in sheet then copy Sheets("Sheet1").Rows(cl.Row).Copy Sheets("Sheet2").Rows(n) End If End Sub