Increase numbers by 1

[Yamasaki450]

Hello everyone.

I would like to increase multiple numbers in one cell by one... Any idea what would be the fastest way to do this? Is there any good add on to do this for multiple cells at once?

So in one cell i have numbers 6-2-54-109-7-9-3 and i would like to increase every number by 1 so the result would be 7-3-55-110-8-10-4

Picture

 

[Stephen_IV]

In B4:
=TEXTJOIN("-",1,MID(TEXTSPLIT(A4,"-"),1,LEN(TEXTSPLIT(A4,"-")))+1)

 

[Fluff]

As the OP is using 2019, they won't have textsplit

 

[James006]

Hi,
You can use a UDF

Function mycalc(rng As Range)
' in cell E4 just input = mycalc(A4)
Dim s
Dim i As Long
s = Split(rng, "-")
For i = LBound(s) To UBound(s)
    s(i) = s(i) + 1
Next i
mycalc = Join(s, "-")
End Function

 

[Fluff]

Another option

=TEXTJOIN("-",,FILTERXML("<k><m>"&SUBSTITUTE(A4,"-","</m><m>")&"</m></k>","//m")+1)

 

[Yamasaki450]

Thanks guys but formulas dont work. I get error "there is a problem with this formula..." in both cases. What im doing wrong? And i dont know how to use VBA code is there tutorial for this? Sorry but im a bit new to this Can you help me out a bit more please. Thanks.

 

[Stephen_IV]

Sorry, my formula will not work as Fluff pointed out because you have Office 2019. My apology!

 

[Yamasaki450]

Sorry, my formula will not work as Fluff pointed out because you have Office 2019. My apology!

NP. Thanks anyway. Which office version is this formula meant for? ill update office if i dont get another solution...

 

[Yamasaki450]

Nevermind Fluffs method works i just had to replace commas with semicolons in formula and it works heh Thanks a lot guys you are awesome...

 

[Fluff]

Glad we could help & thanks for the feedback.