Question

我将两张纸合并为一张，然后选择选择列。这些表是员工轮班的时间表。我已将第一张工作表（1）列复制到新的工作表（3）：日期，星期几，时间，展会覆盖范围，员工。我现在尝试将所需的列从sheets（2）复制到sheets（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)

VBA-将列追加到其他工作表列

1 个答案: