使用Excel宏用逗号分隔单个单元格中的多行

Question

嗨，我有一个带有多个项目的Excel单元格。 它们都用逗号分隔。 生成excel工作簿时，它将自动生成项目并以逗号分隔每个项目。 但是问题是当我想运行一个Excel宏时，我希望每个项目都放在单独的行上。 基本上每个逗号后换行。 问题是我不确定一次要在单元中有多少时间，因此它需要动态。 有任何想法吗？

更新：

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