Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

17113 / 76738

←次へ　｜　前へ→


	【65082】シート間のデータ処理

Saitou - 10/4/13(火) 21:35 -


	引用なし

	パスワード

初めまして。

　既存のシートＡがあるとします。シートＡのデータを以下のよう処理したいとおもいますが、処理方法はわからなくて、投稿しました。

シートＡ

識別　　　商品　　　　　数量
A1　　　　あいうえお　　10
・
・
A7
B1
・
・
B14
・
・

シートＢ
識別　　　商品　　　　　数量
A1　　　　あいうえお　　10
・
・
A7
B1
・
・
B14
Aグループ　　　　　　　 ΣA1～A7
Bグループ　　　　　　　 ΣB1～B14

Excelマクロ自動記録を使って、以下のコードを得ました。
Ａ、Ｂ、・・・要素の個数が不定数であり、その制御はできないです。

Sub Macro2()
　　Range("A1:C22").Select
　　Selection.Copy
　　Sheets("B").Select
　　Cells.Select
　　ActiveSheet.Paste
　　Range("C23").Select
　　Application.CutCopyMode = False
　　ActiveCell.FormulaR1C1 = "=SUM(R[-21]C:R[-15]C)"
　　Range("C24").Select
　　ActiveCell.FormulaR1C1 = "=SUM(R[-15]C:R[-2]C)"
　　Range("B23").Select
　　ActiveCell.FormulaR1C1 = "Aグループ"
　　Range("B24").Select
　　ActiveCell.FormulaR1C1 = "Ｂグループ"
　　Range("B25").Select
End Sub

0 hits

▼

【65079】シート間のデータ処理 Saitou 10/4/12(月) 22:00