如何利用VB程序一次性删除数据表中要求数字单元格所在的行？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

如何利用VB程序一次性删除数据表中要求数字单元格所在的行？
详见附件。
谢谢。

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：VB程序 一次性 数据表 单元格 数据 程序 数字 删除 单元

Sub DelRow()
'Before runing this code, make sure
'1. Delete all the merged ranges
'2. The first row is your title row
'3. Column G include the exactly value 0.01 which marks the row you want to delete
Dim nr As Long
Dim ws As Worksheet
Set ws = Worksheets(1) 'Make sure the first sheet is the original sheet
ws.Select
nr = ws.UsedRange.Rows.Count

Dim i As Long
For i = nr To 2 Step -1
If Cells(i, 7) = 0.01 Then
ws.Rows(i).Delete
End If
Next i
End Sub

Sub aa()
Dim i As Integer
For i = 2 To Range("A65536").End(xlUp).Row
    If Cells(i, 7) = 0.01 Then
        Cells(i, 7).EntireRow.Delete
        i = i - 1
    End If
Next
End Sub