提取字符串内数字后相加重命名

ykcbf1100

转角处的沉思 发表于 2024-9-2 09:11
感谢帮忙，效果很好，这种格式保存是为了节省容量吗。

不是，主要是为了减少不必要的麻烦。
比如：A～B列是文本的话，这样写就不用重新设置列的格式；
再比如：A～B列有公式的话，这样写公式就还在。

转角处的沉思

ykcbf1100 发表于 2024-9-2 09:32
不是，主要是为了减少不必要的麻烦。
比如：A～B列是文本的话，这样写就不用重新设置列的格式；
再比如 ...

感谢解答，又学了一招。

今铭昔

转角处的沉思

今铭昔 发表于 2024-9-2 12:55

感谢帮助，是WPS实现方式吧。

转角处的沉思

usedrange 发表于 2024-9-2 09:26

感谢帮助，实现了想要的运行需求。

joy.008@163.com

ykcbf1100 发表于 2024-9-2 09:09
参与一下。。。

这个Val(arr(i, 1))用的神乎其神 之前还很少见到这种用法 受教~~

Qs18

试试..............

Qs18

Sub qs()
    Dim arr, i
    arr = Sheet1.Range("a1").CurrentRegion.Value
    s = arr(1, 3)
    t = Left(s, 2): tt = VBA.Right(s, 4)
    For i = 2 To UBound(arr)
        arr(i, 2) = t & tt + Val(arr(i, 1))
    Next
    Sheet1.Range("a1").Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub

Qs18

试试..............

ykcbf1100

joy.008@163.com 发表于 2024-9-2 13:54
这个Val(arr(i, 1))用的神乎其神 之前还很少见到这种用法 受教~~

提取字串中的数值用的。这样就不用去分离数值了。

我经常用的。