日日操夜夜添-日日操影院-日日草夜夜操-日日干干-精品一区二区三区波多野结衣-精品一区二区三区高清免费不卡

在Excel中刪除空行和空列的方法有很多，下面的方法是用VBA代碼來刪除工作表指定區(qū)域中的空行和空列：

Option Explicit

Sub Delete_Empty_Rows()
Dim rnArea As Range
Dim lnLastRow As Long, i As Long, j As Long

Application.ScreenUpdating = False
lnLastRow = Selection.Rows.Count
Set rnArea = Selection

j = 0

For i = lnLastRow To 1 Step -1
If Application.CountA(rnArea.Rows(i)) = 0 Then
rnArea.Rows(i).Delete
j = j + 1
End If
Next i

rnArea.Resize(lnLastRow – j).Select

Application.ScreenUpdating = True
End Sub

Sub Delete_Empty_Columns()
Dim lnLastColumn As Long, i As Long, j As Long
Dim rnArea As Range

Application.ScreenUpdating = False
lnLastColumn = Selection.Columns.Count
Set rnArea = Selection

j = 0

For i = lnLastColumn To 1 Step -1
If Application.CountA(rnArea.Columns(i)) = 0 Then
rnArea.Columns(i).Delete
j = j + 1
End If
Next i

rnArea.Resize(, lnLastColumn – j).Select

Application.ScreenUpdating = False
End Sub

在運(yùn)行代碼前，先選擇需要刪除空行和空列的區(qū)域。如果要刪除空行，則運(yùn)行Delete_Empty_Rows()，指定區(qū)域中的空行將被刪除。注意所謂空行是在指定區(qū)域中的，如果在指定區(qū)域內(nèi)是空行，而在指定區(qū)域外不是空行，那么這些空行還是將會被刪除。刪除空列則運(yùn)行Delete_Empty_Columns()。