Sub 数値を文字列に変換する()

    数値セル = Range("A1")
    
    文字列変換済みの数値セル = CStr(数値セル)

End Sub