エクセルのマクロについて(同じ内容のセルを探す)

エクセル2003を使っています。
A1、A2.。。と縦方向にに文字列が入力されています(何百件と数は多いです)。
そのデータ内容に重複するものがあったら、セルの色を赤にする・文字の色を赤にする。。。等、何でもいいのですが色つけで区別する関数があったと思うのですが、見つけられません。
教えてください！

No.3 ベストアンサー 回答者： noah7150 回答日時： 2008/10/26 22:15

>「重複元番号に上の行と一致する場合、行番号を表示一致しなければ空白とする計算式を入れる」とありますが、

行SEQ列A、重複元行B、文字列Cで1行目がタイトルなら
B3に
=IF(C2=C3,B2,"")
このセルを最終までコピー
色を変えるならこのセルを元に条件書式

No.2 回答者： mohenjo 回答日時： 2008/10/24 10:00

＞色つけで区別する関数が

関数は解りませんが、強引にコードでやってみました。
以下のコードをそのシート（Sheet1等）の下方部分を
右クリックし、「コードの表示」をクリックし
以下のコードを貼り付けて下さい。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Me.UsedRange
.Cells.Interior.ColorIndex = xlNone
End With
Dim rngS As Range, rngT As Range
For Each rngS In Range("A1", Range("A1").End(xlDown))
If Target.Value = rngS.Value Then
If rngT Is Nothing Then
Set rngT = rngS
Else
Set rngT = Application.Union(rngT, rngS)
End If
End If
Next rngS
rngT.Interior.Color = vbRed


End Sub

シートのA列で重複する内容のセルを赤で塗りつぶすもの
ですが、範囲を変えるとか、文字の色を変える場合は
別の方法です。
とりあえず貼り付け後、任意のセルをクリックしてみて
下さい。

No.1 回答者： noah7150 回答日時： 2008/10/24 09:53

私の場合は、力技でやってます。

並べ替えて上の内容と同じならって

まず、行番号と重複元番号の２つのカラムを追加

行番号カラムの先頭行に１
行が少なければドラックして連番
多ければ計算式で上の値に＋１
最終行まで複写して連番を振り、行番号カラム全体を複写、形式を指定して貼り付けを選択して値の複写。
計算式のままにしておくと並べ替えた時せっかく振った連番が壊れるため値にして置く

比較したいカラム、行番号でソート
重複元番号に上の行と一致する場合、行番号を表示一致しなければ空白とする計算式を入れる
行番号と同様に重複元番号カラム全体を複写して値の貼り付け

行番号でソートし順を戻す
こんな具合でしょうか

この回答への補足

ありがとうございます。
「重複元番号に上の行と一致する場合、行番号を表示一致しなければ空白とする計算式を入れる」とありますが、
これはどういったものでしょうか？

補足日時：2008/10/25 19:12