forループを使ったVlookup式の挿入

Question

私はそれを正しくやっていないと確信していますが、私がやっていることはforループ関数を使ってvlookup式を挿入することです。

Dim cnt As Integer 
Dim row As Long 
Dim col As Long 

cnt = [A:A].Cells.SpecialCells(xlCellTypeConstants).Count 

For row = 1 To cnt 
col = col + 1 
[A2].Offset(row - 1, 1).Value = "Vlookup(A" & col + 1 & ",'Sheet1'!,A$2:A$" & cnt & ",1,0)" 
Next row 

lookup_valueがcol + 1とcol_index_numと同じでなければなりませんVLOOKUP式のは、私が.Valueオプションを試してみましたが、それはそれは文字列に"="を持つためとして、それを受け入れていないcnt

に等しくなります。私は.Formula機能を使用してみましたが、それは私にそれにcol + 1などcnt.

Answer 1

この行の不正コンマ

[A2].Offset(row - 1, 1).Value = "Vlookup(A" & col + 1 & ",'Sheet1'!,A$2:A$" & cnt & ",1,0)" 

があり'Sheet1'!後にカンマがあってはなりません。それを除く。

編集：VBAで入力した場合でも、=という記号で式を開始する必要があります。私が正しくあなたの目標をcatched場合は、ループを回避し、次のように、相対的な範囲の参照を活用するために、」.FormulaR1C1" 『範囲』のプロパティオブジェクトを使用することができます

This code runs fine in my tests: 

Sub test() 
Dim cnt As Integer 
Dim row As Long 
Dim col As Long 

cnt = [A:A].Cells.SpecialCells(xlCellTypeConstants).Count 

For row = 1 To cnt 
col = col + 1 
[A2].Offset(row - 1, 1).Value = "=Vlookup(A" & col + 1 & ",'Sheet1'!A$2:A$" & cnt & ",1,0)" 
Next row 
End Sub 

Answer 2

ないあなたtable_arrayをすることになっているかわからを挿入するためのオプションを与えていません。しかし、このような動作するはずです：

[a2].Offset(row - 1, 1).Value = "=Vlookup(A" & col + 1 & ",'Sheet1'!A$2," & cnt & ",0)" 

Answer 3

：

Sub main() 
    Dim cnt As Long 

    With Worksheets("Sheet1") '<--| this is the sheet where to lookup 
     cnt = .Range("A1", .Cells(.Rows.Count, 1).End(xlUp)) 
    End With 

    With Worksheets("MySheet") '<--| change "MySheet" with your actual "working" sheet name 
     .Range("B2", .Cells(.Rows.Count, 2).End(xlUp)).FormulaR1C1 = "=Vlookup(RC[-1], 'Sheet1'!A$2:A$" & cnt & ",1,0)" 
    End With 
End Sub