Excel VBA質問箱 IV

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

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


28352 / 76738 ←次へ | 前へ→

【53685】Re:リスト内のデータ種数
回答  りん E-MAIL  - 08/2/1(金) 8:41 -

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

>つまりこのリスト内に何種類の固体があって、それが何回出現しているのか
>求めたい。
>関数でもマクロでもいいんだが、できるだけスマートな方法を知りたい。
>なにか定番みたいなものはあるんでしょうか ???

フィルタ機能のマクロを記録し、ちょっと編集しました。

Sub Macro1()
  Dim r1 As Range, r2 As Range, Rmax As Long
  'A1は見出し、データはA2:A21まで入っているとして
  Set r1 = Range("A1:A21")
  '集計先はB1
  Set r2 = Cells(1, 2)
  r1.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=r2, Unique:=True
  '生成したリストの最下行
  Rmax = r2.End(xlDown).Row
  With r2.Offset(1, 1)
   'C2に式を入れる
   .Formula = "=COUNTIF(" & r1.Address & "," & .Offset(0, -1).Address(False, True) & ")"
   'それを下にフィル
   Range(.Offset(0, 0), Cells(Rmax, .Column)).FillDown
  End With
  '
  Set r1 = Nothing: Set r2 = Nothing
End Sub

こんな感じです。

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 お礼

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