Макрос не вставляется в значения

Question

У меня есть макрос, который вставляет значения из одного листа в другой (controlos -> database), заполняя первую незаполненную строку, и он работает в основном нормально.Однако он не копирует и не вставляет значения из ячейки D10 на sheet1 (controlos) в последнюю незаполненную ячейку в столбце D.После того, как это предположительно делает это, это очищает ячейки на первом листе, чтобы зарегистрировать другой.Проблемная часть:

*Sheets("controlos").Select
    Range("D10").Select
    ActiveSheet.Paste
    Selection.Copy
    Sheets("database").Select
    Range("D1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveSheet.Paste
    Sheets("controlos").Select*

Answer 1

Я бы предложил, если вы пытаетесь найти последнюю незаполненную ячейку в листе для использования (rows.count). Он будет отсчитываться от нижней части листа до первой заполненной ячейки и затем уменьшаться на 1. Затем он возьмет значение ячейки Sheet1 D10 и поместит его в следующую доступную ячейку в Sheet2.

sub FindLastCellInColumn

     dim row as long, ItemToCopy as string

     ItemToCopy = Sheets("Sheet1").Range("D10").Value

     Row1 = Sheets("Sheet2").Range("D" & Rows.Count).End(xlUp).Row + 1

     Sheets("Sheet2").Range("D" & Row1).Value = ItemToCopy

End Sub

Answer 2

Приведенный ниже код представляет собой простой способ скопировать пасту с листа 1, диапазон от А1 до диапазона A1, лист: 2:

Option Explicit

Sub test()

    Dim ws1 As Worksheet, ws2 As Worksheet

    With ThisWorkbook

        Set ws1 = .Worksheets("Sheet1")
        Set ws2 = .Worksheets("Sheet2")

        ws1.Range("A1").Copy ws2.Range("A1")

    End With

End Sub