excel鎖定工作表部分區(qū)域 刪除Excel工作表中數(shù)據(jù)區(qū)域中的奇數(shù)行的方法，作為經(jīng)常和辦公軟件打交道的你這些問題是不是經(jīng)常困擾著你，小編今天這篇文章就是幫助你解決excel鎖定工作表部分區(qū)域這個(gè)問題，當(dāng)你再次遇到excel鎖定工作表部分區(qū)域 刪除Excel工作表中數(shù)據(jù)區(qū)域中的奇數(shù)行的方法這個(gè)問題的時(shí)候，我相信你絕對(duì)不會(huì)再犯愁了，下面就跟我一起來學(xué)習(xí)一下這個(gè)知識(shí)吧！

在Excel工作表中，有時(shí)需要?jiǎng)h除數(shù)據(jù)區(qū)域中的某些特定行，如數(shù)據(jù)區(qū)域中的奇數(shù)行。如果由操作者一行一行地刪除，則效率較低。實(shí)際上，通過編寫簡(jiǎn)單的VBA程序就能很快捷地解決這個(gè)問題，本文介紹了刪除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ù)行被刪除