| |
▼どんたく さん：
おはようございます。
>初心者です。たびたび経験してそのたび悩んでいます。
>あるリストがある。其の中には重複している可能性があるデータがあります。
>つまり
例題をちょっと変更して
Ａ列
１ 固体命
２ Ａ
３ Ｂ
４ Ａ
５ Ｃ
６ Ｂ
・ ・
・ ・
とExcelでは、一行目は項目名を付加する癖を付けてください
そうする方がExcel機能が使いやすいですから・・。
（↑本当は、既にそうされているのかもしれませんが。）
上記のようにＡ列にデータがある事を想定します。
結果は、同シートのセルＥ1から表示するコードです。
標準モジュールに
'==========================================================
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を実行してみてください。
|
|
ichinose
- 08/2/1(金) 8:27 -
