CountA删除空白行失败

wjhoftxz · 发表于 2024-8-1 10:59

1.用判断Range("a1:c13")存在37个数据，不准确；

2.用删除空行，运行失败，不能把空行删除。
求助，望解决！

lisongmei · 发表于 2024-8-1 11:09

在你的counta之前加两句，aaaaa是随便写的。只是过度一下
Range("a1:c13").Replace "", "aaaaa"
Range("a1:c13").Replace "aaaaa", ""

Qs18 · 发表于 2024-8-1 11:13

Sub 删除空行()
Dim rng As Range
Dim i As Long
Application.ScreenUpdating = False
Set rng = ThisWorkbook.ActiveSheet.UsedRange
For i = rng.Rows.Count To 1 Step -1
      If Range("c" & i) = "" Then
         rng.Rows(i).Delete
      End If
Next i
Application.ScreenUpdating = True
MsgBox "运行结束！"
End Sub

Qs18 · 发表于 2024-8-1 11:14

试试........

Qs18 · 发表于 2024-8-1 11:15

试一下.........

wjhoftxz · 发表于 2024-8-1 11:24

Qs18 发表于 2024-8-1 11:15
试一下.........

如果是a列或B列有其他数据，会错误

wjhoftxz · 发表于 2024-8-1 11:27

lisongmei 发表于 2024-8-1 11:09
在你的counta之前加两句，aaaaa是随便写的。只是过度一下
Range("a1:c13").Replace "", "aaaaa"
Range("a ...

你的方法可行！

Qs18 · 发表于 2024-8-1 11:27

wjhoftxz 发表于 2024-8-1 11:24
如果是a列或B列有其他数据，会错误

看您需要删除的条件进行判断

lisongmei · 发表于 2024-8-1 11:29

wjhoftxz 发表于 2024-8-1 11:27
你的方法可行！

必须的，我试过了，哈哈

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

[求助] CountA删除空白行失败