セルA1の値のカラーインデックスを調べてセルB1にカラーインデックス番号をかえすマクロをご教示いただければ幸いです。

Sub Macro1()
    Range("B1").Font.ColorIndex = Range("A1").Font.ColorIndex
End Sub

たとえば、背景色の

Public Sub test()

Worksheets("Sheet1").Cells(1, 2) = Range("A1").Interior.ColorIndex

End Sub

って　ことでしょうか？

VBAを使用した方法で宜しければ、下記の方法は如何でしょうか？

(1)Excel上部のメニューから、ツール→マクロ→Visual Basic Editor

(2)画面左にあるリストの、"Microsoft Excel オブジェクト"のところで、右クリック→挿入→標準モジュール

(3)↓のテキストをコピー＆貼付け

Public Function Get_Color_Index(Pin_Cell As String) As Variant

On Error GoTo Get_Color_Index_Error

Get_Color_Index = Range(Pin_Cell).Font.ColorIndex

Exit Function

Get_Color_Index_Error:

Get_Color_Index = "#VALUE!"

End Function

(4)Excelシートに戻りまして、B1セルに、

=Get_Color_Index("A1")

と入力。

（ご参考）

http://www.tsucchy.com/Excel/contents.html