卖逼视频免费看片|狼人就干网中文字慕|成人av影院导航|人妻少妇精品无码专区二区妖婧|亚洲丝袜视频玖玖|一区二区免费中文|日本高清无码一区|国产91无码小说|国产黄片子视频91sese日韩|免费高清无码成人网站入口

快速刪除奇數(shù)行或偶數(shù)行的幾種方法詳解

數(shù)據(jù)處理中,有時候需要刪除指定的行,比如刪除奇數(shù)行或者偶數(shù)行。這時逐行選擇刪除效率不高,下面分享幾種快速刪除指定行的方法。一、篩選法該方法操作簡單,不需要編寫代碼。具體步驟如下:1. 在數(shù)據(jù)的最前面插

數(shù)據(jù)處理中,有時候需要刪除指定的行,比如刪除奇數(shù)行或者偶數(shù)行。這時逐行選擇刪除效率不高,下面分享幾種快速刪除指定行的方法。

一、篩選法

該方法操作簡單,不需要編寫代碼。具體步驟如下:

1. 在數(shù)據(jù)的最前面插入空白列,偶數(shù)行不輸入任何數(shù)據(jù),奇數(shù)行輸入1;

2. 選中這兩個單元格,按住右鍵拖動--復(fù)制單元格;

3. 選中標(biāo)題行,點擊數(shù)據(jù)--篩選;

4. 點擊篩選下拉按鈕,選擇奇數(shù)行數(shù)據(jù)即數(shù)字1,這樣奇數(shù)行被篩選出來,刪除即可;

5. 篩選全部,這樣剩下的偶數(shù)行數(shù)據(jù)就顯示出來。

二、VBA代碼法

該方法需要使用VBA編輯器,并編寫代碼來實現(xiàn)。具體步驟如下:

1. 打開VBA編輯器,點擊插入--模塊,在其中輸入以下代碼:

Sub DeleteRows()

Dim n, i As Long

n Range("A65536").End(xlUp).Row

If n Mod 2 0 Then n n - 1

For i n To 1 Step -2

Rows(i).Delete

Next

End Sub

2. 關(guān)閉編輯器,在工作表菜單欄點擊開發(fā)工具--宏,選擇剛才輸入的代碼名稱,點擊執(zhí)行,即可刪除奇數(shù)行或偶數(shù)行。

三、函數(shù)法

該方法需要使用公式來實現(xiàn)。具體步驟如下:

1. 輸入公式IF(MOD(ROW(),2)0,"偶數(shù)行","奇數(shù)行");

2. 然后下拉,得出結(jié)果后,再篩選出奇數(shù)行刪除,步驟同篩選法。

以上是三種快速刪除指定行的方法,讀者可以根據(jù)自己的實際需求來選擇合適的方法。

標(biāo)簽: