vba - 从列中删除数字

Question

我在 B 列中有以下数字

4025015659
4025015660
4025015661
4025015662
-266490.78
-266491.78
-266492.78
-266493.78
0
0
0

我需要删除除负数以外的所有数字。是否有可能有一个公式或 vba 代码来做到这一点。

标签： vbaformula

Answer 1

尝试这个

Sub deleteRows()

    Dim lastRow As Long
    lastRow = Range("B" & Rows.CountLarge).End(xlUp).Row

    For i = lastRow To 1 Step -1
        If Cells(i, "B") < 0 Then
             Cells(i, "B").EntireRow.Delete
        End If
    Next
End Sub