自动删除空单元格所在行，这代码运行不了，高手看一下错在哪了

chenxuemin · 发表于 2024-11-21 10:14

Sub 自动删除空格行()
'
For i = 15 To 1 Step -1
If Cells(i, 3) = "" Then
Range("Cells(i, 3)").EntireRow.Select
Selection.Delete Shift:=xlUp
End If
Next
End Sub

超级拉风的小小 · 发表于 2024-11-21 10:44

Range("Cells(i, 3)") 去掉range ，只留Cells(i, 3)

xjl565135022 · 发表于 2024-11-21 11:28

Sub del_row()
Dim ws As Worksheet
Dim rng As Range
Set ws = ActiveSheet
arr = Range("C1:C" & ws.[C65536].End(3).Row)
For i = 1 To UBound(arr)
If arr(i, 1) = "" Then
If rng Is Nothing Then
Set rng = ws.Rows(i)
Else
Set rng = Union(rng, ws.Rows(i))
End If
End If
Next
If Not rng Is Nothing Then rng.Delete
End Sub

复制代码

wcj6376tcp · 发表于 2024-11-21 12:01

直接修改为
Sub 自动删除空格行()
rows = ActiveSheet.Range("D3").End(xlDown).Row       '行数
For i = rows To 1 Step -1
  If Cells(i, 3) = "" Then
  ActiveSheet.rows(i).Delete
  End If
Next
End Sub

chenxuemin · 发表于 2024-11-21 15:46

超级拉风的小小发表于 2024-11-21 10:44
Range("Cells(i, 3)") 去掉range ，只留Cells(i, 3)

已经可以运行了，非常感谢！

chenxuemin · 发表于 2024-11-21 15:48

xjl565135022 发表于 2024-11-21 11:28

非常感谢你的无私帮助。

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

[求助] 自动删除空单元格所在行，这代码运行不了，高手看一下错在哪了

评分

评分