Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
61760 / 76732 ←次へ　｜　前へ→
【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を選択して「データ」「集計」「全て削除」で
元に戻してください。
0 hits
▼ 【19585】ｺｰﾄﾞを抽出して合計値をだしたい でんでん 04/11/9(火) 22:49 質問
【19586】Re:ｺｰﾄﾞを抽出して合計値をだしたい Kein 04/11/9(火) 23:04 回答≪
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
61760 / 76732 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free