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

它将原始范围中每个单元格的值附加到字符串中，然后将该字符串放入所选的单元格中。注意：我只在一张纸上尝试过此操作，而不是在其他工作簿上尝试过

使用VBA将多个单元粘贴到单个单元中

1 个答案: