Question

EXCEL VBA的问题？

我想在E，I，M列进行替换的操作。
只替换“＝”左边的数字，需要替换的都是个位数。
替换的规则就是把个位数加10，加20，加30，最大数字到35截止。
然后替换后从小到大排列一下。
就在原列替换，三列都需要替换。F，J，N列是替换后的效果展示。
请大师看看这个代码应该怎么写？

Answer 1

程序代码：

测试数据：

执行代码后的数据：

测试说明程序符合要求，如果原数据分布在不同区域，只需要修改e1:e3处的代码为实际区域即可。程序代码的文本如下：

Option Explicit

Sub 宏1()

    Dim r As Range, a, t, s, i

    For Each r In Range("e1:e3").Cells

        a = Split(r, "=")

        s = ""

        For Each t In Split(a(0), ",")

            For i = 1 To 3

                If i < 3 Or t < "6" Then

                    s = s & i & t & ","

                End If

            Next i

        Next t

        s = Left(s, Len(s) - 1) & "=" & a(1)

        r = s

    Next r

End Sub

Answer 2

已知会不会没序或者差超过10