Did you know SD-WANs can improve network connectivity? Check out this webinar to learn how an SD-WAN simplified, one-click tool can help you migrate and manage data in the cloud.
Sub splitme() Application.ScreenUpdating = False Dim ws As Worksheet Set ws = ActiveSheet Dim r As Range Dim V As Variant Dim a() As String Dim i As Integer Dim row As Long Dim endRow As Long Set r = Intersect(ws.UsedRange, ws.Range("W:W")) row = r.row endRow = r.row - 1 + r.Rows.Count While row <= endRow Set r = ws.Range("W" & row) a = Split(r.Value, ";") If UBound(a) > 2 Then r.Value = a(0) & ";" & a(1) For i = 2 To UBound(a) Step 2 V = r.EntireRow r.EntireRow.Insert r.EntireRow.Offset(-1) = V 'Set r = r.Offset(1) If UBound(a) >= i + 1 Then r.Value = a(i) & ";" & a(i + 1) Else r.Value = a(i) End If Next i End If row = r.row + 1 Wend Application.ScreenUpdating = True End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.