返回列表 上一主題 發帖

[發問] 單位字串裡的上標字修改

回復 1# ML089
  1. Sub ex()
  2. Dim A As Range
  3. For Each A In Range([C2], [C2].End(xlDown))
  4.   For i = 1 To Len(A)
  5.      If Val(Mid(A, i, 1)) > 0 Then A.Characters(i, 1).Font.Superscript = True
  6.   Next
  7. Next
  8. End Sub
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 【生命在呼吸間】佛陀說:「生命在呼吸間。」人無法管住自己的生命,更無法擋住死期,讓自己永住人間。既然生命去來這麼無常,我們更應該好好地愛惜它、利用它、充實它,讓這無常、寶貴的生命,散發它真善美的光輝,映照出生命真正的價值。
返回列表 上一主題