【エクセルVBA】セルの色を数値化

会社のメンバーが、
丁寧に、エクセルのセルに色をつけて、わけてくれました。
例えば、10000件のお客様があって、
Aランク、Bランク、Cランクに３色に色をわけてくれたとします。
目で見るとわかりやすいのですが、
データとしては、色が違うだけでは並べ替えなどができません。

これは困りました。

でも、VBAを使えば、短いコードで解決できます。

エクセルの関数ではできませんが、VBAを使えば、セルの色を数値化できます。
数値化してしまえば、IF関数などでAランクとかBランクとかつけて、
分析することができますね！

一番右の列のセルの色を数値化して、右隣りセルに表示するコードを紹介します。
実行すると、インデックスカラー番号が、セルのとなりに記入されるので、

これで並べ替えや加工が出来ます！

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

↓よろしければクリックお願いします🌼
にほんブログ村