エクセル。ブック内検索で重複文字列には色付け

質問

エクセル2010を使用しております。

タイトルのままなのですが、
ブック内での検索で重複した文字列には色を付けたいです。

現在、月ごとにシートを作成し顧客管理をしているのですが
リピーターのお客様の場合は色をつけてわかりやすくしたいのですが
条件付き書式ではブック内の重複ができずに困っております。
(同じシート内でしたらできます)

◇理想
セルにお客様の名前等(会員Noなど)を入力したらブック内で検索して
重複がある場合はセルに色をつける

説明が下手で申し訳御座いません。
いろいろ検索して探してはみたのですが見つからなかったので質問させて頂きました。

回答No.2

keithin

シートをぶち抜きで（重複を）検索する関数、なるモノはエクセルにはありません。
無いので、探しても見つかりません。

しかし
＞エクセル2010を使用しております。

というお話なので、ふつーに条件付き書式を重ね掛けしていけば、別に何も難しい事なく作成できます。

手順：
シート１に色を付けたいとして
Ａ列を列選択（まぁ説明がありませんがＡ列が名前列として）
条件付き書式を開始
新しいルールで数式を使用して…を開始
=COUNTIF(Sheet2!A:A,A1)
と記入し、赤い色塗りを設定する

Ａ列を列選択
改めて条件付き書式を開始
新しいルールで数式を使用して…を開始
=COUNTIF(Sheet3!A:A,A1)
と記入し、赤い色塗りを設定する

以下同文で設定を重ねていきます。

＃ご相談で質問されていないので余計なお話について

上述をシート１とすると、実際にはさらに

Ａ列を列選択
改めて条件付き書式を開始
新しいルールで数式を使用して…を開始
=COUNTIF(Sheet1!A:A,A1)
と記入し、赤い色塗りを設定する

Ａ列をコピー、他のシートのＡ列に次々コピー貼り付ける
各シートのＡ列で条件付き書式のルールの管理を開始
自分シートを計算している条件を削除する

お礼

遅くなりまして申し訳ありません。

ぶちぬきはできないんですね＞＜

でもとても参考になりました。

お忙しい中ありがとうございます。

回答No.1

tom04

こんばんは！
VBAになってしまいますが・・・
一例です。

（1）入力用SheetはSheet見出しの一番左側にあり、2番目以降に月ごとのSheetがあるとします。
（2）各SheetともA列に検索データがあり、入力SheetもA列に検索データを入力するとします。

画面左下の一番左側（入力用Sheet）のSheet見出し上で右クリック　→　コードの表示　→　VBE画面に
↓のコードをコピー＆ペーストして、A列にデータを入力してみてください。

Private Sub Worksheet_Change(ByVal Target As Range) 'この行から
Dim k As Long
If Intersect(Target, Columns(1)) Is Nothing Or Selection.Count <> 1 Then Exit Sub
For k = 2 To Worksheets.Count
If WorksheetFunction.CountIf(Worksheets(k).Columns(1), Target) Then
Target.Interior.ColorIndex = 3
Exit For
Else
Target.Interior.ColorIndex = xlNone
End If
Next k
End Sub 'この行まで

※　セル色は「赤」にしています。

参考になりますかね？m（_ _）m

お礼

ご連絡が遅くなりまして申し訳ありません。
解決致しました。

お忙しい中ご協力ありがとうございます。