Dim
mArr
As
Variant
Dim
i
As
Long
mArr = Array(
"00C1"
,
"00E1"
,
"00C9"
,
"00E9"
,
"011A"
,
"011B"
,
"00CD"
,
"00ED"
,
"00D3"
,
"00F3"
, _
"00DA"
,
"00FA"
,
"016E"
,
"016F"
,
"00DD"
,
"00FD"
,
"010C"
,
"010D"
,
"010E"
,
"010F"
, _
"0147"
,
"0148"
,
"0158"
,
"0159"
,
"0160"
,
"0161"
,
"0164"
,
"0165"
,
"017D"
,
"017E"
)
For
i = LBound(mArr)
To
UBound(mArr)
Cells(i + 1, 1).Value =
"'"
& mArr(i)
Cells(i + 1, 2).Value =
CLng
(
"&H"
& mArr(i))
Cells(i + 1, 3).Value = ChrW(
CLng
(
"&H"
& mArr(i)))
Next
i
End
Sub