Add 1 to every number in list of numbers in a cell

[Usercode]

I have a list of numbers in a cell and I'd like to add +1 to each of values separated by comma in the cell.

For example;
if A1 is : 1,5,10 ; then B1: 2,6,11

if A2 is : 5,11,20,23 ; then B2: 6,12,21,24

if A3 is: 7,10 ; then B3: 8,11.

I have only one digit and double digit numbers.

How can I do this calculation without splitting the values into different columns? please.

I can use both formula or vba solution. Thanks.

 

[Fluff]

How about

Function Usercode(Txt As String) As String
   Dim Sp As Variant
   Dim i As Long
   
   Sp = Split(Txt, ",")
   For i = 0 To UBound(Sp)
      Sp(i) = Sp(i) + 1
   Next i
   Usercode = Join(Sp, ",")
End Function

used like

+Fluff v2.xlsm
	A	B
1
2	1,5,10	2,6,11
3	5,11,20,23	6,12,21,24
4	7,10,99	8,11,100
5
Main

Cell Formulas
Range	Formula
B2:B4	B2	=Usercode(A2)

 

[Usercode]

Thanks a lot! that was quick.

 

[Fluff]

You're welcome & thanks for the feedback.

 

[Rick Rothstein]

We can make Fluff's function a little bit more compact...

Function Usercode(Txt As String) As String
   Dim V As Variant
   For Each V In Split(Txt, ",")
     Usercode = Replace(Trim(Usercode & " " & V + 1), " ", ",")
   Next
End Function

 

[Usercode]

Thanks a lot, Rick.