vba怎么无法删除空行

shangerila824 · 发表于 2024-9-10 09:24

本帖最后由 shangerila824 于 2024-9-10 09:59 编辑

求教，删除8到11行，怎么会选择3到21行？？？

taller · 发表于 2024-9-10 09:36

你的代码呢？

ykcbf1100 · 发表于 2024-9-10 09:48

请上传附件

醉眼看尘世 · 发表于 2024-9-10 09:52

如果你用了select方法，因为A3:A21是合并单元格，所以被整体选中了。你直接执行删除Rows(8:11).delete就行了

shangerila824 · 发表于 2024-9-10 10:01

taller 发表于 2024-9-10 09:36
你的代码呢？

Sub tt12()
Rows("8:11").EntireRow.Select
End Sub

ynzsvt · 发表于 2024-9-10 10:04

shangerila824 发表于 2024-9-10 10:01
Sub tt12()
Rows("8:11").EntireRow.Select
End Sub

不要select，直接删即可。不放心就先做好备份试试。

gwjkkkkk · 发表于 2024-9-10 10:19

Option Explicit
Sub TEST1()

With [A1].CurrentRegion
.Rows("8:11").EntireRow.Delete
End With
Beep
End Sub

taller · 发表于 2024-9-10 10:21

使用 Rows("8:11").Delete 删除8至11行

由于第一列合并单元格的影响，Rows("8:11").EntireRow.Select 将选中合并单元格所在的全部行

酒后才知酒醉 · 发表于 2024-9-10 11:46

Dim i As Long
Dim LastRow As Long

LastRow = Cells(Rows.Count, 1).End(xlUp).Row ' 获取最后一行

For i = LastRow To 1 Step -1 ' 从最后一行开始逐行检查
      If WorksheetFunction.CountA(Rows(i)) = 0 Then ' 判断当前行是否为空白行
         Rows(i).Delete ' 删除空白行
      End If
Next i

renkangjizhen · 发表于 2024-9-10 16:23

Rows("8:11").Delete

我试验了，完全能解决问题

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

[求助] vba怎么无法删除空行