エクセルで文字列を数えて一覧表にしたいのですが

質問

たとえばですが、２人一組で配達に行きます。
メンバーは、太郎、次郎、三郎、四郎、五郎・・・と多人数です。

Ａ１に太郎、Ｂ１に三郎
Ａ２に次郎、Ｂ２に五郎
Ａ３に太郎、Ｂ３に次郎
・
・
・
と、いうような表ができます。

このとき、＊郎は何回配達にいったのかをカウントしたいのです。
＊郎は、Ａ、Ｂのどちらに登場するかわかりませんし、
何回も登場しますし、組み合わせもばらばらです。

最終的に、太郎　１５回、次郎　８回、三郎　２１回・・・というように分かるようにしたいので、
仮にＤ１に太郎、Ｅ１に次郎、Ｆ１に三郎・・・の名前
(ダブって登場する名前を一つにまとめて、登場する全ての名前を残したい)、
Ｄ２に太郎、Ｅ２次郎、Ｆ２に三郎の回数(登場した名前の回数を数字で求めたい)
というようにしたいのです。

エクセルの詳しい方、よろしくお願いします。

回答No.1

keithin · ベストアンサー

Ｄ１，Ｅ１，Ｆ１…に太郎，次郎，三郎…を列記します
Ｄ２に
=COUNTIF($A:$B,D1)
と記入し，右にコピーします。

ん？？
誰の名前が並んでいるのかも判らないご質問ですか？

手順：
シート２のＡ１に
名前
と記入する

シート１のＡ列の名前全部をシート２のＡ２以下にコピー貼り付ける
シート１のＢ列の名前全部をシート２のその下にコピー貼り付ける
Excel2007以降を使い，データタブの「重複の削除」を使って重複を省いた名前の一覧を作成する
Excel2003以前しか使えないときは，下記を参考に「フィルタオプションの設定」を使い，名前の一覧を作成する
http://www.wanichan.com/pc/excel/2003/05/192.html

作成した一意の名前リストをコピーし，シート１のＤ１に「形式を選んで貼り付け」の「行と列を入れ替える」で貼り付ける

＃無理すれば出来なくはないけど，関数でやる価値のない操作です。手を動かしてちゃっちゃとコタエを出してください。

お礼

ご回答ありがとうございました。

そうなんです。
名前は確定されたものではなく、新入社員やアルバイトなど
新しい名前がたくさん出てきますし、ランダムでばらばらです。

できれば、操作無しでＡＢ列のデータ入力だけで、
最終的な表が完成させることができればベストなのですが、
良い方法はないでしょうか？

回答No.4

imogasi

基本的にはA,B列で太郎が現れるセルの個数がわかれば良い簡単な質問ではないか。
色々文章を書く必要もない。
だだしCOUNTIF関数は、太郎に当たる、名前の重複しない漏れのないリストが、１列（式の複写で楽をするため）にあることが必須。
そういう点を質問する、質問文にすべきだ。
ーー
但し関数では難しいのだ。
操作でも、データが２列にあるためにフィルタオプションの設定ー重複するレコードは無視するが使えない。
色々言わないで、B列を、A列最下行の次以下にコピペして、データーフィルターフィルターフィルタオプションの設定ー重複するレコードは無視する
でやることを勧める。結果の名前群を好きな列に持ってくることを指定できる。
ーー
ほかにはVBAを使って、名前の重複しない漏れのないリストが作れるが質問者には丸写し利用しかないだろう。
初心者の間は、あれこれ言わず。操作も使うこと。そもそもエクセルは、第1は操作のソフトである。
ーー
関数で重複しない漏れのないリスト、を出すのは難しいと思う。式が複雑になると思う。

お礼

説明が下手なのは認めます。

ご回答を頂きました皆様、どうもありがとうございました。

３．４番の回答がされていることは更新していなかったため、
見えておらず、２番の方をベストアンサーにしましたが、
本来は３番の方へ送りたいものでした。
３番の方へ、この場を借りて、お詫びして訂正します。

回答No.3

KURUMITO

名前も新規に追加されれば自動で表示され回数も表示するようにするには関数を使う場合でしたら作業列を作って対応するのがよいでしょう。例えば次のようにします。
A列およびB列のデータは2行目から下方に入力されるとします。
CおよびB列は作業列としてC2セルには次の式を入力してD2セルまで横にオートフィルドラッグコピーしたのちに下方にもオートフィルドラッグコピーします。

=IF(A2="","",IF(COLUMN(A1)=1,IF(COUNTIF($A$1:$B1,$A2)>0,"",COUNT($C$1:$D1)+1),IF(COLUMN(A1)=2,IF(OR(COUNTIF($A$1:$B1,$B2)>0,$A2=$B2),"",COUNT($C$1:$D1)+COUNT($C2)+1),"")))

これでC,D列には初めての名前には1から順に番号が振られます。

F列から右横の列に氏名や回数を表示させることにします。
F1セルには次の式を入力して右横方向にオートフィルドラッグコピーします。

=IF(COUNTIF($C:$C,COLUMN(A1)),INDEX($A:$A,MATCH(COLUMN(A1),$C:$C,0)),IF(COUNTIF($D:$D,COLUMN(A1)),INDEX($B:$B,MATCH(COLUMN(A1),$D:$D,0)),""))

これで氏名が表示されます。
回数を2行目に表示するためにF2セルには次の式を入力して右横方向にオートフィルドラッグコピーします。

=IF(F1="","",COUNTIF($A:$B,F1))

お礼

ご回答ありがとうございます。
すばらしい！の一言です。
ありがとうございました！

回答No.2

keithin

ありがちな，ご自分の首を絞めるだけのご相談です。
ご利用のエクセルのバージョンも，相変わらず情報提供が無いままですし。
次の通りに行ってください。

手順：
シート名タブを右クリックしてコードの表示を選ぶ
現れたシートに下記をコピー貼り付ける

private sub worksheet_change(byval Target as excel.range)
　dim h as range
　on error resume next
　set target =application.intersect(target, range("A:B"))
　for each h in target
　if h <> "" then
　if application.countif(range("D1:IV1"), h.value ) = 0 then
　　range("IV1").end(xltoleft).offset(0, 1) = h.value
　end if
　end if
　next
end sub

ファイルメニューから終了してエクセルに戻る
Ｃ１セルにＸと記入する（ダミーデータなので別にスペースとかでもイイし，アナタが何かに使ってるならそれでいいです）
Ａ列Ｂ列に名前を記入すると，どんどんＤ１以降に勝手に追記していく。
以上です。

お礼

ご回答ありがとうございます。
申し遅れましたがVER.2003でした。
おっしゃるとおり、首が絞まる感じがします。
前回の方法を採用したいと思います。
ありがとうございました。