Выберите копию ячейки с листа на другой лист

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

Действительно, спасибо, что поделились.

Я проверил код, но кажется, что три значения D8: D10 (на листе 1) появляются вместе в B4 (на листе 2) одновременно, но не по одному.

Могу ли я узнать, есть ли другое возможное решение.

Еще раз спасибо!

Answer 2

Попробуйте следующий подпункт

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