No.2ベストアンサー
- 回答日時:
こんにちは
ダブりが多い場合(例えば10行とか)の場合にどのように判断すれば良いのでしょうか?
ご提示のサンプルを見ると、「違うところ」と言っても、上の行には色がついていないので、
『最初に出現した行を正として比較し、次行以降でこれと異なる値のセルに色を付ける』
というような考え方にしてみました。(これなら多数行重複していても、単純比較で済みますので)
サンプルの図では行数がはっきりしませんが、1行目がタイトル行で2行目から値があるものと判断しました。
図のC2セル(=「12」の値があるセル)以降を選択して(C2セルがアクティブな状態で)条件付き書式を設定します。
「数式を使用して~~」の数式欄に
=C2<>INDEX(C:C,MATCH($B2,$B:$B,0))
の条件式を設定し、書式を設定するのではどうでしょうか?
この回答へのお礼
お礼日時:2020/01/29 10:02
早々にご返答頂き助かりました。
ご丁寧に設定方法までありがとうございます。
ベストアンサーにさせて頂きました。お礼が遅くなり申し訳ありませんでした。
No.4
- 回答日時:
最初に出現した行が必ずしも正しい訳けではないですよね?
であれば、その行にも色を付けちゃった方が見やすくないですか?
条件式は、こんな感じで。
=COUNTIFS($B:$B,$B2,C:C,"<>" & C2)>0
No.3
- 回答日時:
こんばんは!
>上下に並んでいるとは限りませんし、よくよく考えたらダブりが2より多い時がもしかしたらあるかも
2回目以降の出現に関しては最初に出現したC列以降のデータを基準としています。
すなわち「ダブり」が3個以上あっても、
最初に出現したデータのC列以降にない場合のみ色付けがされます。
せっかくA列データがあるので、それを利用しています。
尚、1行目は項目行でデータは2行目以降にあるという前提です。
VBAになりますが一例です。
Sub Sample1()
Dim myDic As Object
Dim i As Long, j As Long, k As Long
Dim lastRow As Long, lastCol As Long
Dim buf As String, myStr As String, myKey As String
Dim myFlg As Boolean
Dim myAry, myVal
Set myDic = CreateObject("Scripting.Dictionary")
lastRow = Cells(Rows.Count, "B").End(xlUp).Row
lastCol = Cells(1, Columns.Count).End(xlToLeft).Column
Range(Cells(2, "C"), Cells(lastRow, lastCol)).Interior.ColorIndex = xlNone
For i = 2 To lastRow
If Cells(i, "A") > 1 Then
myKey = Cells(i, "B")
If Not myDic.exists(myKey) Then
For j = 3 To lastCol
buf = buf & Cells(i, j) & "_"
Next j
myStr = Left(buf, Len(buf) - 1)
myDic.Add myKey, myStr
buf = ""
Else
myAry = Split(myDic(myKey), "_")
For j = 3 To lastCol
For k = 0 To UBound(myAry)
If IsNumeric(myAry(k)) Then
myVal = Val(myAry(k))
Else
myVal = myAry(k)
End If
If Cells(i, j) = myVal Then
myFlg = True
Exit For
End If
Next k
If myFlg = False Then
Cells(i, j).Interior.ColorIndex = 6
End If
myFlg = False
Next j
End If
End If
Next i
Set myDic = Nothing
End Sub
※ 条件付き書式が設定してあると、そちらが優先され色が付きませんので
条件付き書式はクリアしておいてください。m(_ _)m
この回答へのお礼
お礼日時:2020/01/29 10:05
VBAバージョンありがとうございます。
VBAは初心者ですので、コードの内容勉強させて頂きます。
貴重なコードありがとうございます。お礼が遅くなり申し訳ありませんでした。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(Microsoft Office) ある表(10桝程度)の中に数字が入っています。ダブっている数字を除く数字の合計数の計算方法 5 2023/02/15 11:33
- Excel(エクセル) エクセルで2つの表を比較して、文字列が同じだが、その行のある値が違うものを抽出したい 1 2022/10/06 21:48
- Excel(エクセル) Excel2019 列と列(2列)の数値の重複を調べたい 1 2023/05/11 13:35
- Visual Basic(VBA) Excel(VBA) 特定の条件に該当する行の値、書式を同じセルにコピ&ペーストしたいです 1 2022/05/21 18:18
- Visual Basic(VBA) vbaで条件付き書式を設定したときの適用範囲について 1 2023/07/17 23:14
- Excel(エクセル) 条件付書式 Sheet1からSheet2に転記した時の転記ミスを反映させたい 5 2022/05/21 09:52
- Excel(エクセル) エクセルでセルの文字列から年月を抜き出して今日の日付と比較したい 15 2022/07/29 14:39
- Excel(エクセル) Countifよりも早く重複数をカウントする方法ありますか? 18 2022/07/04 13:39
- Excel(エクセル) Excel2007での条件付き書式について 6 2023/05/02 10:56
- CGI VBAで条件から範囲を指定して色を塗る方法を知りたいです 1 2022/06/30 16:05
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
色のリンクは出来ますか?【エク...
-
excel:条件付き書式の適用範囲...
-
Excelで表を作り、自動で今月の...
-
エクセルにて指定した日付の色...
-
セルを結合したA4とA5の条件付...
-
Excel、特定の期間に色をつける...
-
未来の日付日欄を無色(空白)...
-
vba 条件付き書式を一般書式に...
-
条件付き書式設定で色をつけた...
-
エクセル2007で条件付き書式の...
-
ある倍数だけを塗りつぶす方法 ...
-
エクセルで
-
エクセル 時刻の計算と条件付き...
-
Excelの条件付き書式について
-
Excelによる大小判断
-
左列の文字の色と同じ文字の色...
-
ダブりの行を比較して、違うと...
-
Excelの塗りつぶしの反映
-
数字を入力するとセルに色が付...
-
条件付き書式のやり方。隣のセ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
セルを結合したA4とA5の条件付...
-
excel:条件付き書式の適用範囲...
-
色のリンクは出来ますか?【エク...
-
ある倍数だけを塗りつぶす方法 ...
-
Excelで表を作り、自動で今月の...
-
Excelで社歴管理をしており4年...
-
左列の文字の色と同じ文字の色...
-
条件付き書式のやり方。隣のセ...
-
エクセル 条件付書式で時刻の...
-
エクセルの折られたセルを戻したい
-
数字を入力するとセルに色が付...
-
Excelの塗りつぶしの反映
-
【Excel】ガントチャートの作成...
-
EXCELで2つの条件設定で別のセ...
-
Excelで隣のセルを参照し...
-
Excelで、期限切れのリストが一...
-
エクセルの条件付き書式による...
-
エクセルで
-
条件付き書式設定で色をつけた...
-
エクセル2010の書式の条件設定...
おすすめ情報
必ずしも、上下に並んでいるとは限りませんし、よくよく考えたらダブりが2より多い時がもしかしたらあるかもしれません。言葉足らずで申し訳ありませんでした。