删除多余空行

sqgz

附件带有2表，均使用行占满，一表使用去除空行代码就能清除空行，另一表却不能，不知道什么原因，特此求助

ykcbf1100

endrow已经是表已使用的最后一行，你还要去删除大于endrow的行，没必要吧。

ykcbf1100

你删除空行，应该是删除非空行至endrow之间的行吧。

wcj6376tcp

'删除指定的单元格为空的行
    For i = rows To 3 Step -1
        If  Cells(i, cols).Value = "" Then
            Sheets(stName).rows(i).Delete
        End If
    Next i

自己修改对应变量应该就可以了

sqgz

ykcbf1100 发表于 2024-5-26 06:47
endrow已经是表已使用的最后一行，你还要去删除大于endrow的行，没必要吧。

endrow是已使用的行数，程序的目的就是删除使用行后面的空行，因为这个表和正常表不一样，他占用了所有的行。
如果用UsedRange.Rows.Count 看表使用总行数，他就是1048576，而不是endrow已使用的行数。
另：剔除已使用行中的空行就用下面代码了
        For i = ws.UsedRange.Rows.Count To 1 Step -1
            If WorksheetFunction.CountA(Rows(i)) = 0 Then
                Rows(i).Delete
            End If
        Next i

sqgz

wcj6376tcp 发表于 2024-5-26 08:03
'删除指定的单元格为空的行
    For i = rows To 3 Step -1
        If  Cells(i, cols).Value = "" The ...

使用目的不一样，你的是删除已使用行中的空行，而我需求的是剔除已使用行以外的空行。
正常情况下一般不会出现这种情况，UsedRange.Rows.Count出来的使用行数是1048576，所以需要恢复正常使用行数

longwin

sqgz 发表于 2024-5-26 10:41
使用目的不一样，你的是删除已使用行中的空行，而我需求的是剔除已使用行以外的空行。
正常情况下一般不 ...

确实存在这个问题，实在不行就把前面要保留的行数复制到一个新Sheet上吧

longwin

sqgz

感谢楼上的参与，题意都理解错误了。
删除页面空行，有两种情况，一种就是已使用行中寻找空行并删除，使用下面代码倒推就行，唯一问题是行数越多越慢。

        For i = ws.UsedRange.Rows.Count To 1 Step -1
            ' 使用WorksheetFunction.CountA函数检查当前行的所有单元格是否都为空
            ' 如果CountA的返回值为0，则表示该行所有单元格都是空的
            If WorksheetFunction.CountA(Rows(i)) = 0 Then
                ' 如果当前行为空，则删除该行
                Rows(i).Delete
            End If
        Next i
第2种情况就是我提问的情况，页面已使用行比如2000行，而UsedRange.Rows.Count出来行数是页面最高行数，所以需要清理掉多余空行。附件中去空行成功页面使用程序就能清理成功，而去空行失败页面却不能，分辨不出两页区别，所以才提问求助。
又研究了一下，成功页面之所以使用行占满，是因为有一列整列画了框，把框列去除，保存重开不用去空行就能恢复正常行数。
而失败也删除所有列数据还是使用行占满，不知道原因在哪里。

sqgz

longwin 发表于 2024-5-26 11:16

好吧，看样子无解了，失败页面我把内容全部删除，保存后重开还是占满。