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

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

2024-11-16 20:45:00

推荐回答（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：

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