我用你的脚本打包成功了,高手啊!
希望更多人能用到这个版本,主要目前最好用的平台还是RIME,之前我试了很多其他的,自从极点不更新后,其他的都或多或少有些问题。为了这个,也换用了拼音一段时间。
RIME的好处是,跨平台能使用,win8支持好,源码公开,可以使用自己的方案。
另外,希望测试如果没有太多问题,太空卫士能把新的码表挂在RIME上面,其实格式很简单,把原来码表中重码的全部按顺序展开就行,用excel-vba可以。我是从极点导出的20120309码表。
我顺便贴下我的vba,整理码表用:
Option Explicit
Public Sub MySplit()
Dim r As Long
Dim c As Long
Dim rOri As Long
Dim cOri As Long
Dim flag As Integer
Dim headerCounter As Integer
Dim Cell As Range
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
'整理重码
ArrangeChongMa ThisWorkbook.Worksheets("test")
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
MsgBox "整理完成"
End Sub
Public Sub ArrangeChongMa(ByVal myWorkSheet As Worksheet)
Dim r As Long
Dim c As Long
Dim flag As Long
'删空行
With myWorkSheet
For r = .UsedRange.Row + .UsedRange.Rows.Count - 1 To 1 Step -1
flag = 0
While IsEmpty(Cells(r, 3).Value) = False
flag = flag + 1
Cells(r + flag, 3).EntireRow.Insert
Cells(r + flag, 1) = Cells(r, 1)
Cells(r + flag, 2) = Cells(r, 3)
Cells(r, 3).Delete Shift:=xlToLeft
Wend
Next r
End With
End Sub