请问一下各位，我现在想把第一个工作表cells(i,3)的序号在第二个工作表
第四栏做查询，如果第二个工作表第四栏的序号跟第一个工作表第三栏的序号相同，
则把第一个工作表cells(i,3)~cells(i,13)复制贴到第二个工作表对应的字段中。
但却出现需要物件的错误讯息，请大家帮忙看一下 谢谢
Sub cusip()
Dim i As Integer
Dim cn As Integer
Dim rng As Range
Sheets("sheet1").Select
For i = 2 To 842
Set aa = sheet2.Cells.Find(what:=sheet1.Cells(i, 3), LookIn:= _
xlValues, LookAt:=xlPart,
SearchOrder:=xlByColumns, _
SearchDirection:=xlNext,
MatchCase:=False).Activate
Next
If aa = Cells(i, 3).Value Then
Let cn = rng.Find("aa").Column
Range(Cells(i, 3), Cells(i, 13)).Select
Selection.Copy
Sheets("sheet2").Select
Range(Cells(cn, 4), Cells(cn + 4, 4)).Select
Selection.Paste
Else
End If
End Sub