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が出ると思ったのですが・・・何か良い方法はないでしょうか?
よろしくお願いします(>_<)
お礼
ありがとうございます。なんと、takibistさんの貴重なご意見をそのまま採用させていただくことにいたしました。まだ一般販売は、先になりますが、ル・ロワ・ドゥ・ラオール という表記で、進めさせていただきます。ちなみに他、ドニゼッティのオペラ「愛の妙薬」の主人公の女の子の名前、アディーナなどもありましたが、takibistさんの案がいいかと。どうもありがとうございました。また何かありましたら、どうぞよろしくお願いいたします。