VBA - добавить столбец в другой столбец листа

Question

Я объединяю два листа в один и выбираю для этого выбранные столбцы.Листы являются графиками смен сотрудников.Я скопировал первые листы (1) столбцов в новые листы (3): Дата, День недели, Время, Показать покрытие, Сотрудник.Я пытаюсь скопировать нужные столбцы из листов (2) в листы (3).Одним из них является время смены.Мне нужно, чтобы это было добавлено к существующему столбцу времени, который является столбцом 3. В настоящее время он заменяет эти данные.Вот что у меня есть:

Private Sub CommandButton1_Click()
Dim lastrow As Long, erow As Long

lastrow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To lastrow
Sheet1.Cells(i, 1).Copy
erow = Sheet3.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

Sheet1.Paste Destination:=Sheets(3).Cells(erow, 1)
Sheet1.Cells(i, 2).Copy
Sheet1.Paste Destination:=Sheets(3).Cells(erow, 2)
Sheet1.Cells(i, 3).Copy
Sheet1.Paste Destination:=Sheets(3).Cells(erow, 3)
Sheet1.Cells(i, 5).Copy
Sheet1.Paste Destination:=Sheets(3).Cells(erow, 4)
Sheet1.Cells(i, 8).Copy
Sheet1.Paste Destination:=Sheets(3).Cells(erow, 5)
Sheet2.Cells(i, 1).Copy
Sheet2.Paste Destination:=Sheets(3).Cells(erow, 3)

Next i

Application.CutCopyMode = False
Sheet3.Columns.AutoFit
Range("A1").Select
End Sub

Answer 1

Вместо установки места вставки вы можете добавить существующий текст в ячейку.Как то так:

Sheet3.Cells(erow, 3) = Sheet3.Cells(erow, 3) + Sheet2.Cells(i, 1)