Excel VBA質問箱 IV

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

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


28353 / 76738 ←次へ | 前へ→

【53684】Re:リスト内のデータ種数
発言  ichinose  - 08/2/1(金) 8:27 -

引用なし
パスワード
   ▼どんたく さん:
おはようございます。

>初心者です。たびたび経験してそのたび悩んでいます。
>あるリストがある。其の中には重複している可能性があるデータがあります。
>つまり

例題をちょっと変更して
   A列
1  固体命 
2  A
3  B
4  A
5  C
6  B
・  ・
・  ・

とExcelでは、一行目は項目名を付加する癖を付けてください
そうする方がExcel機能が使いやすいですから・・。
(↑本当は、既にそうされているのかもしれませんが。)

上記のようにA列にデータがある事を想定します。

結果は、同シートのセルE1から表示するコードです。

標準モジュールに
'==========================================================
Sub main()
  Dim rngA As Range
  Dim rngE As Range
  Set rngA = Range("a1", Cells(Rows.Count, "a").End(xlUp))
  rngA.AdvancedFilter xlFilterCopy, , Range("e1"), True
  Set rngE = Range("e1", Cells(Rows.Count, "e").End(xlUp))
  With rngE
    .Cells(.Count + 1).Formula = "項目数 " & .Count - 1
    With .Offset(0, 1)
      .Cells(1).Value = "出現回数"
      .Range("a2:a" & .Count).Formula = _
        "=countif(" & rngA.Address & ",e2)"
      End With
    End With
End Sub

mainを実行してみてください。
0 hits

【53683】リスト内のデータ種数 どんたく 08/1/31(木) 22:46 質問
【53684】Re:リスト内のデータ種数 ichinose 08/2/1(金) 8:27 発言
【53685】Re:リスト内のデータ種数 りん 08/2/1(金) 8:41 回答
【53696】Re:リスト内のデータ種数 (解決) どんたく 08/2/2(土) 10:59 お礼

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