Vba詞典張三

以下程序僅適用於單元格A1。如果有多個單元格，只需添加壹個循環。

子著色（）

a = Len（單元格（1，1））

對於b = 1到a

c = Mid（單元格（1，1），b，1）

如果c =“【“那麽

n = b

ElseIf c =“】“然後

m = b

單元格（1，1）。挑選

使用ActiveCell。字符（開始:=n，長度:=m）。字體

。Color = -16776961

以…結尾

如果…就會結束

下壹個b

末端接頭