[已解决]EXCEL高手用VBA实现隔行删除

vbyou127

EXCEL高手用VBA实现隔行删除

最佳答案

月排行榜 / 总排行榜

zjdh

2016-3-17 09:45

Sub test()
    For x = 1 To Cells(65536, 1).End(3).Row - 1 Step 2
        w = w & "," & x & ":" & x
    Next
    Range(Mid(w, 2)).Delete
End Sub

跳转到最佳答案楼层

wanao2008

看看这种方法行不行：
Sub test()
    For x = 2 To Cells(Rows.Count, 1).End(xlUp).Row Step 2
        rngs = rngs & x & ":" & x & ","
    Next
    rngs = Mid(rngs, 1, Len(rngs) - 1)
    Range(rngs).Delete
End Sub

vbyou127

wanao2008 发表于 2016-3-14 19:30
看看这种方法行不行：
Sub test()
    For x = 2 To Cells(Rows.Count, 1).End(xlUp).Row Step 2

你可能误解题意，正确应如下图

yorkchenshunan

如果要删除1/3/5/7/9行，用此过程

1. Sub delrow()
   
2. Dim n, m
   
3. m = Int([A65535].End(xlUp).Row / 2) + 1
   
4. For n = 1 To m
   
5.     Rows(n).Delete
   
6. Next n
   
7. End Sub

复制代码

如果只删除1/3/5/7行，用此过程

1. Sub delrow()
   
2. Dim n, m
   
3. m = Int([A65535].End(xlUp).Row / 2)
   
4. For n = 1 To m
   
5.     Rows(n).Delete
   
6. Next n
   
7. End Sub

复制代码

vbyou127

wanao2008 发表于 2016-3-14 19:30
看看这种方法行不行：
Sub test()
    For x = 2 To Cells(Rows.Count, 1).End(xlUp).Row Step 2

Sub 隔行删除()
Dim r, s
m = Application.CountA(Columns(1))
    For r = 1 To m / 2
        Rows(r).Delete
    Next
End Sub

按这个用第二种方法

zjdh

Sub test()
    For x = 1 To Cells(65536, 1).End(3).Row - 1 Step 2
        w = w & "," & x & ":" & x
    Next
    Range(Mid(w, 2)).Delete
End Sub