Копировать и вставлять диапазон как значения в следующий пустой столбец на другом листе

Используя командную кнопку, Я пытаюсь скопировать диапазон (который изменяется в зависимости от входных данных) в качестве значений в другой лист.
У меня есть код, упомянутый ниже, но он, кажется, копируется поверх последней записи, а не вставляется в следующий пустой столбец. Я очень новичок в VBA, поэтому пошаговая помощь была бы очень признательна. спасибо

Sub CommandButton3_Click()

    Dim source As Worksheet
    Dim destination As Worksheet
    Dim emptyColumn As Long

    Set source = Sheets("Month Template")
    Set destination = Sheets("Sheet1")

    'find empty Column (actually cell in Row 1)'
    emptyColumn = destination.Cells(1, destination.Columns.Count).End(xlToLeft).Column
    If emptyColumn > 1 Then
        emptyColumn = emptyColumn + 1
    End If

    source.Range("m26:m35").Copy destination.Cells(1, emptyColumn)

End Sub

1 ответ

  1. попробуйте С ниже

    Sub CommandButton3_Click()
        Dim source As Worksheet
        Dim destination As Worksheet
        Dim emptyColumn As Long
        Set source = Sheets("Month Template")
        Set destination = Sheets("Sheet1")
        'find empty Column (actually cell in Row 1)'
        emptyColumn = destination.Cells(1, 1).End(xlToRight).Column
        If emptyColumn > 1 Then
            emptyColumn = emptyColumn + 1
        End If
        source.Range("m26:m35").Copy destination.Cells(1, emptyColumn)
    End Sub