Excelの質問です。種類が同じデータをカウントしたいです<m(__)m>
Excelの質問です。種類が同じデータをカウントしたいのですが、合理的な方法が思い浮かばず悩んでいます(>_<)
インドの紅茶|紅茶(ダージリン)
インドの紅茶(アッサム)
インドの紅茶|紅茶(ニルギリ)
インドの紅茶|紅茶(ドアーズ)
スリランカの紅茶|紅茶(ウヴァ)
スリランカの紅茶|紅茶(ディンブラ)
スリランカの紅茶(ヌワラエリア)
スリランカの紅茶|紅茶(キャンディ)
スリランカの紅茶|紅茶(ルフナ)
中国の紅茶(キームン)
中国の紅茶|紅茶(ラプサンスーチョン)
インドネシアの紅茶(ジャワ)
インドネシアの紅茶|紅茶(スマトラ)
アフリカの紅茶|紅茶(ケニア)
ネパールの紅茶|紅茶(シャングリラ)
日本茶[お茶](茎茶)
日本茶(芽茶)
日本茶[お茶](抹茶)
日本茶(玉露)
日本茶(煎茶)
日本茶[お茶](粉茶)
日本茶(玉緑茶)
日本茶[お茶](ほうじ茶)
日本茶[お茶](玄米茶)
日本茶(手揉み茶)
日本茶(深蒸し煎茶)
日本茶(番茶)
ブラジルの珈琲(ブラジル・サントス)
コロンビアの珈琲[コーヒー](コロンビア)
タンザニアの珈琲(キリマンジャロ)
インドネシア・スマトラの珈琲(マンデリン)
ハワイの珈琲|コーヒー(ハワイ・コナ)
グァテマラの珈琲|コーヒー(グァテマラ)
ジャマイカの珈琲|コーヒー(ブルーマウンテン)
アラビア・エチオピアの珈琲(モカ)
ケニアの珈琲(ケニア)
・
・
・
データ数は37個(この例では)なのですが、データの種類は、「インドの紅茶」「スリランカの紅茶」「中国の紅茶」「インドネシアの紅茶」「アフリカの紅茶」「ネパールの紅茶」「日本茶」「ブラジルの珈琲」「コロンビアの珈琲」「タンザニアの珈琲」「インドネシア・スマトラの珈琲」「ハワイの珈琲」「グァテマラの珈琲」「ジャマイカの珈琲」「アラビア・エチオピアの珈琲」「ケニアの珈琲」の、16個です。
このようなデータが、C列にずらっと並んでいます。
種類だけをカウントするには、まず()内を削除→[]内を削除→|(縦棒)より後ろを削除→重複するデータを削除→データ数を数える・・・というプロセスを進んでいけばよいと思いましたので、「[*]」を空白に置換→「(*)」を空白に置換→「|*」を空白に置換→フィルタオプションで重複を削除→COUNTA関数でデータ数をカウント→Sheet2のA1セルにデータ数を貼り付け・・・と、マクロを記録していきました。すると、
Sub Macro4()
'
' Macro4 Macro
'
'
Columns("A:A").Select
Selection.Replace What:="[*]", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="(*)", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="|*", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A6:A25").AdvancedFilter Action:=xlFilterInPlace, Unique:=True
With ActiveWindow
.Top = 10.75
.Left = 76
End With
Sheets("Sheet2").Select
ActiveCell.FormulaR1C1 = "=COUNTA(Sheet1!R[6]C:R[1048575]C)"
End Sub
となったのですが、Sheet2のA1には「37」と出てしまいました(ToT)
16が出ると思ったのですが・・・何か良い方法はないでしょうか?
よろしくお願いします(>_<)
お礼
ありがとうございました。 やはりそういう推測になってしまいますよね。
補足
緑茶の中でタンニン量が一番多いのが「煎茶」だそうです。 なので、あえて「煎茶」を指定しているのは ポピュラー云々よりもタンニン量の問題かと思われます。