vba實現單元格內每個字的字體都是隨機字體，如同

Sub?Test()

Dim?Arr(5)

Arr(1)?=?"仿宋"

Arr(2)?=?"華文行楷"

Arr(3)?=?"方正蘭亭超細黑簡體"

Arr(4)?=?"楷體"

Arr(5)?=?"宋體"

Sheet1.UsedRange.Select

For?Each?Cell?In?Selection

For?I?=?1?To?Len(Cell.Text)

A?=?Int(Rnd()?*?5)?+?1

Cell.Characters(Start:=I,?Length:=1).Font.Name?=?Arr(A)

Next

Next

End?Sub

上一篇:帶宏的excel文件打不開壹直提示在下載

下一篇:創豆連線編程 語音無法聯網