|
在數(shù)據(jù)統(tǒng)計與分析過程中，由于各種原因如記錄的添加、刪除以及數(shù)據(jù)表的合并等操作，經(jīng)常會在表格中出現(xiàn)一些多余空行。這些空行的存在既影響了美觀，同時也影響了數(shù)據(jù)分析的結(jié)果。如果一行行地手工刪除，費時費力。借助功能強大的OFFICE VBA，就可以輕松地刪除了。
一、先創(chuàng)建一個宏，宏名為DelNullRow,代碼如下：
Sub DelNullRow
Dim b,c As Integer
Dim a As Range
For b=1 To Range(“b65536”).End(xlUp).Row
k=0:Set a=Cells(b,1)
‘測試該行的連續(xù)4個列的值是否為空（用戶可按要求指定該數(shù)字）
For c=1 To4
If Cells(b,c)=”” Then k=k+1
Next c
‘如果該行連續(xù)4個單元格的為空，則刪除該行
If k=4 Then
a.EntireRow.delete shift:=xlUp
End If
Next b
End Sub
二、說明：
自定義一個工具欄，右擊將創(chuàng)建的宏指定給該按鈕。同時可以更改按鈕命名和圖像，另外可根據(jù)需要指定測試某行空值單元格個數(shù)的大小，然后將基見刪除，甚至可以指定為整列的寬度cells(xlright).columns 。除了可以用工具欄按鈕實現(xiàn)一鍵刪除的或能，另外還可以將該宏指定給一個自定義的右鍵菜單，這親呆以一勞永逸了。（轉(zhuǎn)載）
相關(guān)文章
|
