在EXCEL中，按Alt＋F11，弹出VB编辑器，插入一个模块，在空白窗口中输入： Public Sub Allword()Range("A1:CQ74").ClearContentsColumns("A:CQ").ColumnWidth = 2.25Rows(1).Font.Size = 8Columns(1).Font.Size = 8For i = 161 To 254  Cells(1, i - 159) = iNext 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)  NextNext End Sub 执行这个宏过程，就可以在页面上看到一个汉字表。

评论