在Excel工作表中，有時(shí)需要刪除數(shù)據(jù)區(qū)域中的某些特定行，如數(shù)據(jù)區(qū)域中的奇數(shù)行。如果由操作者一行一行地刪除，則效率較低。以下是學(xué)習(xí)啦小編為您帶來的關(guān)于刪除Excel工作表中數(shù)據(jù)區(qū)域中的奇數(shù)行，希望對您有所幫助。

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

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

　　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ū)域最后一行的行號n與2進(jìn)行取模運(yùn)算，判斷該變量是否為偶數(shù)，然后使用For循環(huán)從最大的奇數(shù)行開始，以2為步長逐行刪除掉奇數(shù)行。

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

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

猜你喜歡：

1.excel2003設(shè)置打印奇數(shù)頁的方法

2.撤銷excel工作表保護(hù)的方法

3.Excel中進(jìn)行使用函數(shù)計(jì)算一組奇數(shù)個數(shù)的操作方法

4.excel2007打印奇數(shù)頁的教程

5.excel怎么利用函數(shù)比較兩個表格數(shù)據(jù)差異