Extract comma separated strings in a cell and write them to different cells

[NewOrderFac33]

Good afternoon - I have a number of cells containing multiple version strings similar to: "1.10, 1.11, 1.12, 1.14, 1.16.1, 1.8.1, 1.9" (some of them might only contain one e.g. 1.10 with no trailing comma)
I need to be able to replace the contents of the cell with the first value (in this case 1.10) then extract each of the subsequent values (not including any spaces or commas) and write them to the cells immediately below.
So, if this was Cell A1, A1 would end up containing 1.10, A2 would contain 1.11, A3 would contain 1.12 and so on.
Can anyone help me out, please?
Thanks

 

[Fluff]

I have a number of cells

Which cells?

 

[NewOrderFac33]

Which cells?

Oops - can you not see my original post:
Good afternoon - I have a number of cells containing multiple version strings similar to: "1.10, 1.11, 1.12, 1.14, 1.16.1, 1.8.1, 1.9" (some of them might only contain one e.g. 1.10 with no trailing comma)
I need to be able to replace the contents of the cell with the first value (in this case 1.10) then extract each of the subsequent values (not including any spaces or commas) and write them to the cells immediately below.
So, if this was Cell A1, A1 would end up containing 1.10, A2 would contain 1.11, A3 would contain 1.12 and so on.
Can anyone help me out, please?
Thanks

 

[Fluff]

can you not see my original post:

Yes I can see it, that's why I asked "Which cells" you have said "I have a number of cells" & then given a single example. So my question stands.

 

[NewOrderFac33]

Yes I can see it, that's why I asked "Which cells" you have said "I have a number of cells" & then given a single example. So my question stands.

Ah - with you - the range is D:1-D1842. Some of them have multiple values, some don't. I have worked out how to insert the appropriate number of rows below the cell being processed, based on how many commas it has. My problem is around extracting each comma separated value, replacing the original "1.10, 1.11, 1.12" etc. with "1.10" and writing "1.11" into the cell below, "1,12" into the cell below that, and so on.

 

[Fluff]

Ok, how about

Sub NewOrderFac()
   Dim r As Long, i As Long
   Dim Sp As Variant
   
   For r = Range("D" & Rows.Count).End(xlUp).Row To 1 Step -1
      Sp = Split(Cells(r, 4).Value, ", ")
      i = UBound(Sp)
      If i > 0 Then
         Rows(r).Offset(1).Resize(i).Insert
         Cells(r, 4).Resize(i + 1).Value = Application.Transpose(Sp)
      End If
   Next r
End Sub

 

[NewOrderFac33]

Ok, how about

Sub NewOrderFac()
   Dim r As Long, i As Long
   Dim Sp As Variant
  
   For r = Range("D" & Rows.Count).End(xlUp).Row To 1 Step -1
      Sp = Split(Cells(r, 4).Value, ", ")
      i = UBound(Sp)
      If i > 0 Then
         Rows(r).Offset(1).Resize(i).Insert
         Cells(r, 4).Resize(i + 1).Value = Application.Transpose(Sp)
      End If
   Next r
End Sub

This looks excellent - except for the fact that I've now already inserted the new rows for each multiple entry..! I realise this is being cheeky, but is there any way in which you could adapt this just to work for the selected range of cells - so, for example, if I have "1.1.0, 1.5.6, 1.7.9, 1.8.4" in D1, with D1:D4 selected, D1 would equate to"1.1.0", D2 to "1.5.6", D3 to "1.7.9" and D4 to "1.8.4" - the number of selected cells can be anything between 2 and 20 depending on the number of comma separated values in the first cell, if that makes sense? Thank you - up against a harsh deadline here..!

 

[Fluff]

Try

Selection.Value = Application.Transpose(Split(ActiveCell, ", "))

 

[NewOrderFac33]

Try

Selection.Value = Application.Transpose(Split(ActiveCell, ", "))

You're a God. Thank you SO much!

 

[Fluff]

You're welcome & thanks for the feedback.