Excel 从1行到3列的数据

我正在慢慢学习如何在ExcelVBA中执行一些非常基本的例程，但我不知道如何处理这个问题。 如何从一行中的数据开始，如下所示：

Sub test()
x = Split(Range("A1"), ",")
y = (UBound(x) + 1) / 3
P = 1
For i = 1 To y
For Z = 1 To 3
Cells(i + 3, Z).Value = x(P - 1)
P = P + 1
Next
Next
End Sub

6月11日，27.3,28.3,12-Jun，27.2,28.3,13-Jun，26.7,28.4,14-Jun，26.7,28.4

到3列。 第一列有日期，第二列有第一个值，第三列有第二个值？ 谢谢

请将您的数据放在A1中

这将根据除法后是否还有余数将数据循环回所需列

Option Explicit

Sub splitData()

Dim i, rownum, colnum As Integer
Dim str As Variant

colnum = 1
rownum = 2

str = Split(Cells(1, 1).Value, ",")
For i = 0 To UBound(str)
    If i Mod 3 = 2 Then
        Cells(rownum, 3).Value = "'" & str(i)
    End If
    If i Mod 3 = 1 Then
        Cells(rownum, 2).Value = "'" & str(i)
    End If
    If i Mod 3 = 0 Then
        rownum = rownum + 1
        Cells(rownum, 1).Value = "'" & str(i)
    End If
Next i

End Sub

把你的数据放在A1里

这将根据除法后是否还有余数将数据循环回所需列

Option Explicit

Sub splitData()

Dim i, rownum, colnum As Integer
Dim str As Variant

colnum = 1
rownum = 2

str = Split(Cells(1, 1).Value, ",")
For i = 0 To UBound(str)
    If i Mod 3 = 2 Then
        Cells(rownum, 3).Value = "'" & str(i)
    End If
    If i Mod 3 = 1 Then
        Cells(rownum, 2).Value = "'" & str(i)
    End If
    If i Mod 3 = 0 Then
        rownum = rownum + 1
        Cells(rownum, 1).Value = "'" & str(i)
    End If
Next i

End Sub

---

或者像这样：

Sub test()
x = Split(Range("A1"), ",")
y = (UBound(x) + 1) / 3
P = 1
For i = 1 To y
For Z = 1 To 3
Cells(i + 3, Z).Value = x(P - 1)
P = P + 1
Next
Next
End Sub

---

或者像这样：

Sub test()
x = Split(Range("A1"), ",")
y = (UBound(x) + 1) / 3
P = 1
For i = 1 To y
For Z = 1 To 3
Cells(i + 3, Z).Value = x(P - 1)
P = P + 1
Next
Next
End Sub

---

那是一个单元格中的一个字符串吗？是的。对不起，我应该提到这个。有很多行要修改吗？只有一行，但里面有很多数据。一年的价值。那是一个单元格里的一根线吗？是的。对不起，我应该提到这个。有很多行要修改吗？只有一行，但里面有很多数据。一年的时间，工作得很好！非常感谢你，工作得很好！非常感谢你，工作得很好！非常感谢。很高兴我能帮上忙！：）工作得很好！非常感谢。很高兴我能帮上忙！：）