函數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)
然後
然後
末端接頭
-