VBA to Create Data rows for Multi-Valued Columns

[Slicemahn]

Hi Slicemahn!

Private Sub test()
Dim i&, arr, s$
Application.ScreenUpdating = False
With Sheets("Expected Result")
  Sheets("Data").Cells.Copy .[a1]
  For i = .[a65536].End(3).Row To 2 Step -1
    s = Replace(.Cells(i, 4), ".", ";")
    arr = Split(s, "; ")
    If UBound(arr) > 0 Then
      .Rows(i).Copy
      .Rows(i + 1 & ":" & i + UBound(arr)).Insert Shift:=xlDown
      .Cells(i, 4).Resize(UBound(arr) + 1) = Application.Transpose(arr)
    End If
  Next i
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Hi,
Thanks for this but it is not what I am looking for: The "Expected Result" was included to show everyone what the end result should be it should not be involved in the code. I need the "Data" worksheet to show each instructor's delivery of courses and attendance of training. These must be done individually. So if a course has two or more instructors then I need each instructor to be shown individually rather than be grouped in one field with other instructors.

IHTH, Slice.