删除库存列中，库存为0的行

zhouquyi

详见附件批注

gwjkkkkk

请参考。。。

zhouquyi

gwjkkkkk 发表于 2023-3-14 17:56
请参考。。。

老师，是删除0值所在的整行，此例子中为第2行禾11行

shiruiqiang

Sub test()
Dim rng As Range, ss As Range
Set ss = [a1].Resize(1, 9)
For Each rng In Sheets(1).Range("i2:i12")
If rng.Value <> 0 Then
Set ss = Union(ss, rng.Offset(0, -8).Resize(1, 9))
End If
Next
ss.Copy Sheets(2).[a1]
End Sub

gwjkkkkk

zhouquyi 发表于 2023-3-14 18:03
老师，是删除0值所在的整行，此例子中为第2行禾11行

请参考。。。

杨建营

zhouquyi 发表于 2023-3-14 18:03
老师，是删除0值所在的整行，此例子中为第2行禾11行

事实上你说的0所在的单元格。请楼主参考，这个是整行删除的。