使用包含VLOOKUP方程的单元格复制表格中的一行

我对VBA非常不熟悉，而且我坚持使用这部分代码。 我有一个vlookup方程式的单元格，我想用它作为参数，在不同的表格中查找表格中的值，并将整行复制到不同的表格中。 我过去曾经使用这个代码基于单个参数来复制数据，但我认为我遇到的问题是我试图引用的单元格中包含一个vlookup方程。

Sub Test() For Each cell In Sheets(RawDataLoader).Range("E:E") If cell.Value = "B8" Then matchRow = cell.Row Rows(matchRow & ":" & matchRow).Select Selection.Copy Sheets("Dashboard").Select ActiveSheet.Rows(matchRow).Select ActiveSheet.Paste Sheets("RawDataLoader").Select End If Next End Sub 

RawDataLoader是我的表的工作表

仪表板是我希望细胞去的工作表

B8是我想要用作表格查找的值的工作表仪表板上的单元格。

具有我希望它search的值的范围是E：E和RawDataLoader表。

我知道我的代码的cell.value部分是不正确的，我只是不知道如何引用一个单元格的值，所以我把我想引用的单元格。

谢谢！

Answer 1

您只需使用Sheets("Dashboard").Range("B8").value而不是"B8" 。 你也可以简化你的代码; 避免使用Select和循环只在使用的范围，而不是整列。

 Sub Test() Dim cell as Range For Each cell In Intersect(Sheets("RawDataLoader").UsedRange, Sheets("RawDataLoader").Range("E:E")) If cell.Value = Sheets("Dashboard").Range("B8").value Then cell.EntireRow.copy Sheets("Dashboard").Rows(cell.Row) End If Next End Sub