在按钮随活动单元格活动时，选定复制区域的蚂蚁线会取消，如何解决啊

han0504

Private Sub worksheet_selectionchange(ByVal target As Range)
CommandButton1.Top = ActiveCell.Top + ActiveCell.Height
CommandButton1.Left = ActiveCell.Left + ActiveCell.Width
Application.ScreenUpdating = True
End Sub

上面的代码是按钮随活动单动格移动，但是在选定几行按右键复制，再移动光标到别的行数时，原先选定的行数的复制蚂蚁线就取消了，右键菜单的插入复制单元格的选项也没有。他只接先执行移动按钮的代码了，怎么解决啊。

还有一个，怎么用按钮实现EXCEL的筛选功能呢？直接用 Selection.AutoFilter的话，如果在没有数据区域的单元格点按钮，他就直接跳出程序，怎么像EXCEL里面一样，在没数据区域点筛选会跳去窗口说不行，重新选择的友好提示？

han0504

在线等，求高手

han0504

我自己找到解决方法了