复制动态范围的值，可能需要Vlookup或Match的帮助

Question

每年在我的工作表第14行添加一行数据(年份按降序列出)。我试图复制一个从C14开始的范围，并根据列a中的值"1990"在列C的某个地方结束。我认为vlookup可能能够解决这个问题，但也许不是。我当然愿意接受其他方法。这里是代码，我试图得到的工作。

Sub Figure11()
iRow = Cells(14, 1).End(xlDown).Row
Sheets("BCW").Range("C14:=Vlookup(1990, A14:C" & iRow & ", 3,FALSE)").Copy
Worksheets("Figure1-1").Range("B3").PasteSpecial xlPasteValues
End Sub

提前感谢您的帮助。

致以最诚挚的问候

Answer 1

假设1990年在A列中只出现一次:

Sub Figure11()
Dim yr1990 As Variant
Dim rw As Integer
Sheets("BCW").Activate
Set yr1990 = Columns(1).Find(what:=1990, lookat:=xlWhole)
    If yr1990 Is Nothing Then
        Debug.Print "year 1990 not found"
        Exit Sub
    Else:
        rw = Cells.Find(what:=1990, lookat:=xlWhole).Row
    End If
Range("C14", Cells(rw, 3)).Copy
Worksheets("Figure1-1").Range("B3").PasteSpecial xlPasteValues
End Sub