excel中怎么用VB代码删除某列为0的那一行而不是含0的行。
SubDelrows()DimArr,k&Arr=[A1].CurrentRegionApplication.ScreenUpdating=FalseFork=UBoun...
Sub Delrows()
Dim Arr, k&
Arr = [A1].CurrentRegion
Application.ScreenUpdating = False
For k = UBound(Arr) To 1 Step -1
If InStr(Arr(k, 9), "0") Then
Rows(k).Delete
End If
Next
Application.ScreenUpdating = True
End Sub
总是连含0的行删除了，这要怎么修改才行 展开
Dim Arr, k&
Arr = [A1].CurrentRegion
Application.ScreenUpdating = False
For k = UBound(Arr) To 1 Step -1
If InStr(Arr(k, 9), "0") Then
Rows(k).Delete
End If
Next
Application.ScreenUpdating = True
End Sub
总是连含0的行删除了，这要怎么修改才行 展开
1个回答
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
