Вставьте несколько ячеек в одну ячейку с помощью VBA

Question

Я пытаюсь закодировать несколько кнопок, чтобы помочь с архивированием информации в аккуратные данные.
Но значение распространяется на несколько строк.

Мне нужно, чтобы он вошел в одну клетку.
Также было бы здорово, если бы я мог очистить скопированные данные от всего форматирования и использовать книгу вставки в качестве формата «дающий»

Я очень новичок в кодировании и в основном читаю и копирую вставленную информацию. Ничего ценного не пробовал

Sheet4.Range("D25", Workbooks("Underlag.xlsm").Worksheets("EU").Cells(Rows.Count, "D").End(xlUp)).Copy Workbooks("Arkiv.xlsm").Worksheets("EU").Range("E" & Rows.Count).End(xlUp)(2)

Ожидаемый результат - копирование данных в одну ячейку, фактический результат состоит в том, что он распространяется по строкам, разрушающим данные от других кнопок.

Answer 1

Может быть, вы можете попробовать это:

Sub test_paste()

    Dim allData As String
    Dim rng As Range
    Dim cell As Range
    Dim pasteRng As Range

    Set rng = Sheet4.Range("D25", Workbooks("Underlag.xlsm").Worksheets("EU").Cells(Rows.Count, "D").End(xlUp))
    Set pasteRng = Workbooks("Arkiv.xlsm").Worksheets("EU").Range("E" & Rows.Count).End(xlUp)

    For Each cell In rng
        If Not IsEmpty(cell.Value) Then
            allData = allData & cell & " "
        End If
    Next

    pasteRng = allData

End Sub

Он добавляет значения каждой отдельной ячейки в исходном диапазоне в строку, а затем помещает эту строку в выбранную ячейку.примечание: я пробовал это только на одном листе, а не в другой книге