下拉或多个单元格复制时如何触发Worksheet_Change

问题遇到的现象和发生背景

只有手动更改才能触发Worksheet_Change

问题相关代码，请勿粘贴截图

运行结果及报错内容

我的解答思路和尝试过的方法

我想要达到的结果

下拉或多个单元格复制时触发Worksheet_Change，不用手动更改单元格数据

复制单元格没有相关事件，但是可以添加宏，设置宏的运行快捷方式为ctrl+c，如何设置截图和效果如下

下面示例为复制单元格时，将所有单元格内容内容组合一起放到A1单元格中

Sub CopyCell()
  Dim r As Range
  Set r = Selection
  s = ""
  For Each c In r.Cells
    s = s & c.Value & vbNewLine
  Next
  
  Set r = Nothing
  Range("A1") = s
End Sub

写vba代码

您好，我是有问必答小助手，您的问题已经有小伙伴帮您解答，感谢您对有问必答的支持与关注！
PS：问答VIP年卡 【限时加赠：IT技术图书免费领】，了解详情>>> https://vip.csdn.net/askvip?utm_source=1146287632