從工作表中選擇單元格副本到另一個工作表

Question

需要您的建議和幫助，以了解如何將工作表1中的多個單元格（一個接一個地）復制到工作表2中的單個單元格中。

每次單擊按鈕都會將sheet1的單個單元格復制到sheet2的“ B4”單元格

這是我的示例代碼：

---

Dim lRow, RowIndex As Long
Dim src As Worksheet, dest As Worksheet

Dim rng As Range

Set src = ThisWorkbook.Worksheets("sheet1")
Set dest = ThisWorkbook.Worksheets("sheet2")
lRow = src.Range("D8").End(xlDown).Row
RowIndex = 1

    For Each rng In src.Range("D8:D" & lRow)



    src.Range(rng & RowIndex).Copy Destination:=dest.Range("B4")

    Selection.Copy

    RowIndex = RowIndex + 1


    Next rng


Application.CutCopyMode = False

---

謝謝

Answer 1

嘗試跟隨子

Sub CopyToSingleCell()
Dim lRow, RowIndex As Long
Dim src As Worksheet, dest As Worksheet
Dim rng As Range

    Set src = ThisWorkbook.Worksheets("sheet1")
    Set dest = ThisWorkbook.Worksheets("sheet2")
    lRow = src.Range("D8").End(xlDown).Row

        For Each rng In src.Range("D8:D" & lRow)
            dest.Range("B4") = dest.Range("B4") & " " & rng.Value
        Next rng

    Set src = Nothing
    Set dest = Nothing
End Sub

Answer 2

非常感謝您的分享。

我已經測試了代碼，但似乎D8：D10的三個值（在工作表1中）同時出現在B4（在工作表2中）中，但不是一一出現。

請問是否還有其他可能的解決方案。

再次感謝！