vbaの質問宜しくお願い致します。 シート1のC列とF列にランダムに数字が有るとします シート2に２

vbaの質問宜しくお願い致します。
シート1のC列とF列にランダムに数字が有るとします

シート2に２枚目の写真
みたいにやりたいのですが可能でしょうか？
（列の最後は決まってないです、）

言葉で申し上げますと
シート1のC列をシート2のB列
シート1のＦ列をシート2のＦ列にコピペします。

シート2の作業は
C列にB列とＦ列の和
D列にC列とＦ列の和
E列にD列とＦ列の和
（横にＦ列のみ足してます。）

☆☆☆【H列のみＦ列-B列+1】☆☆☆

I列にH列とＦ列の和
J列にI列とＦ列の和
K列にJ列とＦ列の和
（横にＦ列のみ足します。）

宜しくお願い致します。

質問者からの補足コメント

• ２枚目の写真です、
  （結果）

  
    補足日時：2019/08/14 13:35

No.1 回答者： rukaandkaito 回答日時： 2019/08/14 16:15

マクロの記録を使用すれば簡単に出来ますが、とりあえずコードを記載します

--------------------------------------------------------------------------------
Sub Sample1()
　
　Dim intR As Integer
　
　intR = 1
　Do Until Sheet1.Cells(intR, 3).Value = ""
　　With Sheet2
　　　.Range("B" & intR).FormulaR1C1 = "=Sheet1!RC[1]"
　　　.Range("C" & intR).FormulaR1C1 = "=RC[-1]+RC[3]"
　　　.Range("D" & intR).FormulaR1C1 = "=RC[-1]+RC[2]"
　　　.Range("E" & intR).FormulaR1C1 = "=RC[-1]+RC[1]"
　　　.Range("F" & intR).FormulaR1C1 = "=Sheet1!RC"
　　　.Range("H" & intR).FormulaR1C1 = "=RC[-2]-RC[-6]+1"
　　　.Range("I" & intR).FormulaR1C1 = "=RC[-1]+RC[-3]"
　　　.Range("J" & intR).FormulaR1C1 = "=RC[-1]+RC[-4]"
　　　.Range("K" & intR).FormulaR1C1 = "=RC[-1]+RC[-5]"
　　End With
　　intR = intR + 1
　Loop
　
End Sub
--------------------------------------------------------------------------------

この回答へのお礼

色々教えて頂きどうもありがとうございます。

お礼日時：2019/08/15 20:09

No.2 ベストアンサー 回答者： WindFaller 回答日時： 2019/08/15 08:21

こんなふうにすれば、と思います。

実際は、同じ位置ではないでしょうから、i を出す範囲、貼り付ける列の最初のセルを書き換えしてください。

'//標準モジュール
Sub FormulaCopies()
　Dim i As Long
　Dim sh2 As Worksheet
　Set sh2 = Worksheets("Sheet2") '写される側を登録
　With sh2
　　i = Worksheets("Sheet1").Cells(Rows.Count, 3).End(xlUp).Row 　'ここが大事
　　.Range("B1").Resize(i).FormulaLocal = "=Sheet1!RC[1]"
　　.Range("F1").Resize(i).FormulaLocal = "=Sheet1!RC"
　　.Range("H1").Resize(i).FormulaLocal = "=RC6-RC[-6]+1"
　　.Range("C1:E1").Resize(i).FormulaLocal = "=RC[-1]+RC6"
　　.Range("I1:K1").Resize(i).FormulaLocal = "=RC[-1]+RC6"
　End With
End Sub

この回答へのお礼

お忙しいところどうもありがとうございました。

お礼日時：2019/08/15 20:20