excel vba 的一段代码没看懂请解释一下

好像是把[*]下角标但用了一下没反应

2024-11-02 18:25:57

推荐回答（3个）

回答（1）：

Sub xxx()
Dim rg As Range, i As Integer
For Each rg In Application.Selection
        悔烂If rg Like "*[[]*[]]*" Then
            rg.Characters(InStr(rg, "["), Len(Mid(rg, InStr(rg, "]"), InStr(rg, "]") - InStr(rg, "[") + 1))).Font.Superscript = False
          桥扒  rg.Characters(InStr(rg, "["), Len(Mid(rg, InStr(rg, "]"), InStr(rg, "]") - InStr(rg, "[") + 1))).Font.Subscript = True
    敏前昌    End If
Next
End Sub

里面那一层for可以不要，改成这样

回答（2）：

要选择区域里有[*]格式的才有效果。

回答（3）：

*是通配符
比如 [2]、[平方]就会被找到并格式化

excel vba 的一段代码 没看懂 请解释一下

excel vba 的一段代码没看懂请解释一下