使用 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