Q&A
お世話になります。
下のように同じ会社名の行があります。
会社の数は100件あまりあり、それぞれの会社の行は異なります。
塗り潰してわかりやすくしたいと思っています。
A社、C社、E社・・・塗りつぶし
B社、D社、F社・・・塗りつぶしなし
イメージとしては釣りつぶしと塗りつぶしなしが会社名単位で交互にしたいのです。
会社ごと削除されることもあります。
良い方法はありますでしょうか。
ご教授お願いいたします。
|B列|C列|D列|・・・・・
|A社|:--:|--:|
|A社|:--:|--:|
|A社|:--:|--:|
|B社|:--:|--:|
|B社|:--:|--:|
|B社|:--:|--:|
|B社|:--:|--:|
|C社|:--:|--:|
|C社|:--:|--:|
|C社|:--:|--:|
|C社|:--:|--:|
|D社|:--:|--:|
|D社|:--:|--:|
|D社|:--:|--:|
|D社|:--:|--:|
|D社|:--:|--:|
|D社|:--:|--:|
・
・
・
回答3件
0
ベストアンサー
たとえばこんな感じでどうでしょう。
VBA
1Sub sample() 2 Dim i As Long, f As Boolean 3 For i = 1 To Range("B" & Rows.Count).End(xlUp).Row 4 If Not f Then Intersect(Rows(i), UsedRange).Interior.Color = vbYellow 5 If Not Range("B" & i) = Range("B" & i + 1) Then f = Not f 6 Next 7End Sub 8
投稿2021/08/05 10:49
総合スコア4592
0
A列に補助として番号を入れて、それを元に条件付き書式を設定する
| A列 | B列 | C列 | D列 |
|---|---|---|---|
| 1 | A社 | … | ‥‥ |
| =IF(B2=B1,A1,A1+1) | A社 | … | ‥‥ |
| =IF(B3=B2,A2,A2+1) | B社 | … | ‥‥ |
| =IF(B4=B3,A3,A3+1) | B社 | … | ‥‥ |
| =IF(B5=B4,A4,A4+1) | B社 | … | ‥‥ |
| =IF(B6=B5,A5,A5+1) | C社 | … | ‥‥ |
| =IF(B7=B6,A6,A6+1) | C社 | … | ‥‥ |
| =IF(B8=B7,A7,A7+1) | D社 | … | ‥‥ |
| =IF(B9=B8,A8,A8+1) | D社 | … | ‥‥ |
条件付き書式の内容
ルールの種類：数式を使用して、書式設定するセルを決定
ルールの内容：=MOD($A1,2)=0
投稿2021/08/05 12:21
総合スコア509
0
条件付き書式で設定してみてはどうでしょうか。
自動化したいなら、「マクロの記録」を利用すると良いかもしれません。
投稿2021/08/05 09:24
総合スコア25327
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2021/08/06 00:41