谁给一组代码，当某列不为空，则删除整行数据

透明世界1987

谁给一组代码，当某列不为空，则删除整行数据
举例当G列不为空，则删除这个整行数据。

sam-wang

請測試看看，謝謝
Sub DelRow()
For i = Range("G65536").End(3).Row To 1 Step -1
    If Cells(i, 7) <> "" Then Rows(i).Delete
Next
End Sub

透明世界1987

sam-wang 发表于 2022-1-14 13:39
請測試看看，謝謝
Sub DelRow()
For i = Range("G65536").End(3).Row To 1 Step -1

可以用，但是有几个问题
第一：第三行是标题，从第4行开始往下删除，
第二：删除好像是一行一行删除的嘛，每次看着一闪一闪的 要闪好久才删完，因为不一定有时候可能是三五六行，有时候可能最多上百行

sam-wang

透明世界1987 发表于 2022-1-14 14:48
可以用，但是有几个问题
第一：第三行是标题，从第4行开始往下删除，
第二：删除好像是一行一行删除的 ...

請再測試看看，謝謝
Sub DelRow()
Application.ScreenUpdating = False
For i = Range("G65536").End(3).Row To 4 Step -1
    If Cells(i, 7) <> "" Then Rows(i).Delete
Next
Application.ScreenUpdating = True
End Sub

透明世界1987

sam-wang 发表于 2022-1-14 15:28
請再測試看看，謝謝
Sub DelRow()
Application.ScreenUpdating = False

还是不行哈，太慢了 删除要好半天才出来，或者可以换种思路，不要查出来再删除了，很慢，直接查询追踪表中入库单号为空的行数据出来，这样也可以，上表请大神赐教
供应商交期追踪表 - 副本.zip (201.61 KB, 下载次数: 8)

2022-1-18 14:25 上传

点击文件名下载附件

ahn

透明世界1987 发表于 2022-1-18 14:26
还是不行哈，太慢了 删除要好半天才出来，或者可以换种思路，不要查出来再删除了，很慢，直接查询追踪表 ...

按需求查找行并删除行操作需要：
1. 在源表进行删除；
2. 保留剩下行的所有单元格格式；
3. 删除 20000行 耗时不应超过 2秒。