从指定起点至最大区域，判断是否有空行并删除。

幸运方格

实在是研究不出来，具体需求在附件中，谢谢。

gwjkkkkk

Sub test()
Set rng = Intersect(ActiveSheet.UsedRange, Range([D10], Cells(Rows.Count, "XFD")))
If rng Is Nothing Then
     MsgBox "数据为空！": Exit Sub
   Else
     rng.Clear
   End If
End Sub

gwjkkkkk

代码审核中，请参考附件。。。

3190496160

Sub 清除()
ActiveSheet.UsedRange.Offset(9, 3) = Empty
End Sub

3190496160

幸运方格

3190496160 发表于 2022-12-8 08:25

这，，，，不敢想。

幸运方格

gwjkkkkk 发表于 2022-12-8 00:27
代码审核中，请参考附件。。。

   第一个图调整了列宽，正常提示无数据。
   第二个图调整了行距，就提示有数据，请问一下这是什么意思呢？

gwjkkkkk

代码是通过交集方式来判断，如果交集不存在，则肯定为空，如交集存在，有可能数据为空，有可能数据不为空，则需要再次进行判断，请楼主参考Intersect函数，附件已更新，请参考。。。

幸运方格

gwjkkkkk 发表于 2022-12-8 10:59
代码是通过交集方式来判断，如果交集不存在，则肯定为空，如交集存在，有可能数据为空，有可能数据不为空， ...

谢谢你啦。麻烦再看一下，这样的情况能解决吗？

tanglf188

精准获得最大非空行列是有点累赘，还是适当放大实用范围简单些