tft每日頭條

 > 生活

 > vba如何删除相同行

vba如何删除相同行

生活 更新时间:2024-08-01 00:12:29

我有一個産品數據庫,數據有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删除空行)1

原始數據有很多單元格是空的,下面我們要删除這些空格

vba如何删除相同行(手把手教你用VBA删除空行)2

找個圖标

vba如何删除相同行(手把手教你用VBA删除空行)3

編輯圖标,給命令起個名字

vba如何删除相同行(手把手教你用VBA删除空行)4

給圖标指定宏

vba如何删除相同行(手把手教你用VBA删除空行)5

新建宏

vba如何删除相同行(手把手教你用VBA删除空行)6

進入VBA編輯器

vba如何删除相同行(手把手教你用VBA删除空行)7

複制粘貼,VBA本來就是搭積木

vba如何删除相同行(手把手教你用VBA删除空行)3

空行全部都被删除了

,

更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!

查看全部

相关生活资讯推荐

热门生活资讯推荐

网友关注

Copyright 2023-2024 - www.tftnews.com All Rights Reserved