ＶＢＡ 計算の繰り返し

質問

ＶＢＡの初心者です。

ご指導お願いいたします。

Ｇ列とＨ列とＪ列に入力されている数字をＫ列に合計が出るように計算式ができているのですが、

その計算式をＶＢＡでＫ2からＫの最後の行まで自動で入力してくれて

なおかつ、Ｋ○にはＧ○＋Ｈ○＋Ｊ○の合計が入力されるように

計算式を変換する方法を教えてください。

ちなみに計算式は

=VALUE(SUBSTITUTE(G2,"万",""))*10000+VALUE(SUBSTITUTE(H2,"円",""))+IF(J2="-",0,VALUE(SUBSTITUTE(J2,"円","")))

です。

ご指導お願いいたします。

回答No.2

mt2008 · ベストアンサー

> エクセルの話で間違いないのですが、あくまでＶＢＡで設定をしたいと思ってます。

と言うことでしたらこんな感じで……
K2からJ列に値が入っている最終行までを対象にしました。

Sub Sample()
　　Dim nLast As Long
　　nLast = WorksheetFunction.Max(2, Range("J" & Rows.Count).End(xlUp).Row)
　　Range("K2").Formula = "=VALUE(SUBSTITUTE(G2,""万"",""""))*10000+VALUE(SUBSTITUTE(H2,""円"",""""))+IF(J2=""-"",0,VALUE(SUBSTITUTE(J2,""円"","""")))"
　　If nLast > 2 Then
　　　　Range("K2").AutoFill Destination:=Range("K2:K" & nLast)
　　End If
　　'式を入れたいだけならここまで。値だけにしたいなら以下も必要
　　Range("K2:K" & nLast) = Range("K2:K" & nLast).Value
End Sub

お礼

ありがとうございます。

これで一歩進みました。

回答No.1

mt2008

何のソフトなのかの説明が無いですが、Excelの話ですよね？
J列に既に値が入っているなら、K2セルに質問文中に提示されている式を入れた状態で選択し、セルの右下に出る■をWクリックするとJ列の値が途切れるところまでずっと式が入りますがそれでは駄目ですか？

お礼

ご回答ありがとうございます。

エクセルの話で間違いないのですが、あくまでＶＢＡで設定をしたいと思ってます。