vbaの質問宜しくお願い致します。
シート1のC列とF列にランダムに数字が有るとします
シート2に2枚目の写真
みたいにやりたいのですが可能でしょうか?
(列の最後は決まってないです、)
言葉で申し上げますと
シート1のC列をシート2のB列
シート1のF列をシート2のF列にコピペします。
シート2の作業は
C列にB列とF列の和
D列にC列とF列の和
E列にD列とF列の和
(横にF列のみ足してます。)
☆☆☆【H列のみF列-B列+1】☆☆☆
I列にH列とF列の和
J列にI列とF列の和
K列にJ列とF列の和
(横にF列のみ足します。)
宜しくお願い致します。
No.2ベストアンサー
- 回答日時:
こんなふうにすれば、と思います。
実際は、同じ位置ではないでしょうから、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
No.1
- 回答日時:
マクロの記録を使用すれば簡単に出来ますが、とりあえずコードを記載します
--------------------------------------------------------------------------------
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
--------------------------------------------------------------------------------
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA 最終行まで数式をコピーする 3 2023/01/03 15:44
- Visual Basic(VBA) 別ブックの列同士の値が一致したときの処理 1 2022/09/03 08:27
- Visual Basic(VBA) VBAで、シート間の転記するコードをFOR~NEXTで教えてください。 9 2023/04/30 20:04
- Visual Basic(VBA) VBAで、1つのエクセルで、2つのシートからもう1つのシートに条件のある転記コードを教えてください。 1 2023/03/16 18:07
- Excel(エクセル) エクセルシートのデータを1列飛ばしで別ブックのシートに貼り付けるマクロが知りたい 2 2023/06/05 22:37
- Visual Basic(VBA) 複数シートの複数列に入力されているデータを重複なしで抽出するVBAを作りたいです。 9 2022/06/17 10:33
- Visual Basic(VBA) A列にある値をB列・C列にVBAで切り出し 3 2022/04/09 19:20
- Excel(エクセル) ある数値に対して、値を返す数式についてです 2 2022/09/13 22:06
- その他(Microsoft Office) エクセルマクロ オートフィルターでで選択コピー 2 2022/04/18 11:05
- Excel(エクセル) Excelの文字列を転記したいのですが。 2 2022/09/30 12:09
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで二つの数字の小さい...
-
PowerPointで表の1つの列だけ...
-
お店に入るために行列に並んで...
-
エクセル 文字数 多い順 並...
-
エクセルで最初のスペースまで...
-
エクセルで文字が混じった数字...
-
関数を教えて下さい。
-
エクセル(勝手に太字になる)
-
50人を数回、グループ分けする...
-
エクセルの項目軸を左寄せにしたい
-
エクセル 同じ値を探して隣の...
-
Excel、市から登録している住所...
-
EXCELで 一桁の数値を二桁に
-
VBAで特定の文字を探して隣のセ...
-
VBAで文字列を数値に変換したい
-
CSVファイルの指定列だけを...
-
エクセルの並び変えで、空白セ...
-
エクセルのセル内の文字の一部...
-
エクセルで2列のセルを連続して...
-
エクセルの表から正の数、負の...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで二つの数字の小さい...
-
PowerPointで表の1つの列だけ...
-
エクセルで最初のスペースまで...
-
2つのエクセルのデータを同じよ...
-
エクセル 同じ値を探して隣の...
-
エクセル(勝手に太字になる)
-
「B列が日曜の場合」C列に/...
-
エクセル 文字数 多い順 並...
-
EXCELで 一桁の数値を二桁に
-
Excelで半角の文字を含むセルを...
-
エクセルで文字が混じった数字...
-
エクセルの項目軸を左寄せにしたい
-
Excel、市から登録している住所...
-
エクセルで、列の空欄に隣の列...
-
エクセルの表から正の数、負の...
-
エクセルの並び変えで、空白セ...
-
VBAで文字列を数値に変換したい
-
A列がない・・・A列が非表示に...
-
文字列に数字を含むセルを調べたい
-
50人を数回、グループ分けする...
おすすめ情報
2枚目の写真です、
(結果)