多列数据加1

yshcy

AB是数据源，对数据源的每个数据+1，结果如DE列，谢谢。

ynzsvt

1. Function AddInEach(a$)
   
2. Dim Arr, i&
   
3. Arr = Split(a, "-")
   
4. For i = 0 To UBound(Arr)
   
5.   Arr(i) = Arr(i) + 1
   
6. Next
   
7. AddInEach = Join(Arr, "-")
   
8. End Function

复制代码

shiruiqiang

Qs18

Sub qs()
Dim arr, i
With Sheet1
    arr = .Range("a1").CurrentRegion.Value
    For i = 1 To UBound(arr)
        For j = 1 To UBound(arr, 2)
        s = Split(arr(i, j), "-")
        t = "": tt = ""
        For Each ss In s
            t = ss + 1
            tt = tt & "-" & t
        Next
        arr(i, j) = Mid(tt, 2)
        Next j
    Next i
.Range("d1").Resize(UBound(arr), UBound(arr, 2)) = arr
End With
Beep
End Sub

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar, br, i&, j&, k&
   
    ar = [A1].CurrentRegion.Value
   
    For i = 1 To UBound(ar)
        For j = 1 To UBound(ar, 2)
            br = Split(ar(i, j), "-")
            For k = 0 To UBound(br)
                br(k) = br(k) + 1
            Next k
            ar(i, j) = Join(br, "-")
        Next j
    Next i
   
    [G1].Resize(UBound(ar), UBound(ar, 2)) = ar
    Beep
End Sub

Qs18

试试.........

Qs18

试试......

gwjkkkkk

............

yshcy

gwjkkkkk 发表于 2024-8-10 12:43
............

如果要在DE后面再加  公斤  两个字，怎么处理？比如，D1要变成6公斤-10公斤-3公斤-4公斤这样，谢谢你。

jaxxcyh

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
    
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. End Sub

复制代码