【会員アンケートご協力のお願い】抽選で計5名様に役立つ書籍をプレゼント!

Excel (一般機能)

Excelの一般機能に関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Pro : Excel 2016)
セル塗りつぶし
投稿日時: 24/06/18 09:29:07
投稿者: み-1108

いつもお世話になりありがとうございます。
 
A列に 会社名が記入されています。2000行ぐらいあり、会社名の境が分かりにくいため
セルに色を付けてわかりやすくしたいのです。
条件付き書式でできるかやってみたのですが、どうもうまくいかないため教えていただけないでしょうか。
 
よろしくお願いいたします。
 
  A
1 A社
2 A社
3 B社
4 B社
5 C社
6 C社
7 D社
・ ・
・ ・

 
  A  塗りつぶしの色
1 A社  ブルー
2 A社  ブルー 
3 B社  塗りつぶしなし
4 B社  塗りつぶしなし
5 C社  ブルー
6 C社  ブルー
7 D社  塗りつぶしなし
・ ・
・ ・
 
 

回答
投稿日時: 24/06/18 10:41:31
投稿者: んなっと

   A
 1 A社
 2 A社
 3 B社
 4 B社
 5 C社
 6 C社
 7 C社
 8 D社
 9 D社
10 D社
 
A1:A列下の方を選択して
条件付書式:数式を使用して〜▼
=AND(A1<>"",ISEVEN(COUNT(0/(IFERROR(OFFSET(A1:A$2,-1,)<>A1:A$2,)))))
書式(F) 塗りつぶし 青
OK OK

投稿日時: 24/06/18 14:15:27
投稿者: み-1108

んなっと様 
ありがとうございました。やりたかったことができて大変うれしいです。
心から感謝です。ありがとうございました。