请高手师傅帮忙解决一个不指定的隐藏的难题

qiongmei6 · 发表于 2022-12-4 21:05

我希望得到一个代码，他根据a5：f116列，隐藏空白行，a5：b116，c5：d116，e5：f116，都有可能有些有数据，因此我希望按这三列最多数据那列，隐藏剩下的空白行，例如现在是a5：b116列最多数据，他则会隐藏a8：f116之间的空白行，a117：t118不隐藏，谢谢高手师傅的帮忙

lcluck2002 · 发表于 2022-12-4 22:07

本帖最后由 lcluck2002 于 2022-12-4 22:09 编辑

qiongmei6 · 发表于 2022-12-4 22:16

lcluck2002 发表于 2022-12-4 22:07

谢谢lcluck2002师傅，您能发代码上来吗，再次谢谢您的帮忙

3190496160 · 发表于 2022-12-4 22:19

Sub 隐藏行()
Dim m As Integer
With Sheets("个税表")
For j = 1 To 6
      xh = ""
      For i = 5 To 116
         If Trim(.Cells(i, j)) = "" Then
            xh = i
            Exit For
         End If
      Next i
      If xh > m Then m = xh
Next j
.Rows(m & ":116").EntireRow.Hidden = True
End With
MsgBox "ok!"
End Sub

3190496160 · 发表于 2022-12-4 22:20

Book2.rar (21.63 KB, 下载次数: 1)

汉唐 · 发表于 2022-12-4 22:26

请楼主参考附件

		自动登录	找回密码
密码			免费注册

[求助] 请高手师傅帮忙解决一个不指定的隐藏的难题

评分

评分

评分