用宏在Excel2003表格中隔行刪除另一行（excel刪除一行）

由于用戶在編輯Excel表格的過程中，需要隔行刪除另一行的內(nèi)容，但是一個(gè)個(gè)刪除比較麻煩有沒有辦法可以快速的刪除隔行不要的內(nèi)容，按照下面的方法可快速將隔行內(nèi)容刪掉。

操作步驟

打開Excel表格，點(diǎn)擊菜單欄上的“工具”→“宏（M）”→“宏（M）”。

在“宏名”欄框中填寫“宏名稱”在點(diǎn)擊“創(chuàng)建”。如下圖所示！

復(fù)制下面代碼粘貼到“Microsoft Visual Basic”模塊窗口內(nèi)，關(guān)閉“Microsoft Visual Basic”窗口即可保存。

Sub 隔行刪除另一行()

Dim iCounter As Integer

Dim iDeleNo As Integer

For iCounter = 1 To 30000

iDeleNo = 2 * iCounter

Rows("" & iDeleNo & ":" & iDeleNo & "").Select

Selection.ClearContents

Next

For iCounter = 1 To 60000

If Rows("" & iCounter & ":" & iCounter & "").Range("A1").Value = "" Then

Rows("" & iCounter & ":" & iCounter & "").Select

Selection.Delete Shift:=xlUp

End If

Next

End Sub

回到Excel主界面再次點(diǎn)擊菜單欄上的“工具”→“宏（M）”→“宏（M）”。

或按“Alt+F”快捷鍵打開“宏命令窗口”選擇剛才輸入的名稱點(diǎn)擊“執(zhí)行”即可。

執(zhí)行宏命令完后，如下圖所示！

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。