Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10852 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【19585】ｺｰﾄﾞを抽出して合計値をだしたい でんでん 04/11/9(火) 22:49 質問[未読]
【19586】Re:ｺｰﾄﾞを抽出して合計値をだしたい Kein 04/11/9(火) 23:04 回答[未読]
【19585】ｺｰﾄﾞを抽出して合計値をだしたい
質問  でんでん  - 04/11/9(火) 22:49 -
引用なし
パスワード
   お力をお貸し下さい。
Sheet1集計Sheet2結果とこんな感じにしたいのですが・・
例（Sheet1）集計
ｺｰﾄﾞ1　品目　ｺｰﾄﾞ2　出荷元　個数　金額
102　　ﾘﾝｺﾞ　201　　栃木　　1　　 300
104　　ﾐｶﾝ　 204　　山梨　　2　　 400
102　　ﾘﾝｺﾞ　204　　山梨　　1　　 300
101　　ﾊﾞﾅﾅ　203　　群馬　　3　　 900
　　　　　　　　
例（Sheet2）結果
品目　出荷元　　個数　　　金額
ﾘﾝｺﾞ　栃木　　　1　　　　　300
　　　山梨　　　1　　　　　300
ﾘﾝｺﾞ　計　　　　2　　　　　600
ﾐｶﾝ　 山梨　　　2　　　　　400
ﾐｶﾝ　 計　　　　2　　　　　400
ﾊﾞﾅﾅ　群馬　　　3　　　　　900
ﾊﾞﾅﾅ　計　　　　3　　　　　900
総計　　　　　　7　　　　　1900

と長くなりましたが教えてください。
【19586】Re:ｺｰﾄﾞを抽出して合計値をだしたい
回答  Kein  - 04/11/9(火) 23:04 -
引用なし
パスワード
   手作業でやっても直ぐ出来ますが、いちおうマクロでやるならコードは・・

Sub 集計()
　 Application.ScreenUpdating = False
　 With Sheets("Sheet2")
　　　Sheets("Sheet1").Range("B:F").Copy .Range("A1")
　　　.Range("A1").CurrentRegion.Sort Key1:=.Range("A1"), _
　　　Order1:=xlAscending, Header:=xlYes, Orientation:=xlSortColumns
　　　.Range("A1").Subtotal 1, xlSum, Array(3, 4)
　　　.Cells.ClearOutLine
　　　.Activate
　 End With
　 Application.ScreenUpdating = True
End Sub

というようなものになります。マクロ終了後は、集計がかかったままですから、
任意のタイミングでA1を選択して「データ」「集計」「全て削除」で
元に戻してください。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10852 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free