Excel VBA質問箱 IV

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

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


41322 / 76732 ←次へ | 前へ→

【40491】Re:集計表について
回答  Kein  - 06/7/14(金) 22:31 -

引用なし
パスワード
   集計は、ワークシート関数の SUMIF を使う方法もありますが、
Excelには集計機能というものもあるので、それを使って・・

Sub My集計()
  Dim Sh As Worksheet

  Set Sh = Worksheets(2)
  Application.ScreenUpdating = False
  With Worksheets(1)
   With .Range("A1").CurrentRegion
     .Sort Key1:=.Range("C1"), Order1:=xlAscending, _
     Header:=xlYes, Orientation:=xlSortColumns
     .Subtotal 3, xlSum, Array(5, 6, 7)
   End With
   With .Range("B2", .Range("B65536").End(xlUp).Offset(1)) _
   .SpecialCells(4)
     Intersect(.EntireRow, Range("A:D")).FormulaR1C1 = _
     "=R[-1]C"
     .EntireRow.Copy
     Sh.Range("A2").PasteSpecial xlPasteValues
   End With
   Application.CutCopyMode = False
   .Cells.RemoveSubtotal
   .Rows(1).Copy
   Sh.Range("A1").PasteSpecial xlPasteValues
  End With
  Sh.Activate: Sh.Range("A1").Select
  With Application
   .CutCopyMode = False
   .ScreenUpdating = True
  End With
  Set Sh = Nothing
End Sub

で、どうかな ?

0 hits

【40478】集計表について サン 06/7/14(金) 15:14 質問
【40490】Re:集計表について kobasan 06/7/14(金) 22:25 回答
【40568】Re:集計表について サン 06/7/18(火) 12:16 お礼
【40652】Re:集計表について kobasan 06/7/19(水) 18:48 回答
【40662】Re:集計表について サン 06/7/20(木) 9:55 お礼
【40732】Re:集計表について サン 06/7/21(金) 16:53 質問
【40739】Re:集計表について kobasan 06/7/21(金) 20:43 回答
【40747】Re:集計表について ichinose 06/7/22(土) 8:13 発言
【40755】Re:集計表について kobasan 06/7/22(土) 18:44 発言
【40759】Re:集計表について ichinose 06/7/23(日) 11:20 発言
【40825】Re:集計表について' kobasan 06/7/24(月) 20:16 発言
【40834】Re:集計表について' ichinose 06/7/24(月) 23:12 発言
【40902】Re:集計表について' kobasan 06/7/25(火) 22:45 お礼
【40782】Re:集計表について サン 06/7/24(月) 10:04 お礼
【40491】Re:集計表について Kein 06/7/14(金) 22:31 回答
【40569】Re:集計表について サン 06/7/18(火) 12:24 お礼
【40632】Re:集計表について Kein 06/7/19(水) 14:22 回答
【40633】Re:集計表について サン 06/7/19(水) 14:28 お礼

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