多列数据加1

jaxxcyh

yshcy 发表于 2024-8-10 12:53
如果要在DE后面再加  公斤  两个字，怎么处理？比如，D1要变成6公斤-10公斤-3公斤-4公斤这样，谢谢你。

1. Sub test()
   
2. 
   
3. Dim arr()
   
4. Dim brr() As String
   
5. Dim crr() As String
   
6. 
   
7. arr = [a1].CurrentRegion.Value
   
8. ReDim crr(LBound(arr, 1) To UBound(arr, 1), LBound(arr, 2) To UBound(arr, 2))
   
9. 
   
10. Dim myStr As String
    
11. For i = 1 To UBound(arr, 1)
    
12.     For j = 1 To UBound(arr, 2)
    
13.         myStr = arr(i, j)
    
14.         'ReDim brr(Len(myStr))
    
15.         brr = Split(myStr, "-")
    
16.         For k = LBound(brr) To UBound(brr)
    
17.             brr(k) = brr(k) + 1 & "kg"      '这里添加单位
    
18.         Next
    
19.         crr(i, j) = Join(brr, "-")
    
20.     Next
    
21. Next
    
22. [g1].Resize(UBound(crr, 1), UBound(crr, 2)).Value = crr
    
23. 
    
24. 
    
25. End Sub

复制代码

gwjkkkkk

yshcy 发表于 2024-8-10 12:53
如果要在DE后面再加  公斤  两个字，怎么处理？比如，D1要变成6公斤-10公斤-3公斤-4公斤这样，谢谢你。

请参考图示改一个地方 即可。。。

沈默00

函数的来一个，，，
D1=TEXTJOIN("-",,--TEXTSPLIT(A1,"-")+1)  右拉下拉

沈默00

yshcy 发表于 2024-8-10 12:53
如果要在DE后面再加  公斤  两个字，怎么处理？比如，D1要变成6公斤-10公斤-3公斤-4公斤这样，谢谢你。

=TEXTJOIN("-",,(--TEXTSPLIT(A1,"-")+1)&"公斤")  右拉，下拉