Excel VBA質問箱 IV

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

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


63214 / 76732 ←次へ | 前へ→

【18117】Re:冗長なコードの簡略化について
回答  Kein  - 04/9/16(木) 1:30 -

引用なし
パスワード
   別シート(仮にSheet2)に集計結果を出すとして

Sub 集計()
  With Application
   .ScreenUpdating = False
   .DisplayAlerts = False
  End With
  Rows(1).Insert xlShiftDown
  Range("A1:C1").Value = Array("商品", "氏名", "個数")
  Range("AA1").Value = "商品名,販売先氏名"
  With Range("A2", Range("A65536").End(xlUp)).Offset(, 26)
   Ad1 = "Sheet1!" & .Address
   Ad2 = "Sheet1!" & .Offset(, -24).Address
   .Formula = "=$A2&"",""&$B2"
   .Copy
   .PasteSpecial xlPasteValues
  End With
  Application.CutCopyMode = False
  With Sheets("Sheet2")
   .Range("A:C").ClearContents
   Range("AA1", Range("AA65536").End(xlUp)).AdvancedFilter _
    xlFilterCopy, , .Range("A1"), True
   .Range("C1").Value = "販売個数計"
   With .Range("C2", .Range("A1").End(xlDown).Offset(, 2))
     .Formula = "=SUMIF(" & Ad1 & ",$A2," & Ad2 & ")"
     .Copy
     .PasteSpecial xlPasteValues
   End With
   .Range("A:A").TextToColumns DataType:=xlDelimited, Comma:=True
   .Range("A1").CurrentRegion.Sort Key1:=.Range("A1"), _
   Order1:=xlAscending, Header:=xlYes, Orientation:=xlSortColumns
  End With
  Range("AA:AA").ClearContents
  Rows(1).Delete xlShiftUp
  Sheets("Sheet2").Activate
  With Application
   .CutCopyMode = False
   .ScreenUpdating = True
   .DisplayAlerts = True
  End With
End Sub

集計対象シートを開いて実行して下さい。
なお1行目は、仮の項目を入れて最後に削除してます。表を作るなら項目を入れる
のがExcelの常識ですけどね。

1 hits

【18110】冗長なコードの簡略化について カド 04/9/15(水) 19:22 質問
【18111】Re:冗長なコードの簡略化について IROC 04/9/15(水) 19:56 回答
【18113】Re:冗長なコードの簡略化について カド 04/9/15(水) 21:01 お礼
【18112】Re:冗長なコードの簡略化について Hirofumi 04/9/15(水) 20:37 回答
【18114】Re:冗長なコードの簡略化について カド 04/9/15(水) 21:10 質問
【18115】Re:冗長なコードの簡略化について Hirofumi 04/9/15(水) 22:20 回答
【18116】Re:冗長なコードの簡略化について カド 04/9/15(水) 22:43 質問
【18117】Re:冗長なコードの簡略化について Kein 04/9/16(木) 1:30 回答
【18118】Re:冗長なコードの簡略化について Kein 04/9/16(木) 1:32 発言
【18149】Re:冗長なコードの簡略化について カド 04/9/16(木) 15:09 お礼
【18119】Re:冗長なコードの簡略化について 禰宜 04/9/16(木) 1:56 回答
【18150】Re:冗長なコードの簡略化について カド 04/9/16(木) 15:11 お礼
【18153】Re:冗長なコードの簡略化について 禰宜 04/9/16(木) 16:03 発言

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