用vlookup查询时，没有数据的列自动隐藏，数据出现，再自动显示。

malone.cn

在网上搜到宏

Sub test()
For i = 3 To 10
If Application.WorksheetFunction.Sum(Columns(i)) = 0 Then Columns(i).Hidden = True
Next i
End Sub

运行第一次可以达到想要的效果，但是随着搜索的变化，被隐藏的就不能被再显示了，想要的效果是，搜索不同人员，就显示该人员的不为零的列。而且保存时，会出现提示，选择“是”，再次打开后，宏就没有了。

zxsea_7426

宏代码可以存为xlsm后缀的文件（常用），也可以基本含宏的文件

malone.cn

zxsea_7426 发表于 2022-3-26 18:04
宏代码可以存为xlsm后缀的文件（常用），也可以基本含宏的文件

谢谢。另一个问题，每次搜索能不能自动执行这个宏命令，现在是每次搜索如果不手动执行一下这个宏命令，还是默认上一次的搜索时显示的列。只能通过菜单，执行一下宏命令，或者用设置好的快捷键按一下，才会变化。

zxsea_7426

malone.cn 发表于 2022-3-26 21:27
谢谢。另一个问题，每次搜索能不能自动执行这个宏命令，现在是每次搜索如果不手动执行一下这个宏命令，还 ...

可以放在触发事件代码里