Excel VBA質問箱 IV

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

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


33583 / 76734 ←次へ | 前へ→

【48367】Re:氏名別、参加回数の合計の出し方について
回答  Kein  - 07/4/14(土) 18:56 -

引用なし
パスワード
   Sheet1のA列にデータがあり、その集計をSheet2のA:B列に出すとして

Sub MyCount()
  With Sheets("Sheet1")
   .Range("A1", .Range("A65536").End(xlUp)) _
   .AdvancedFilter xlFilterCopy, , _
   Sheets("Sheet2").Range("A1"), True
  End With
  With Sheets("Sheet2")
   With .Range("A2", .Range("A65536").End(xlUp)).Offset(, 1)
     .Formula = "=COUNTIF(Sheet1!$A:$A,$A2)"
     .Value = .Value
   End With
  End With
End Sub

などとすれば出来ます。
フィルターを使うので、1行目は項目であることが前提です。

2 hits

【48363】氏名別、参加回数の合計の出し方について Tomomi 07/4/14(土) 15:08 質問
【48364】Re:氏名別、参加回数の合計の出し方について かみちゃん 07/4/14(土) 15:29 発言
【48367】Re:氏名別、参加回数の合計の出し方について Kein 07/4/14(土) 18:56 回答
【48383】Re:氏名別、参加回数の合計の出し方について Tomomi 07/4/15(日) 17:02 お礼

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