Sub 下标()
Dim s As String, m As String
arr = Array("mfcu", "λ3", "λ1", "Sn", "fcu,min", "λ2", "λ4", "fcu,k")
For i = 0 To UBound(arr)
s = arr(i)
For h = 1 To Len([b24])
m = [b24].Characters(h, Len(s)).Text
If m = s Then
With [b24].Characters(h + 1, Len(s) - 1).Font
.Size = 6
End With
End If
Next
Next
End Sub
VBA工地资料之下标模块
最新推荐文章于 2024-10-17 16:21:20 发布