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

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

1 个答案: