エクセル ／ 重複する文字の行番号を抜き出す。

質問

お世話になります。
XP／２００３　使用です。

エクセルで下記のようなケースの行番号を抜き出したいです。

できれば、関数のみがありがたいのですが、
マクロでもOKです。

-----------
抽出したい行番号

　重複する文字が入力された 「先頭の行」 と 「最後の行」　の行番号

-----------
例

同じ列に、重複する単語が入力されています。
重複する単語は、必ず上下に並んでいますが、
１単語のみ場合もあります。

１　　AAA
２　　AAA
３　　AAA
４　　AAA
５　　BBB
６　　BBB
７　　CCC
８　　CCC
９　　CCC
１０　DDD

上記の場合の抽出した行番号

単語　→　先頭の行／最後の行
AAA　→　１／４
BBB　→　５／６
CCC　→　７／９
DDD　→　１０／１０

行番号は、B列、C列などに抽出できれば良いです。

何卒よろしくお願いします。

回答No.1

keithin · ベストアンサー

行番号を抜き出したいご相談という事は、単語としてＡＡＡやＢＢＢがあるという事自体は既知で、既に並べてあるという事ですね。

Ｃ１に「単語」
Ｃ２に先頭のＡＡＡ、以下ＢＢＢ，ＣＣＣ…

Ｄ１に「先頭行」
Ｄ２に
=MATCH(C2,A:A,0)
以下コピー

Ｅ１に「最終行」
Ｄ２に
=D2+COUNTIF(A:A,C2)-1
以下コピー

以上です。

＃参考
単語としてのＡＡＡやＢＢＢの並べ方

一番簡単な方法：
データメニューのフィルタから「フィルタオプションの設定」を使い、「重複を無視する」を使って抽出する

何でもカンデモ関数じゃなきゃヤな場合：
=IF(ROW(A1)>SUMPRODUCT(1/COUNTIF($A$1:$A$10,$A$1:$A$10)),"",INDEX(A:A,SMALL(IF(MATCH($A$1:$A$10,A:A,0)=ROW($A$1:$A$10),ROW($A$1:$A$10)),ROW(A1))))
と記入し、必ずコントロールキーとシフトキーを押しながらＥｎｔｅｒで入力
以下コピー

お礼

keithinさま　早速のご回答ありがとうございます！
たびたび申し訳ございません^^

完璧でした(^^♪

おかげさまで、少しずつMATCH関数の使い方、組み合わせ方を理解できてきたような気がします^^

今後ともよろしくお願いします。

回答No.2

KURUMITO

どのような単語が並んでいるかも含めて次のように作業列を設けて対応してはどうでしょう。
お示しのデータがＡ2セルから下方に並んでいるとします。
Ｂ2セルには次の式を入力して下方にドラッグコピーします。

=IF(A2="","",IF(COUNTIF(A$2:A2,A2)=1,ROUNDDOWN(MAX(B$1:B1),-3)+1000+ROW(),IF(COUNTIF(A$2:A2,A2)=COUNTIF(A:A,A2),ROUNDDOWN(INDEX(B$1:B1,MATCH(A2,A$1:A1,0)),-3)+ROW(),"")))

そこでお求めの表ですが例えばＥ2セルには次の式を入力して下方にドラッグコピーします。

=IF(ROW(A1)*1000>MAX($B:$B),"",INDEX($A:$A,MATCH((ROW(A1)+1)*1000,$B:$B,1)))

Ｆ2セルには次の式を入力してＧ2セルまで横にドラッグコピーしたのちに下方にもドラッグコピーします。

=IF(E2="","",IF(ISERROR(MOD(SMALL($B:$B,ROW(A1)*2-1+COLUMN(A1)-1),1000)),$F2,MOD(SMALL($B:$B,ROW(A1)*2-1+COLUMN(A1)-1),1000)))