Vlookup范圍，使用工作表中的最后一個值

Question

我想使用范圍來查找具有每個工作表的最后一行值但沒有返回任何內容的已定義變量

    For N2 = 1 To 15
    Dim cell3 As String
    cell3 = Range("B3").End(xlDown).Value
    Range("C3").End(xlDown).Select
    ActiveCell.Offset(1, 0).Select
    ActiveCell.Formula = "=VLOOKUP(cell3,'" & N2 & "'!$B$4:$AH$35,MATCH(C3,'" & N2 & "'!$B$3:$AH$3,0),FALSE)"
    Next N2

謝謝

Answer 1

您正在選擇多個單元格，但僅將公式放入該選擇的ActiveCell屬性中。 一個選擇可以是從1到整個工作表的任意數量的調用，但是該選擇中始終只有1個活動單元。

Dim n2 As Long, cell3 As Variant

With ActiveSheet
    For n2 = 1 To 15
        cell3 = .Range("B3").End(xlDown).Value
        With .Range(.Cells(3, 3), .Cells(3, 3).End(xlDown))
            .Formula = _
                "=VLOOKUP(" & chr(34) & cell3 & chr(34) & ", '" & n2 & "'!$B$4:$AH$35, MATCH(C3,'" & n2 & "'!$B$3:$AH$3, 0), FALSE)"
        End With
    Next n2
End With

就使用n2而言，您的工作表是否命名為2、3、4等，還是應該使用n2作為Worksheet.Index屬性返回Worksheet .Name 屬性 ？ 一個可能的替代公式是

            .Formula = _
                "=VLOOKUP(" & chr(34) & cell3 & chr(34) & ", '" & worksheets(n2).name & "'!$B$4:$AH$35, MATCH(C3,'" & worksheets(n2).name & "'!$B$3:$AH$3, 0), FALSE)"

該操作使用n2作為序號索引來檢索工作表名稱。