外部ブック内のExcel参照テーブルを使用したVBAの照会

Question

今、このタイプのコードを使用して、列Oにあるものを調べて、列Nに何を入力するかを決定します。データは機密情報なので、それは文字と数字です。それは正常に動作しますが、VBAコードでケースをハードコーディングする代わりに、外部のワークブックにあるテーブルを参照するために、数千のケースと値を挿入する必要があるためです。外部ブック内

Sub ChangeTest() 
    Dim LastRow As Long 
    Dim i As Long 
     LastRow = Range("O" & Rows.Count).End(xlUp).Row 
     For i = 2 To LastRow 
     Select Case Range("O" & i) 
      Case "A", "B", "C" 
      Range("N" & i) = "1" 
      Case "D","E","F" 
      Range("N" & i) = "2" 
      Case "G","H","I" 
      Range("N" & i) = "3" 
     End Select 
     Next i 
End Sub 

、入ることにある数（1、2、3、等）を有する場合（A、B、Cなど）および列Cを含有するカラムD元のワークブックの列N。

参照表を組み込むために私が今編集したコードが、まったく異なっている必要があるかどうか分かりません。

Answer 1

理由だけでループを実行しているのではなく、示唆？：

Sub ChangeTest() 
Dim LastRow As Long 
Dim Referance_Workbook As Workbook 
Dim Referance_Tab As Worksheet 
Dim Rng As Range 


Set Referance_Workbook = Workbooks.Open("[Referance workbook path]") 
Set Referance_Tab = Referance_Workbook.Sheets("[Referance tab within referance workbook]") 
Referance_Workbook.Close SaveChanges:=False 

LastRow = Range("O" & Rows.Count).End(xlUp).Row 
Set Rng = Range("N2:N" & LastRow) 
Rng.FormulaR1C1 = "=IFERROR(VLOOKUP(RC[-11],'[Source Workbook.xlsx]Sheet1'!C1:C2,2,0),""No in refrence table"")" 


End Sub 

これはあなたの列Aで検索、ブック/タブを参照すると、列B

に結果を探しんあなたのタイトルのようなVLOOKUPを実行しません