find 查找单元格

range（）.find（[ ]）在range 中查找[ ]单元格中的内容，或“ ”中的内容，另find 函数提供多种参数，详见F1。

返回的应当是一个单元格或区域

Sub main()

Dim rng1 As Range
Dim rng2 As Range

Dim rng3 As Range ‘把我们需要查找的目标单元格定义为rng3’

Set rng1 = Range("a2", "b5")
Set rng2 = Worksheets("baocun").Cells(Rows.Count, "a").End(xlUp).Offset(1, 0)

Set rng3 = Worksheets("baocun").Range("C:C").Find([b1]) ‘具体方法为，从工作表baocun中的C列中寻找[b1]单元格中的内容（也可以换成：“ ”）相同的单元格，并赋值给rng3’

If rng3 Is Nothing Then ‘如果没有找到，则复制粘贴’ 

    rng1.Copy rng2
    rng2.Offset(0, 2).Resize(rng1.Rows.Count, 1) = [b1]
Else

    MsgBox "已经复制过了"

    msgbox rng3.address'返回找到的单元格的位置

End If

End Sub

因此，从实质上看，使用find方法获得的应当是怕【目标区域】中的一个【符合要求的单元格】