Разбить значение ячеек на несколько строк без копирования данных из других ячеек

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 ....

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