VBA代码用于分隔单元格字符串并将其复制到另一个工作表中的下一行

Question

我正在寻找一个VBA代码：

将工作表1中的数据复制到工作表1中的第A列，以及工作表1中的每个特定行：如果第i列C列的文本用逗号分隔，则用逗号分隔每个值并在工作表中创建新行2将所有这些值都放在连续的行中，同时从第1页复制A列（仅）的值，并在发生这种情况时将其余列留空。

这是第1页的一个例子

这是如何在表2中翻译

我是VBA的新手，但我一直在研究和尝试不同的代码来代表我所寻找的东西，但到目前为止，我找不到或创造的任何代码都不适用于我。

感谢您的帮助！

Answer 1

这是一个基于字符串（可以从单元格内容中获取）设置数组的小样本，然后循环遍历数组并将数组的值放入一行中。希望您可以在此基础上构建以满足您的需求：

Sub loopingz()

Dim i As Long
Dim currentRow As Long
Dim myArray() As String
Dim myString As String

myString = "25,26,39"
myArray = Split(myString, ",")
currentRow = 1


For i = LBound(myArray) To UBound(myArray)
    Range("A" & currentRow).Value2 = myArray(i)
    currentRow = currentRow + 1
Next i

End Sub