敬请各位老师帮忙修改代码解决图中的问题，非常感谢!

LSYYLW

2024-3-16.zip (14.74 KB, 下载次数: 3)

2024-3-16 20:29 上传

点击文件名下载附件

hilylwz

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Address = "$AN$1" Then
   
3.         Application.ScreenUpdating = False

复制代码

替换原来的代码试试。

hilylwz

这个是修改好的附件

LSYYLW

hilylwz 发表于 2024-3-17 00:18
这个是修改好的附件

非常感谢老师，代码非常好用。