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

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

操作步驟

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

在“宏名”欄框中填寫“宏名稱”在點擊“創建”。如下圖所示！

復制下面代碼粘貼到“Microsoft Visual Basic”模塊窗口內，關閉“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主界面再次點擊菜單欄上的“工具”→“宏（M）”→“宏（M）”。

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

執行宏命令完后，如下圖所示！

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。