セルに設定された表示形式を取得する。

VBAでセルに入力された文字の表示形式を取得するにはRangeオブジェクトのNumberFormatLocalプロパティをから取得することができます。
※NumberFormatLocalプロパティから取得できるデータは「セルの書式設定」→「表示形式」で指定した設定になります。

サンプルコードではA2～A13セルに設定した表示形式を同行のC列のセルに取得値を表示しています。
B列はA列に対して「セルの書式設定」→「表示形式」で設定した分類名を記載しています。

'******************************************************************
'　セルに設定された表示形式の取得
'*****************************************************************
Sub getFormat()
    
    Dim i As Long
    For i = 2 To 13
        With Sheets("Sheet1")
            .Cells(i, 3) = .Cells(i, 1).NumberFormatLocal
        End With
    Next

End Sub

　■実行結果