Question

VBA宏怎么把EXCEL一个单元格中,如何设置不同字号的两个数字

如果一个单元格中有以下内容
(3,4)0135OK
大家看到这些字体的字号大小是一样的，但是是我想把中间的0135变成小一号或者两号的，怎么变，有什么快捷键没，或者怎么设置，不要一个一个去改变字号，那样太慢了，因为有很多单元格里都有这种格式。 听别人说用宏（VBA）能解决，请教大家怎么用VBA呢？

Answer 1

ALT+F11打开VBA编辑窗口,插   入一个模块,粘贴下面的代码,然后关闭VBA编辑窗口,返回工作表窗口,按ALT+F8打开宏窗口,选中aa这个宏(如果需要可以点击快捷键按钮设置一个快捷键),点击执行,附件是一个例子,

Sub aa()
Dim Rng As Range
For Each Rng In ActiveSheet.UsedRange
    If Rng.Value Like "(*,*)*" Then
        n = InStr(Rng.Value, ")")
        For i = n + 1 To Len(Rng.Value)
            istr = Mid(Rng.Value, i, 1)
            If istr Like "#" Then
                m = i
            Else
                Exit For
            End If
        Next
        Rng.Characters(n + 1, m - n).Font.Size = Rng.Font.Size - 2
    End If
Next
End Sub

Answer 2

可以，你要说清楚如何判定你要变小号的字符？
例如，要把4）0135变小，用逗号来判断？还是括号右侧到字母左侧的字符？还是怎样？
把规则说清楚。

Answer 3

你观察一下你的数据的格式，总结一下。
要修改字符 在 文字出现的规律，要不VBA代码没有办法写

Answer 4

所有的内容都是这个样式的吗？后面都是OK，前面都是()