列をスキップするために数式にループ数を導入する方法

Question

私はVbaの初心者です。

Sub addbdh() 
Dim i As Integer 
Dim n As Integer 

Range("A3").Select 
Range(Selection, Selection.End(xlToRight)).Select 

n = Selection.Count 

For i = 1 To n 
Cells(3, i * 2 - 1).Formula = "=BDH(B" & i * 2 - 1 & ",A1 ,B1 ,Today())" 
Next i 
End Sub 

Initallyそれが3行目の列式を導入することを目的としたが、途中で各タイムループラウンドつの列をスキップ：私は、次のコードを持っています。

私のコードは、今説明したコンセプトに対応していますが、転置されています（行をスキップしてB列の行に式を導入すること）。

列がアルファベット文字で命名されているので、私は私が命令内の行で最初にやったとして列をスキップする要素エン式内ループに導入することができますかわからない：

Cells(3, i * 2 - 1).Formula = "=BDH(B" & i * 2 - 1 & ",A1 ,B1 ,Today())"

具体的には、"=BDH(B" & i * 2 - 1 & ",A1 ,B1 ,Today())"を変換する方法がわからないため、1つの行ではなく1つの列をスキップします。

誰か手伝ってもらえますか？式でのインデックス付きの値を使用した場合の感謝の

ロットは

Answer 1

、時々A1スタイルよりもR1C1式のスタイルを使用する方が簡単です。あなたのケースで

、あなたR1C1式は次のようになります。最初のパラメータ「現在のセルと同じ行のセル、（2 * I-1）列目」のための手段

Cells(3, i * 2 - 1).FormulaR1C1 = "=BDH(RC" & i * 2 - 1 & ",R1C1 ,R1C2 ,Today())" 

2番目の「1列目のセル（A1ともいう）」、最後の「1列目のセル2（別名B1）」のセル）を指定します。