excel - 将单元格值拆分为多行而不从其他单元格复制数据

Question

我在单元格 E4 中编号为 (54,68,78)，在 E5 中编号为 (88,98)

我需要那些以以下格式拆分

E4：54 E5：68 E6：78 E7：88 E8：98

但主要的是只有 E 列值应该与 A、B、C、D、F、G 列中的空白分开。

标签： excelvba

Answer 1

尝试：

Sub test()

    Dim str1 As String, str2 As String, strFull As String
    Dim arr As Variant

    With ThisWorkbook.Worksheets("Sheet1")

        str1 = .Range("E4").Value
        str2 = .Range("E5").Value
        strFull = str1 & "," & str2

        arr = Split(strFull, ",")

        .Range("E4:E5").Clear

        .Range("E4").Resize(UBound(arr) + 1) = Application.WorksheetFunction.Transpose(arr)

    End With

End Sub