在EXCEL中，按Alt＋F11，弹出VB编辑器，插入一个模块，在空白窗口中输入：

Public Sub Allword()
Range("A1:CQ74").ClearContents
Columns("A:CQ").ColumnWidth = 2.25
Rows(1).Font.Size = 8
Columns(1).Font.Size = 8
For i = 161 To 254
  Cells(1, i - 159) = i
Next

For m = 176 To 247
  Cells(m - 174, 1) = m
  For n = 161 To 254
  mn = "&H" & Hex(m) & Hex(n)
  a = m - 174
  b = n - 159
  Cells(a, b).Value = Chr(mn)
  Next
Next

End Sub

执行这个宏过程，就可以在页面上看到一个汉字表。

评论