Range("B3").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],'02.09'!C[-1]:C,2,0)"
Range("B3").Select
Selection.FillDown
首先：我正在使用上面的代碼進行 Vlookup。如果我運行這個宏沒有錯誤，而且我進行 vlookup 的列也沒有值。
第二：在此代碼中，我參考了“02.09”表。但我想總是參考第二張紙。我還沒有找到解決辦法。
謝謝你們！
uj5u.com熱心網友回復：
VBA 中的 VLookup R1C1 公式
快速修復
Sub VLookupR1C1()
Dim wb As Workbook: Set wb = ThisWorkbook ' workbook containing this code
Dim sws As Worksheet: Set sws = wb.Worksheets(2)
Dim dws As Worksheet: Set dws = wb.Worksheets(1) ' adjust!
With dws.Range("B3") ' reference the first cell
Dim lRow As Long ' the last row in column 'A' (offset '-1')
lRow = .Offset(dws.Rows.Count - .Row, -1).End(xlUp).Row
With .Resize(lRow - .Row 1) ' reference the (one-column) range
.FormulaR1C1 = "=IFERROR(VLOOKUP(RC[-1],'" & sws.Name _
& "'!C[-1]:C,2,0),"""")" ' write the formula to the range
End With
End With
End Sub
uj5u.com熱心網友回復：
您的列中沒有資料的原因是Fill down需要一個范圍；它用范圍中的第一個單元格填充范圍。以下代碼將填充到第 5 行，您需要定義要將公式復制到的最后一行。
Range("B3").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],'02.09'!C[-1]:C,2,0)"
Range("B3:B5").FillDown
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/503714.html