![仅将某一行中的某些单元格复制到另一张工作表](https://linux22.com/image/1566666/%E4%BB%85%E5%B0%86%E6%9F%90%E4%B8%80%E8%A1%8C%E4%B8%AD%E7%9A%84%E6%9F%90%E4%BA%9B%E5%8D%95%E5%85%83%E6%A0%BC%E5%A4%8D%E5%88%B6%E5%88%B0%E5%8F%A6%E4%B8%80%E5%BC%A0%E5%B7%A5%E4%BD%9C%E8%A1%A8.png)
我有一本工作簿,其中包含大量工作表,旨在帮助我的团队更有效地管理他们的工作量。
当有人请求完成一项工作时,会在名为“待授权”的工作表中添加一行
然后,团队在添加的“N”列下的每一行/记录上都有一个下拉框,可以接受或拒绝该工作。
如果团队接受了这项工作,那么它将被转移到另一张名为“待处理工作”的工作表,并从待处理授权工作表中删除记录。执行此操作的代码如下:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("N:N")) Is Nothing Then
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
Dim Lastrow As Long
Lastrow = Sheets("Status Check").Cells(Rows.Count, "N").End(xlUp).Row + 1
If Target.Value = "Accepted" Then
Rows(Target.Row).Copy Destination:=Sheets("Pending Work").Rows(Lastrow)
Rows(Target.Row).Delete
End If
End If
End Sub
虽然这种方法效果很好,但实际上我只想将此行的某些单元格复制到另一个工作表,而不是整行。有没有简单的方法可以只选择每行中的某些单元格进行复制?
答案1
您无需复制整行,只需复制从行Range("X" & Target.Row)
到行即可Range("Y" & Lastrow)
(其中 X 和 Y 分别表示源列和目标列)