刪除Excel工作表中數(shù)據(jù)區(qū)域中的奇數(shù)行的方法

1、啟動(dòng)Excel并打開工作表，如圖1所示。打開Visual Basic編輯器，在工程資源管理器中插入一個(gè)模塊，在該模塊的“代碼”窗口中輸入如下程序代碼：

Sub DeleteRows()

Dim n,i As Long

n=Range("A65536").End(xlUp).Row

If n Mod 2=0 Then n=n-1

For i=n To 1 Step-2

Rows(i).Delete

Next

End Sub

圖1　打開需要處理的工作表

提示

在這段程序中，程序?qū)?shù)據(jù)區(qū)域最后一行的行號(hào)n與2進(jìn)行取模運(yùn)算，判斷該變量是否為偶數(shù)，然后使用For循環(huán)從最大的奇數(shù)行開始，以2為步長(zhǎng)逐行刪除掉奇數(shù)行。

2、按F5鍵運(yùn)行程序，工作表中的奇數(shù)行被刪除，如圖2所示。

圖2　工作表中的奇數(shù)行被刪除