复制事件代码

ddz79101

老师！有个表，我希望若选择整行，则自动复制粘贴到指定的表。点击单个单元格，则不执行。谢谢！

ddz79101

若一般的代码，选择点击按钮若能执行，应该效率上也可以。比较一下，择优

大灰狼1976

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. If Target.Address = Target.EntireRow.Address Then MsgBox 1
   
3. End Sub

复制代码

把msgbox换成你要的功能

ykcbf1100

工作表事件，一行中连续二个单元格选中即发生复制事件

ykcbf1100

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Target.Count > 1 Then
   
3.         arr = Me.Cells(Target.Row, 1).Resize(, 11)
   
4.         With Sheets("12")
   
5.             r = .Cells(Rows.Count, 1).End(3).Row
   
6.             .Cells(r + 1, 1).Resize(, 11) = arr
   
7.         End With
   
8.     End If
   
9. End Sub
   
10. 
    

复制代码

ddz79101

大灰狼1976 发表于 2025-3-12 15:39
把msgbox换成你要的功能

谢谢老师！选择表粘贴，比我想得周到，但代码能否同时将源表的行删除（我没有说清楚，只有只有才能分辨）。另能否粘贴后取消剪切板内容。谢谢

yao_ashuai

简单写了下，应该够用

ddz79101

ykcbf1100 发表于 2025-3-12 15:43
工作表事件，一行中连续二个单元格选中即发生复制事件

谢谢老师！运行成功。能否将源行数据粘贴后就删除。这样可以水落石出

ddz79101

大灰狼1976 发表于 2025-3-12 15:39
把msgbox换成你要的功能

老师！抱歉！花后补

ddz79101

ykcbf1100 发表于 2025-3-12 15:43
工作表事件，一行中连续二个单元格选中即发生复制事件

抱歉！老师！花后补