如何將sheet1中的多個(gè)單元格（逐個(gè)）復(fù)制到sheet2中的單個(gè)單元格。

每次單擊按鈕都會(huì)將sheet1的單個(gè)單元格復(fù)制到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

其實(shí)可以嘗試以下解決方法

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