Несколько строк в одной ячейке, разделенной запятой, с помощью макросов Excel

Question

Привет, у меня есть ячейка excel с несколькими элементами в ней. Все они разделены запятой. Когда рабочая книга excel создается, она автоматически генерирует элементы и разбивает каждый элемент запятой. Однако проблема заключается в том, когда я хочу запустить макрос excel, я хочу, чтобы каждый элемент находился на отдельной строке. По существу, разрыв строки после каждой запятой. Проблема заключается в том, что я не уверен, сколько времени будет в ячейке за раз, поэтому она должна быть динамичной. Есть идеи?

Update:

Dim originalApplications As String 
Dim splitApplications As Variant 
Dim i As Integer 

originalApplications = Range("E2").Value 


splitApplications = Split(originalApplications, ",") 

For i = 0 To UBound(splitApplications) 

    MsgBox splitApplications(i) 

Next i 

Теперь мне просто нужно, чтобы выяснить, как линия разорвать его.

Answer 1

В вашем цикле вам необходимо присвоить каждому значение в ячейке

const startRow = 10 
const assignCol = 1 
For i = 0 To UBound(splitApplications) 

    Cells(i+startRow,assignCol).Value = splitApplications(i) 

Next i