快速刪除Excel2003中的空白行
在使用Excel處理數(shù)據(jù)時,經(jīng)常會留下一些空白行。那么如何快速刪除這些空白行呢?今天我們將介紹一段代碼來實(shí)現(xiàn)。 步驟1:輸入測試數(shù)據(jù) 首先,在一些單元格中隨意輸入一些字符,代表有空白行的數(shù)據(jù)。
在使用Excel處理數(shù)據(jù)時,經(jīng)常會留下一些空白行。那么如何快速刪除這些空白行呢?今天我們將介紹一段代碼來實(shí)現(xiàn)。
步驟1:輸入測試數(shù)據(jù)
首先,在一些單元格中隨意輸入一些字符,代表有空白行的數(shù)據(jù)。
步驟2:打開Visual Basic編輯器
按下快捷鍵Alt F11,彈出Visual Basic編輯器。雙擊ThisWorkbook,打開代碼窗口。
步驟3:復(fù)制代碼
在代碼窗口中,將下方的代碼復(fù)制進(jìn)去:
Sub 刪除空白行()
s
e - 1
For i e To s Step -1
If (Rows(i)) 0 Then
(i).Delete
End If
Next
End Sub
步驟4:運(yùn)行代碼
將光標(biāo)放在代碼的任意位置,點(diǎn)擊上方的小三角形按鈕,即可運(yùn)行代碼,刪除空白行。
步驟5:查看結(jié)果
運(yùn)行完代碼后,查看Excel表格中的結(jié)果,空白行已被快速刪除。