会社のメンバーが、
丁寧に、エクセルのセルに色をつけて、わけてくれました。
例えば、10000件のお客様があって、
Aランク、Bランク、Cランクに3色に色をわけてくれたとします。
目で見るとわかりやすいのですが、
データとしては、色が違うだけでは並べ替えなどができません。
これは困りました。
でも、VBAを使えば、短いコードで解決できます。
エクセルの関数ではできませんが、VBAを使えば、セルの色を数値化できます。
数値化してしまえば、IF関数などでAランクとかBランクとかつけて、
分析することができますね!
一番右の列のセルの色を数値化して、右隣りセルに表示するコードを紹介します。
実行すると、インデックスカラー番号が、セルのとなりに記入されるので、
これで並べ替えや加工が出来ます!
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
Sub irohantei() Dim MaxRow As Integer Dim Maxcol As Integer Dim i As Integer MaxRow = Cells(Rows.Count, 1).End(xlUp).Row '最終行の取得 Maxcol = Cells(1, Columns.Count).End(xlToLeft).Column '最終列の取得 For i = 1 To MaxRow Cells(i, Maxcol + 1) = Cells(i, Maxcol).Interior.ColorIndex Next i End Sub |
↓よろしければクリックお願いします🌼
にほんブログ村
コメント