1.  导出全部区位码字库

 
Sub getallquwei()
'导出全部区位码字库
'by: northwolves
Dim i As Byte, j As Byte, k As Byte, n As Integer, arr(1 To 1000, 1 To 10)
n = 1
For i = 16 To 87
For j = 1 To IIf(i = 55, 89, 94)
k = k + 1
arr(n, k) = Chr("&H" & Hex(i + 160) & Hex(j + 160)) & "(" & i & Format(j, "00") & ")"
If k = 10 Then k = 0: n = n + 1
Next j
Next i
[a1:j1000] = arr
End Sub