将数据为零的记录删除

rsfzcs

如题：
谢谢！

zzj198237

if x=0  then rows(i).delete

rsfzcs

思路：查找值为0的单元格，然后选中该单元格及左则的单元格删除，再查找下一个值为0的单元格，循环。

iu950

删除数据为零的记录，附件供参考。。。

rsfzcs

iu950 发表于 2021-9-13 17:17
删除数据为零的记录，附件供参考。。。

正是想要的。非常感谢！

rsfzcs

rsfzcs 发表于 2021-9-13 22:22
正是想要的。非常感谢！

你好！
原来是19个品种，现在增加了4个（如果更多呢）就出在“下标越界”。请你给修改一下呗！
非常感谢！

gwjkkkkk

请参考。。。

nicleyuan

1. Sub Del_删除选定区域的空单元格()            '或者删除整行
   
2.     On Error Resume Next
   
3.     Dim response$, rng As Range
   
4.     Set rng = Application.InputBox("输入空行所在的列", Title:="输入", Type:=8)
   
5.     If rng Is Nothing Then Exit Sub
   
6.     response = MsgBox("删除整行选择【是】，删除单个单元格选择【否】", vbYesNoCancel, Title:="选择")
   
7.     Select Case response
   
8.     Case Is = vbYes
   
9.         rng.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
   
10.     Case Is = vbNo
    
11.         rng.SpecialCells(xlCellTypeBlanks).Delete shift:=xlUp
    
12.     Case Is = vbCancel
    
13.     End Select
    
14. End Sub

复制代码

Hontyu

...........

rsfzcs

Hontyu 发表于 2023-1-11 11:00
...........

正如这样的。非常感谢！