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

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

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

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

　　圖2　工作表中的奇數行被刪除

猜你喜歡：

1.excel2003設置打印奇數頁的方法

2.撤銷excel工作表保護的方法

3.Excel中進行使用函數計算一組奇數個數的操作方法

4.excel2007打印奇數頁的教程

5.excel怎么利用函數比較兩個表格數據差異