n7822123

回復 17# yahoohk1314


因為本來只有一個儲存格，被你改掉之後，
.value取出的資料已經不是單一字串，變成陣列了

試試下面的程式吧!

Sub TEST_02()
Dim i%, C%, U%, T$
For Each rg In [H1:H100]: With rg
     For i = 1 To Len(.Value) + 1
         T = Trim(Mid(.Value, i, 1))
         If T = "+" Then U = i: C = 43
         If T = "-" Then U = i: C = 3
         If T = "" Then With .Characters(U, i - U).Font: .Size = 10: .ColorIndex = C: End With
     Next i
End With: Next
End Sub

n7822123

回復 19# yahoohk1314


請確認+,- 符號後需要變顏色的數字 到 不需變顏色的數字，中間是否有空格

建議上傳檔案，大家比較好幫你Debug