Question

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

F = F＆amp; “，”＆amp;我

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

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

Answer 1

使用Split(F, ",")创建数组。然后使用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

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

1 个答案: