1樓:網友
<>sub deletefksupplier()dim i&, t%, k%, istr$, arrarr = split("關閉/取消/熊大。
熊二", 虧孝/")將該指猛文字按/符號分隔為陣列。
for i = 4000 to 2 step -1 'step是步長,-1表示每迴圈次i就減1
銷逗稿 k = 0 '每次迴圈都重置k
istr = range("b" &i)
for t = 0 to ubound(arr) '遍歷陣列arrk = k + instr(istr, arr(t))nextif k = 0 then rows(i).delete '不包含陣列arr的任意一項則刪除第i行。
nextmsgbox "處理完畢", 64end sub
2樓:網友
刪除拍激茄m列,鉛運不包襲察含 熊大或熊二的行。
sub 刪除()
dim ifor i = range("m65536").end(xlup).row to 2 step -1
x = instr(cells(i, "m"),熊大")y = instr(cells(i, "m"),熊二")if x = 0 and y = 0 thenrows(i).delete
end if
nextend sub
3樓:陽光上的橋
熊大熊二") 0 then
修改為。熊大") 0 and instr(range("m"純碰如吵跡 & cstr(i)).text, "熊二"做啟) =0 then
4樓:匿名使用者
速隱轎森度的話這個應該是最快的,不過不知道你是隻有"熊大"還是包含"熊大"帆伍還有別的,如果有別的話,篩選條件要改一下。
sub test10()
with range("a1")
autofilter field:=13, criteria1:="熊大", operator:=xlor, criteria2:="熊二灶畝"
autofilter field:=2, criteria1:="關閉", operator:=xlor, criteria2:="取消"
end with
falseafter:=worksheets(
a1").pastespecial paste:=xlpastevalues
falseend sub
excel如何利用vba功能刪除有某關鍵詞的行?
5樓:陽光上的橋
我給你寫了下面的**,你試試看:
option explicit
sub 刪除指定內容行()
dim arr, i
if cells(1, 1) =then cells(1, 1) =arr =
for i = ubound(arr) to 3 step -1if instr(arr(i, 1), 性別") instr(arr(i, 1), 年齡") instr(arr(i, 1), 身高") 0 then rows(i).delete
next i
end sub
excel巨集或者vba,怎麼把包含特定內容的行刪除,並刪除和該行某列內容一樣的行 aa tr
6樓:網友
你裡面的fail是單元格里面類容的全部嗎或者fail只是一部分?
如果是這樣可以使用 vba製作。
第一步:去掉所有帶fail的行。
第二步:去掉重複行。
資料在a列,關鍵字fail在b列,如下**去除a列重複,去除b列包含fail:
sub chekingkeywordsandkeeponly()dim i, j
i = 1while cells(i, 1) <""
for j = 1 to 10
if lcase(cells(i, j).value) = lcase("fail") then
rows(i).delete
exit for
end if
if j = 10 then
i = i + 1
end if
next j
wendi = 1
while cells(i, 1) <""
j = i + 1
while cells(j, 1) <""
if cells(j, 1).value = cells(i, 1).value then
cells(j, 1).delete
elsej = j + 1
end if
wendi = i + 1
wendend sub
如何刪除excel中所有關鍵字所在行
7樓:網友
查詢--無效--查詢全部--選中查詢結果--刪除行。
8樓:網友
首先,你所帶"無效"二字的內容是不是都在一行或者一列裡?
如果是,那麼:
資料==>篩選==>自動篩選==>點無效所在的行或列出現的符號==>自定義==>左邊選包含,右邊填"無效"==>然後全選,再刪除就可以了。
9樓:森林浴
開啟工程管理器,或同時按下alt+f11
插入模組。貼上**後執行巨集。
sub 刪除行()
y = 1 '表示a列,可自行修改。
x1 = 1
x2 = cells(65536, 1).end(xlup).rownum = 0
for x = x1 to x2
do while mid(cells(x, y), 1, 2) = "無效" and x + num <= x2 '無效是要刪除的字元行。
rows(x).select
shift:=xlup
num = num + 1
loopnext
for x = x1 to x2
do while cells(x, y) = "" and x + num <= x2
rows(x).select
shift:=xlup
num = num + 1
loopnext
end sub
excel vba找到特定字元並刪除其所在行以下的所有記錄
10樓:松秀英喬霜
第1步,按ctrl+f,查詢abc,點【查詢全部】後在結果框按ctrl+a。如果要刪除包含abc的行,則:關閉查詢替換對話方塊,然後右鍵單擊第1步選中的單元格之一,刪除,整行。
要保留包含"abc"的行,則按以下步驟繼續:
第2步,關閉查詢替換對話方塊,按下ctrl+9,將第1步選中的單元格所在的行隱藏。
第3步,按f5鍵,定位」可見單元格「。
第4步,在第3步選中的單元格區域右鍵單擊→刪除,整行。
第5步,單擊」全選「按鈕,右鍵→取消隱藏。
excel如何用巨集刪除一列中單元格包含某字元的行
11樓:excel大師
這個不用用到巨集,第一種方法是篩選,然後刪除他。
第二種方法是查詢,先選中a列,再點查詢選單---點查詢全部---點一下查詢框中找到的答案---全部選擇中(可按crtl+a)--然後右鍵刪除整行。
12樓:罐子奉花童
sub macro1()
刪除無用區域。
for i = [a65536].end(xlup).row to 1 step -1
if instr(cells(i, "a"), "某字元") >0 then rows(i).delete
nextend sub
excel如何把包含某個字 的整行刪掉?或者單元格刪掉?
13樓:魚木混豬喲
excel可以通過篩選的方。
bai法,選出含有du 某個字的行來,然後zhi刪除行即可。dao
軟體版本:內office2010
方法如下:1.將a列中含有字母a的行全部容刪除掉:
2.選擇a列,資料,篩選:
3.點選下拉箭頭,文字篩選,包含:
4.包含後的文字框中填入字母a,點選確定:
5.選擇篩選後得到的全部行,點選右鍵,刪除行:
6.再次點選篩選,取消篩選,就可以看到,包含a的行全部被刪除掉了:
14樓:匿名使用者
在關鍵字那列,篩選,輸入「女」,刪除篩選結果。
15樓:網友
寫**,找到符合條件的就自動刪除。
用查詢應該也可以。
excel中刪除所有包含"關鍵字"的行
16樓:網友
應該要稍作修改。
sub delco()
dim i as integer
i = 0xunhuan:
on error goto eend
"關鍵字").select
i = i + 1
goto xunhuan
eend:msgbox (i & 行被刪除了")end sub
具體步驟:開啟檔案,在工具-巨集中開啟vb器。
複製**到**框,編譯一下儲存,記得把關鍵字改成你要的。
按alt+f8執行一下就好了。
17樓:海雲傘
選擇下拉列,然後刪除,我是這樣的,有更好的辦法請告訴我 哦。
excel 一列中有刪除被包含關鍵詞的行
18樓:網友
其實不難,很容易實現的,使用vba,我可以實現您的要求,但關鍵字太多,執行可能會有些慢。
19樓:網友
有點難,沒錢拿不搞。
excel vba刪除符合條件的內容
sub xx s f2 for i 1 to 10 for j 1032 to 1017 step 1k mid cells j,i 2,1 if instr s,k 0 thencells j,i delete end if next next end sub excel 怎麼用vba高效刪除符合...
如何刪除系統更新安裝包,如何刪除win10的系統更新安裝包
回答提問 那怎樣能看還有多少記憶體 回答1.方法一 滑鼠右擊計算機,選擇 屬性 2.在系統下面即可看到還剩多少記憶體了。3.方法二 點選左下角 開始 選擇 控制面板 4.選擇 系統與安全 點選 系統 進去後可以檢視剩多少記憶體。希望能幫到您喲親 更多9條 方法一 在磁碟中找到c windows so...
如何刪除p系統啟動預設選擇條,如何刪除XP系統啟動預設選擇條
進入c盤 找到boot.ini檔案,這個檔案是隱藏的,你開啟我的電腦在選單欄工具 資料夾選項 檢視 點選顯示所有資料夾和檔案 應用,到c盤找到boot.ini檔案,然後用記事本開啟boot.ini 把 boot loader timeout 5 default multi 0 disk 0 rdis...