-1

次のように Vlookup 関数を使用する VBA コードを探しています。

  1. 「データ」シートで Hot Data Campaign ID という列を探し、そのすべてのセルで vlookup 式を実装します

  2. Vlookup 式は次の要素で構成されている必要があります。

    a）Lookup_value「データ」シートでソースコードと呼ばれる列を検索し、そこにある値を取得します

    b）Table_array「Vlookup」シートに移動し、最初の4列をテーブル配列としてマークします

    c)Col_index_num = 2

    d)Range_lookup = False

4

1 に答える 1

1

スプレッドシート（​​ "データ"）を変更します。データを含むシートの実際の名前に選択します

Sub VLookupMacro()
    Dim FormulaCol As Long
    Dim LookupCol As Long
    Dim TotalRows As Long
    Dim TotalCols As Long
    Dim i As Long

    Sheets("Data").Select
    TotalRows = ActiveSheet.UsedRange.Rows.Count
    TotalCols = ActiveSheet.UsedRange.Columns.Count

    For i = 1 To TotalCols
        If Cells(1, i).Value = "Hot Data Campaign ID" Then FormulaCol = i
        If Cells(1, i).Value = "Source Code" Then LookupCol = i
    Next

    Cells(2, FormulaCol).Formula = "=VLOOKUP(" & Cells(2, LookupCol).Address(False, False) & ",Vlookup!A:D,2,FALSE)"
    Cells(2, FormulaCol).AutoFill Destination:=Range(Cells(2, FormulaCol), Cells(TotalRows, FormulaCol))
    With Range(Cells(2, FormulaCol), Cells(TotalRows, FormulaCol))
        .Value = .Value
    End With
End Sub
于 2013-02-19T15:59:39.130 に答える