怎样选择非连续的空白行并隐藏整行？

沈默00

岭风 发表于 2024-8-27 17:42
同样的代码，放在不同的文件里运行结果就不一样。

应该与sheet名称无关。

手机上看不了，，明天再用你的附件看下

沈默00

这不是可以正常运行吗，，怎么你的不行？

岭风

沈默00 发表于 2024-8-27 18:24
这不是可以正常运行吗，，怎么你的不行？

看两个代码窗体的标题栏，这是两个文件。
一个是Personal.xlsm，为什么代码放在这个文件里就无法正常运行（Personal.xlsm 无法操作 销售单.xlsm）？没有全局定义？

沈默00

岭风 发表于 2024-8-27 19:10
看两个代码窗体的标题栏，这是两个文件。
一个是Personal.xlsm，为什么代码放在这个文件里就无法正常运 ...

好吧，，就这两句简单的代码，，，
，你应该也懂VBA，  自己慢慢调试吧，，，，

3190496160

定位空白行，然后删除，也就是瞬间的事情吧，何必vba呢

岭风

3190496160 发表于 2024-8-28 11:06
定位空白行，然后删除，也就是瞬间的事情吧，何必vba呢

删除我也会，但现在需要的是定位→整行→隐藏

岭风

沈默00 发表于 2024-8-28 07:17
好吧，，就这两句简单的代码，，，
，你应该也懂VBA，  自己慢慢调试吧，，，，

上网查了些资料，好像新版本里安全阈值提高了，含有VBA代码的文件必须另存为xlsm格式后才能保存代码并运行，xlsx文件只能本次临时运行，不允许永久保存VBA模块。
现在只能把代码保存在Personal.xlsm文件里，每次在目标文件里临时插入一个vba模块来保存代码并运行了。

EEChen

3190496160

岭风 发表于 2024-8-28 16:22
删除我也会，但现在需要的是定位→整行→隐藏

隐藏也是可以的嘛

岭风

EEChen 发表于 2024-8-28 16:37

1. Option Explicit
   
2. Sub 隐藏空白行()
   
3.     Dim Rown As Long
   
4.         For Rown = Cells(Rows.Count, "a").End(xlUp).Row To 2 Step -1
   
5.             If WorksheetFunction.CountA(Intersect(Rows(Rown), Columns("a:q"))) = 0 Then
   
6.                 Rows(Rown).Hidden = True
   
7.             End If
   
8.         Next Rown
   
9. End Sub
   

复制代码

这个可以顺利保存在Personal.xlsm里，感谢。
但好像第一行和最后一行的空白行都不受影响？