EXCEL vba如何复制到另一张工作表

Question

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 And Target.Column = 5 Then
Cells(Target.Row, 21).Select
========我希望在这里加一条代码,让它执行复制功能,==============
当使用查找功能查找到相应托运单号时(需是EXCEL自带的,即用CTRL+F唤了来的)
自动激活当前行第21列(目的是检测第21列是录的与单据是否一致)
然后在第25列自动输入"已寄回",并将该行复制到 "回单交接表" 中的
End If
End Sub

如何复制到另一张工作表
h把我删了ttp://club.excelhome.net/thread-773416-1-1.html

Answer 1

选中合并单元格的数值，复制。在选中另一张表要放数值的地方，单击右键，选,选择性粘贴，在选,数值.确定
这样就只粘贴了数值不会粘贴格式,你另一张表的格式不会变

选中这些合并单元格，右键，复制；
到另一张工作表，选中同样大小的单元格区域，右键，粘贴。

方法很多的。
（1）利用高级筛选，将记录筛出来，放在本工作表内，然后复制到别的工作表。这方法相对简单。
（2）如果数据量少，可以利用函数。
（3）透视表或者VBA编程追问

复制粘贴这个我也会,谢谢.

Answer 2

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 And Target.Column <= 5 And Cells(Target.Row, Target.Column) <> "" And Cells(Target.Row, 21) = Cells(Target.Row, Target.Column) and Cells(Target.Row, 25) = "" Then
Cells(Target.Row, 25) = "已寄回"
Range(Target.Row & ":" & Target.Row).Copy Sheets("回单交接表").Range(Target.Row & ":" & Target.Row)
End If
End Sub追问

输入字数受限,因些做成图片

追答

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim X
If Target.Count = 1 And Target.Column = 5 And Cells(Target.Row, Target.Column) "" And Cells(Target.Row, 21) = Cells(Target.Row, Target.Column) and Cells(Target.Row, 25) = "" Then
Cells(Target.Row, 25) = "已寄回"
X = Sheets("回单交接表").Range("A1").End(xlDown).Offset(1).Row
Range(Target.Row & ":" & Target.Row).Copy Sheets("回单交接表").Range(X & ":" & X )
End If
End Sub

本回答被提问者采纳

Answer 3

有点乱，有样表的话好些，1401505687