求大神帮忙，谢谢啦！

双子宝贝

同一列数字与文字混合的情况下，要在数字后面自动生成%，这个可以做到吗？

绿猫冒冒

给个截图看看

双子宝贝

就这种数字后面要生成%

双子宝贝

没有人可以解决这个问题么

岭南无雁飞

Sub test()
Dim n%, i%, j%, lenth%, str$
Range("b:b").ClearContents
n = Range("a65536").End(xlUp).row

For i = 1 To n
    str = Range("a" & i)
    lenth = Len(str)
    For j = 1 To lenth
        If (VBA.IsNumeric(Mid(str, j, 1)) And (Not VBA.IsNumeric(Mid(str, j + 1, 1)))) Then
            str = VBA.Replace(str, Mid(str, j, 2), Mid(str, j, 1) & "%" & Mid(str, j + 1, 1))
            j = j + 1
        End If
    Next
    Range("b" & i) = str
Next
   
End Sub