Могу ли я использовать CoreMotion в Swift Playgroundbooks?

Это не полированное решение, но мне нужно провести некоторое время с женой.

Но еще один способ подумать об этом.

Этот код предполагает, что лист называется Sheet4, а диапазон, который нужно разбить, - col C.

Dim lastrow As Integer
Dim i As Integer
Dim descriptions() As String

With Worksheets("Sheet4")
    lastrow = .Range("C1").End(xlDown).Row
    For i = lastrow To 2 Step -1
        If InStr(1, .Range("C" & i).Value, ",") <> 0 Then
            descriptions = Split(.Range("C" & i).Value, ",")
        End If
        For Each Item In descriptions
            .Range("C" & i).Value = Item
            .Rows(i).Copy
            .Rows(i).Insert
        Next Item
        .Rows(i).EntireRow.Delete

    Next i
End With