• ベストアンサー

縦列で数字が重複していたら色分けしてセルを塗り潰す

このカテゴリーのエクセルの達人の方々に質問です。 どなたか回答して頂ける方がおみえでしたらよろしくお願いします。 （ちゃんとした回答ではなく、文句やクレーム等を混ぜた記載はご遠慮ください。 　また、私の質問が気に入らない場合は無視して頂ければ結構です。） 【質問】 添付図のとおり、Ａ列～Ｙ列の５行のセルがあります。 セルの中には数字がランダムに入っています。 Ａ列から縦５つの数字を見たとき、 数字が重複しているならそのセルを塗り潰して、 Ｙ列までそれを繰り返す。 最初に見つけた重複数字は「黄色」、 ２つめに見つけた重複数字は「青色」に分けて塗潰す方法が知りたいです。 【注意事項】 　　・A列からＹ列に入る数字は毎回異なります。 　　・重複数字が無い列も存在します。 　　・ＶＢＡで実現する方法～、と書きましたが、 　　　同様のことが他の方法でも実現できればそれを教えて下さい。 　　・使用するエクセルは２０２１です。 以上、よろしくお願いします。

画像を拡大する

質問者が選んだベストアンサー

  • ベストアンサー
  • kkkkkm
  • ベストアンサー率65% (1630/2473)
回答No.1

以下のサイトを参考にして 値が重複するセルに色を付ける https://help-vba.com/same-value-cells/ Sub Test() Dim i As Long, cnt As Long Dim mRng As Range, c1 As Range, c2 As Range Range("A1:Y5").Interior.ColorIndex = xlNone For i = Columns("A").Column To Columns("Y").Column Set mRng = Range(Cells(1, i), Cells(5, i)) cnt = 1 For Each c1 In mRng If WorksheetFunction.CountIf(mRng, c1) > 1 _ And c1.Interior.ColorIndex = xlNone Then For Each c2 In mRng If c1.Value = c2.Value Then If cnt = 1 Then c2.Interior.Color = vbYellow Else c2.Interior.Color = vbCyan End If End If Next cnt = 2 End If Next Next End Sub

sazanami0422
質問者

お礼

早速、回答頂いたソースにて結果が得られました。ありがとうございました。また、サンプルとなるページも教えて頂きありがとうございました。また見かけたら回答頂けると助かります。

Powered by GRATICA
全文を見る
すると、全ての回答が全文表示されます。
  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. Excel（エクセル）

関連するQ&A

  • 重複数字の数に応じてセルに色をつける。

    このカテゴリーのエクセルの達人の方々に質問です。 どなたか回答して頂ける方がお見えでしたらよろしくお願いします。 （ちゃんとした回答ではなく、文句やクレーム等を混ぜた記載はご遠慮ください。 　また私の質問が気に入らない場合は無視して頂ければ結構です。） 【質問】 　添付図のとおり、１列×２５行の中に数字が１～31まであり、 　重複数字を含んで昇順に並んでおり、それが４列あります。 　１列毎に数字を見て以下の条件にあえばセルを塗り潰します。 　　２個重複⇒セルを黄色に塗り潰す。 　　３個重複⇒セルを青色に塗り潰す。 　　４個重複⇒セルを緑色に塗り潰す。 　　５個重複⇒セルを赤色に塗り潰す。 　 上記を実現する方法をＶＢＡで実現する方法が知りたいです。 　 【注意事項】 　　・1列×２５行の中にある数字の並びは毎回異なります。 　　・1列×２５行の中に重複数字が無い場合があります。（例：Ａ列） 　　・ＶＢＡで実現する方法～、と書きましたが、 　　　同様のことが他の方法でも実現できればそれを教えて下さい。 　　・使用するエクセルは２０２１です。 以上、よろしくお願いします。

  • 重複の数によって塗潰しの色を変える方法

    このカテゴリーのエクセルの達人の方々に質問です。 どなたか回答して頂ける方がおみえでしたらよろしくお願いします。 （ちゃんとした回答ではなく、文句やクレーム等を混ぜた記載はご遠慮ください。 　私の質問が気に入らない場合は無視して頂ければ結構です。） 【質問】 添付図のとおり、Ａ列とＢ列に数字が入っていて重複がありますが 昇順で並んでいます。それが１００行あります。重複の数に応じて以下のとおりセルの塗潰しがしたいです。 　Ａ列＆Ｂ列重複　・・・２個なら”黄色”で塗潰し。 　Ａ列＆Ｂ列重複　・・・３個なら”青色”で塗潰し。 　Ａ列＆Ｂ列重複　・・・ 4個なら”緑色”で塗潰し。 　Ａ列＆Ｂ列重複　・・・ 5個なら”赤色”で塗潰し。 上記を実現する方法をＶＢＡで実現する方法が知りたいです。 　 【注意事項】 　　・A列、B列の数字は毎回異なります。 　　・ＶＢＡで実現する方法～、と書きましたが、 　　　同様のことが他の方法でも実現できればそれを教えて下さい。 　　・使用するエクセルは２０２１です。 以上、よろしくお願いします。

  • 重複する数字のセルを塗り潰す方法。

    どなたかご存知でしたら回答をよろしくお願いします。 【質問】 　５×５マスの中に数字が１~３１迄で重複して入っている場合があります。 　もし重複数字があれば、その数字のセルを塗潰す方法が知りたいです。 【例】　セルのA1~Ｅ５までに下記の様に数字が入っている場合、 　　　　重複数字の４，６，７、14、１５，２９のセルを塗潰す。 4 8 18 19 29 3 4　6 17 29 2 4　6 23 25 7 13 14 15 20 7 12 14 15 16 【注意事項】 　・使用するエクセルは２０１０です。 　・塗潰しの色は全て同じ色でかまいません。 以上、よろしくお願いします。

  • 連続する同じ数字のセルの塗り潰しがしたい。

    このカテゴリーのエクセルの達人の方々に質問です。 どなたか回答して頂ける方がお見えでしたら回答よろしくお願いします。 （ちゃんとした回答ではなく、文句やクレーム等を混ぜた記載はご遠慮ください。 　また私の質問が気に入らない場合は無視して頂ければ結構です。） 【質問】 　添付図のとおり、４行×２５列の中に数字が１～31まであり、重複して入っています。 　この中にある数字で、同じ数字が縦・右斜め・左斜め（横は無い）のいずれかに該当すれば 　その数字のセルを黄色で塗り潰す方法をＶＢＡで実現する方法が知りたいです。 　 【注意事項】 　　・４行×２５列の中にある数字の並びは毎回異なります。 　　・ＶＢＡで実現する方法～、と書きましたが、 　　　同様のことが他の方法でも実現できればそれを教えて下さい。 　　・使用するエクセルは２０２１です。 以上、よろしくお願いします。

  • 検索値と検索対象の数字が一致の場合にセルを塗り潰す

    このカテゴリーのエクセルの達人の方々に質問です。 どなたか回答して頂ける方がおみえでしたらよろしくお願いします。 （ちゃんとした回答ではなく、文句やクレーム等を混ぜた記載はご遠慮ください。 　私の質問が気に入らない場合は無視して頂ければ結構です。） 【質問】 添付図のとおり、検索値の数字で検索対象の数字をチェックして、同じ数字であれば、水色で検索対象のセルを塗り潰す。 　検索値：G1～K5の中に１～31までの数字が重複ありで25個入っている。 　検索対象：A1～E20の中に１～31までの数字が重複ありで入っている。 上記を実現する方法をＶＢＡで実現する方法が知りたいです。 　 【注意事項】 　　・検索値と検索対象の数字は毎回異なります。 　　・ＶＢＡで実現する方法～、と書きましたが、 　　　同様のことが他の方法でも実現できればそれを教えて下さい。 　　・使用するエクセルは２０２１です。 以上、よろしくお願いします。

  • 【再】連続する同じ数字のセルの塗り潰しがしたい。

    先程は、質問の添付図が添付されていなかたので再掲載します。 ＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠ このカテゴリーのエクセルの達人の方々に質問です。 どなたか回答して頂ける方がお見えでしたら回答よろしくお願いします。 （ちゃんとした回答ではなく、文句やクレーム等を混ぜた記載はご遠慮ください。 　また私の質問が気に入らない場合は無視して頂ければ結構です。） 【質問】 　添付図のとおり、４行×２５列の中に数字が１～31まであり、重複して入っています。 　この中にある数字で、同じ数字が縦・右斜め・左斜め（横は無い）のいずれかに該当すれば 　その数字のセルを黄色で塗り潰す方法をＶＢＡで実現する方法が知りたいです。 　 【注意事項】 　　・４行×２５列の中にある数字の並びは毎回異なります。 　　・ＶＢＡで実現する方法～、と書きましたが、 　　　同様のことが他の方法でも実現できればそれを教えて下さい。 　　・使用するエクセルは２０２１です。 以上、よろしくお願いします。

  • 枠の左と真ん中と右の数字を分けて昇順に並べる方法

    このカテゴリーのエクセルの達人の方々に質問です。 どなたか回答して頂ける方がおみえでしたらよろしくお願いします。 （ちゃんとした回答ではなく、文句やクレーム等を混ぜた記載はご遠慮ください。 　私の質問が気に入らない場合は無視して頂ければ結構です。） 【質問】 　添付図のとおり、７列×５行の中に数字が１～37まであり、 　重複数字を含んでおり、それが４つ（A,B,C,D）あります。 　その中で、１列～２列、３列～５列、６列～７列と数字を分けて下段に 　「〇中」、「〇左」、「〇右」として左から右へ昇順に並べます。　 上記を実現する方法をＶＢＡで実現する方法が知りたいです。 　 【注意事項】 　　・７列×５行の中にある数字の並びは毎回異なります。 　　・枠線や塗り潰しの橙色や緑色や青色は、説明のために付けているだけです。 　　・ＶＢＡで実現する方法～、と書きましたが、 　　　同様のことが他の方法でも実現できればそれを教えて下さい。 　　・使用するエクセルは２０２１です。 以上、よろしくお願いします。

  • 枠の外と内の数字に分けて昇順に並べる方法

    あけましておめでとうございます。 本年もよろしくお願いいたします。 このカテゴリーのエクセルの達人の方々に質問です。 どなたか回答して頂ける方がおみえでしたらよろしくお願いします。 （ちゃんとした回答ではなく、文句やクレーム等を混ぜた記載はご遠慮ください。 　私の質問が気に入らない場合は無視して頂ければ結構です。） 【質問】 　添付図のとおり、５列×５行の中に数字が１～31まであり、 　重複数字を含んでおり、それが４つ（A,B,C,D）あります。 　その中で、赤枠内と外の数字を分けて下段に 　「〇外」、「〇内」として左から右へ昇順に並べます。　 上記を実現する方法をＶＢＡで実現する方法が知りたいです。 　 【注意事項】 　　・５列×５行の中にある数字の並びは毎回異なります。 　　・赤枠や、塗り潰しの青色や黄色は、説明のために付けているだけです。 　　・ＶＢＡで実現する方法～、と書きましたが、 　　　同様のことが他の方法でも実現できればそれを教えて下さい。 　　・使用するエクセルは２０２１です。 以上、よろしくお願いします。

  • 塗りつぶしたセルの対称となるセルの数字を抜き出す

    いつもお世話になっております。 よろしければ回答をお願いいたします。 【質問】 添付図の様にＡ１～Ｅ２０までに１～３１迄の数字が重複有りで入っています。 それを、Ｇ２～Ｌ２の数字で検索します。 検索できたらそのセルを赤く塗り潰します。 赤く塗りつぶしたセルがＣ列以外の場合、 対称（Ａ列の対称はＥ列、Ｂ列の対称はＤ列）となる数字を Ｇ５から下に並べる方法が知りたいです。 【注意事項】 ・使用するエクセルは２０１６です。 ・Ｇ２～Ｌ２に入る数字は１～３１迄で重複無しです。 以上、よろしくお願いいたします。

  • 同一数字の重複を”1”としてカウントする方法。

    どなたかご存じでしたらご回答よろしくお願いします。 【質問】 　エクセルのＡ列～Ｅ列に0～9迄の任意の数字が1つだけ入っています。 　これをＦ列で「同一数字はいくつ重複しても”１”として数字の数をカウントする方法」 　が知りたいです。具体的に下記のエクセルシートのとおりです。 ●エクセルシート 　　A　B　C　D　E　F 　　3　3　1　7　　8　4 ←"3"は同一数字で2個重複するが"1個"とみなして、3178の4となる。 　　7　7　7　7　　7　1 ←"7"は同一数字で5個重複するが "1個"とみなして、7の1となる。 　　4　4　4　4　　2　2 ←"4"は同一数字で4個重複するが "1個"とみなして、42の2となる。 　　6　6　6　3　　1　3 ←"6"は同一数字で3個重複するが "1個"とみなして、631の2となる。 　　1　1　8　8　　8　2 ←"1"は同一数字で2個重複、"8"は同一数字で3個重複するがそれぞれ 　　　　　　　　　　　　　　"1個"とみなして、18の2となる。 　　3　3　2　2　　5　3 ←"3"と"2"は同一数字で2個ずつ重複するがそれぞれ"1個”とみなして 　　　　　　　　　　　　　　　325の3となる。 　　3　4　5　6　　7　5 ← 同一数字の重複は存在しないため、34567の5となる。 ●注意事項 　　・使用するエクセルは2010です。 以上、よろしくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する