當前位置:成語大全網 - 漢語詞典 - 懂excel-vba的朋友如何從壹堆數據中自動提取粗體字?

懂excel-vba的朋友如何從壹堆數據中自動提取粗體字?

首先自定義壹個函數,我們姑且稱之為ExtrBold,代碼如下:

函數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)

然後

然後

末端接頭

-