EndSub需点击宏才能运行可设置双击sheet1进入编程页面选择worksheetselectionchange‘选区变化PrivateSubWorksheet_SelectionChangeByVal。...