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

Question

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

只有手动更改才能触发Worksheet_Change

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

运行结果及报错内容

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

我想要达到的结果

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

Answer 1

复制单元格没有相关事件，但是可以添加宏，设置宏的运行快捷方式为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