函數ExtrBold(ByVal rng As範圍)
尺寸i%，k%，Str$，St0$，St1$，Num0%，Num1%
k =長度(rng)
對於i = 1到k
Ifrng.characters (start: = I，length: = 1)。font.fontstyle = "bold "然後。
Str = Str & ampMid(rng，I，1)
如果…就會結束
然後
對於j = 2到Len(Str)
St1 = Mid(Str，j，1)
St0 = Mid(Str，j - 1，1)
Num1 =應用程序。查找(St1，rng)
Num0 =應用。查找(Mid(St0，1)，rng)
如果num 1-num 0 & gt；那麽1
ExtrBold = Replace(Str，St1，" " & ampSt1)
如果…就會結束
然後
結束功能
-
功能描述:
這個函數只有壹個參數，就是對象單元格。
-
操作效果:
-
如果想分開，可以添加壹個按鈕，代碼如下:
私有子命令按鈕1_Click()
Dim arr，str$
對於i = 1到[a65536]。結束(3)。排
str = ExtrBold(單元格(I，1))
arr = Split(字符串，" ")
對於j = 0至下界(arr)
單元格(I，2)。Offset(，j) = arr(j)
然後
然後
末端接頭
-