VBAのVLOOKUPマクロ

Question

vlookupのマクロスクリプトのヘルプが必要です。私は、テーブル配列の情報をvlookupスクリプトにハードコードしたいと思う。今の問題は、vlookup関数の行を置くと、すべての行が実際に配列の表からの情報であるにもかかわらず、最後の行でしか機能しないということです。

マクロを実行すると最初のマクロ行が実行され、1行目に何も一致しない場合は2行目に移動するようにするには、これが役に立ちます。 3行目も同じです。前もって感謝します。

Sub Macro7() 

    Range("L1").Select 

    Range("L1").FormulaR1C1 = "=VLOOKUP(RC[-1],{1603101,""BFF""},2,FALSE)" 
    Range("L1").FormulaR1C1 = "=VLOOKUP(RC[-1],{1603102,""DELTA""},2,FALSE)" 
    Range("L1").FormulaR1C1 = "=VLOOKUP(RC[-1],{1608063,""BIST""},2,FALSE)" 

    Lastrow = ActiveSheet.UsedRange.Rows.Count 

    Range("L1").Autofill Destination:=Range("L1:L" & Lastrow) 

End Sub 

Answer 1

この試してみてください：あなたは、むしろ数式を作成するよりも、計算そのものを行うには、次のコードのようなものを使用することができVBAコードを持って喜んでいた場合は

Sub Macro7() 
    With ActiveSheet 
     .Range("L1:L" & .UsedRange.Rows.Count).FormulaR1C1 = "=VLOOKUP(RC[-1],{1603101,""BFF"";1603102,""DELTA"";1608063,""BIST""},2,FALSE)" 
    End With 
End Sub 

---

を。マクロを再度呼び出す必要なく、データが変更されるたびにマクロが更新されるという利点があります。

Sub Macro7() 
    Dim r As Long 
    Dim v as String 
    With ActiveSheet 
     For r = 1 to Range("K" & .Rows.Count).End(xlUp).Row 
      Select Case .Cells(r, "K").Value 
       Case 1603101: v = "BFF" 
       Case 1603102: v = "DELTA" 
       Case 1608063: v = "BIST" 
       Case Else: v = "UNKNOWN!!" 
      End Select 
      .Cells(r, "L").Value = v 
     Next 
    End With 
End Sub