我有一個産品數據庫,數據有1300多行,其中有一列數據不全,裡面有一些沒有數值,就是說有一些空的單元格。
現在我們用這一列數據,來演示一下如何用VBA來删除空行。
第一步:點擊Excel菜單中的“插入”==》随便找個圖标插入。
第二步:輸入文字,便于識别不同命令。
第三步:選中圖标,鼠标右擊圖标==》選擇“指定宏”。
第四步:點擊“新建”。
第五步:就進入VBA編輯器了,在紅框中複制以下代碼,每一句的作用都有具體注釋。
第六步:保存,關閉VBA編輯器。
第七步:回到工作表Sheet1中,點擊圖标,程序就會自動運行,執行删除空行命令。一秒完成!
所以VBA比較适合重複性的工作,可以大大減輕我們的工作量。
以上,是一種最簡單的進入VBA編輯的方法。
其它進入VBA編輯器方法如下:
1. Excel菜單中點擊“開發工具”==》Visual Basic。
2. 鼠标放在左下角工作表名上,如Sheet1,Sheet2..., 右擊,出現菜單後選擇“查看代碼”
3. 使用鍵盤:Alt F11
第五步需要複制的代碼如下:
Dim i
Application.DisplayAlerts = True '關閉刷新,加快速度
For i=ActiveSheet.UsedRange.Rows.Count To 2 Step -1 '從有數據的最後一行開始,向上删除空行
If Application.WorksheetFunction.CountA(Rows(i)) = 0 Then '判斷為空行
Rows(i).Delete '執行删除
End If
NextApplication.DisplayAlerts = False '打開刷新過程
具體過程的屏幕圖片如下:
原始數據有很多單元格是空的,下面我們要删除這些空格
找個圖标
編輯圖标,給命令起個名字
給圖标指定宏
新建宏
進入VBA編輯器
複制粘貼,VBA本來就是搭積木
空行全部都被删除了
,更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!