[已解决]关于使用Worksheet_SelectionChange后无法下拉填充序列的问题

sanculans

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. On Error Resume Next
   
3. Cells.ClearComments
   
4. If Target.Count > 1 Then Exit Sub
   
5. If Application.CutCopyMode = xlCopy Then Exit Sub
   
6. End Sub

复制代码

其实只要有下面这段代码，在表格中下拉就不会完成自动填充序列，只会复制

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. End Sub

复制代码

这个问题应该怎么解决

最佳答案

月排行榜 / 总排行榜

蓝桥玄霜

2012-5-31 13:47

用第一段代码的目的是什么？似乎没什么用处。
把第4句删除即可下拉填充。。

跳转到最佳答案楼层

zhongwen

蓝桥玄霜

用第一段代码的目的是什么？似乎没什么用处。
把第4句删除即可下拉填充。。

sanculans

蓝桥玄霜 发表于 2012-5-31 13:47
用第一段代码的目的是什么？似乎没什么用处。
把第4句删除即可下拉填充。。

明白了，Cells.ClearComments原来是这个在捣蛋