セルの書式を書き出す

'------------------------------------------------------
'セルの書式設定を書き出し
'
'   戻値：なし
'
'   引数：コピー元セル（範囲指定は不可）
'       ：コピー先セル（範囲指定可）
'
'   注意：コピー元セルが複数指定されている場合エラーとする
'-------------------------------------------------------
Sub WriteRangeFormat(rngMoto As Range, rngSaki As Range)
    
    If rngMoto.Count > 1 Then
    
        'エラー処理を行う（ログを出す、セルを色づけする等）
        
        Exit Sub
        
    End If
    
    rngSaki.Value = rngMoto.NumberFormatLocal
    
End Sub

【呼び出し方】

'A1の書式設定をB1に書き出し

Call WriteRangeFormat(ActiveSheet.Range("A1"), ActiveSheet.Range("B1"))