Excel VBA質問箱 IV

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

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


17107 / 76732 ←次へ | 前へ→

【65082】シート間のデータ処理
質問  Saitou  - 10/4/13(火) 21:35 -

引用なし
パスワード
   初めまして。

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

シートA

識別   商品     数量
A1    あいうえお  10


A7
B1


B14



シートB
識別   商品     数量
A1    あいうえお  10


A7
B1


B14
Aグループ        ΣA1〜A7
Bグループ        ΣB1〜B14

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

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 = "Bグループ"
  Range("B25").Select
End Sub
3 hits

【65079】シート間のデータ処理 Saitou 10/4/12(月) 22:00 質問
【65080】Re:シート間のデータ処理 neptune 10/4/12(月) 23:29 回答
【65082】シート間のデータ処理 Saitou 10/4/13(火) 21:35 質問

17107 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free