Excel総合相談所 91

ねむ・・
>>882
http://codezine.jp/article/detail/1718
Sub Sample()
Cells(2, 1) = ChrW(9745)
Cells(1, 1) = "文字コード：" & AscW(Cells(3, 1))
End Sub