java findcell,VBA-Excel - Cells.Find中的变量

我有两个电子表格(wb1和wb2) . 目标是选择wb1列D中的每个值，找到wb2列C中的值，然后将一系列单元格(与搜索值相同的行)复制回wb1 .

这是迄今为止我设法汇总的代码：

Dim rng1 As Range, rng2 As Range

Dim cell as Variant

Dim cell_val as String

Dim wb1 as Workbook, wb2 as Workbook

Dim sh1 as Worksheet, sh2 as Worksheet

Sub Find_Copy_Paste()

set wb1 = Workbooks.Open("c:\explicit\path\to\wb1.xlsm")

set wb2 = Workbooks.Open("c:\explicit\path\to\wb2.xlsm")

Set sh1 = wb1.Open("Inventory")

set sh2 = wb2.Open ("Sheet1")

set rng1 = wb1.sh1.Range("D6:D1702")

set rng2 = wb2.sh2.Range("C2:C3132")

For Each cell In rng1

ActiveCell.Select

cell_val = Selection.Copy

Windows(wb2).Activate

Cells.Find(What:=(cell_val), After:=ActiveCell,

LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows,

SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate

ActiveCell.Offset (0,1).Range("A1:AH1").Select

Application.CutCopyMode = False

Selection.Copy

Windows(wb1).Activate

ActiveCell.Offset(0,1).Range("A1").Select

ActiveSheet.Paste

cell_val=""

Next

End Sub

不幸的是，我遇到了挑战，我怀疑它与两件事有关：1)wb1和wb2变量以及我如何分配它们，以及2)我的代码的Cells.Find部分中的变量(但是我对VBA还是比较新手，所以我的怀疑可能会有所不同 .