将一个单元中的数据分成多个单元

我目前在我的代码中使用以下内容：

F = F＆“，”＆I

这部分代码在一个单元格中以下列格式输出我的结果：1130,1160,1190,1220,1250,1280,1310,1340,1370,1400,1430,1460,1490

我想知道是否有一个类似的代码，我可以使用，将在单个列中input每个数字在自己的单元格。

Answer 1

您使用Split(F, ",")来创build一个数组。 然后使用Range.Resize使您的目标范围与数组大小相同。 最后，使新的范围=数组。

 Sub Example() Dim F As String Dim a() As String F = "1130,1160,1190,1220,1250,1280,1310,1340,1370,1400,1430,1460,1490" a = Split(F, ",") Range("A1").Resize(1, UBound(a)) = a End Sub