好吧问答库 > 如何用VB实现：在EXCEL文档指定区域单元格选中后，自动把这些单元格数据粘贴到另一个页面？

如何用VB实现：在EXCEL文档指定区域单元格选中后，自动把这些单元格数据粘贴到另一个页面？

2024年11月16日 20:45

有2个网友回答

网友（1）：

单击 A1:C10任何一个地方，就执行，否则不执行。无需设置按钮
Sub 自动复制()
arr = Range("A1:C10")
Sheets(2).Cells(Sheets(2).Range("a65536").End(xlUp).Row + 2, 1).Resize(10, 3) = arr
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim tr, tc

tr = Target.Row
tc = Target.Column
If tr >= 1 And tr <= 10 And tc <= 3 Then
自动复制
End If
End Sub

网友（2）：

利用选取事件，选取后自动复制？万一不小心选多了一行，也就多复制一行？