[已解决]VBA删除偶数行请教

蓝雨清

如题：我需要用VBA删除偶数行，请教代码，谢谢！

VBA练习.rar (13.01 KB, 下载次数: 14)

2013-1-13 10:46 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-1-13 10:57

1. Sub 删除偶数行()
   
2.     Dim i&, irow&
   
3.     Application.ScreenUpdating = False
   
4.     irow = Cells(Rows.Count, 1).End(xlUp).Row
   
5.     For i = irow To 2 Step -1
   
6.         If (i Mod 2) = 0 Then
   
7.             Cells(i, 1).Delete xlShiftUp
   
8.             i = i - 1
   
9.         End If
   
10.     Next
    
11.     Application.ScreenUpdating = True
    
12. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

删除的时候得从下面往上逐行删除。

hwc2ycy

1. Sub 删除偶数行()
   
2.     Dim i&, irow&
   
3.     Application.ScreenUpdating = False
   
4.     irow = Cells(Rows.Count, 1).End(xlUp).Row
   
5.     For i = irow To 2 Step -1
   
6.         If (i Mod 2) = 0 Then
   
7.             Cells(i, 1).Delete xlShiftUp
   
8.             i = i - 1
   
9.         End If
   
10.     Next
    
11.     Application.ScreenUpdating = True
    
12. End Sub

复制代码

E路人

1. Sub test()
   
2.     Dim i&
   
3.     For i = [A65536].End(3).Row To 1 Step -2
   
4.         Cells(i + 1, 1).Delete
   
5.     Next i
   
6. End Sub
   

复制代码

490540970

人家是要删除偶数的行不是偶数的单元格
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
For i = [a65536].End(3).Row To 1 Step -1
If i Mod 2 = 0 Then
Range("a" & i).EntireRow.Delete shift:=xlShiftUp
End If
Next
Application.ScreenUpdating = true
End Sub

chin15

介绍一个常用的方法：
For i = 2 To 10000 Step 2
Cells(i, 1) = "#N/A"
Next
[a:a].SpecialCells(2, 16).Delete (3)

學海無涯

学习了！