EXCEL VBA 反向选择删除包含关键字所在行?

2025-04-15ASPCMS社区 - fjmyhfvclm

网友的回答:


<>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

网友的回答:


删除拍激茄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

阳光上的桥的回答:


熊大熊二") 0 then

修改为。熊大") 0 and instr(range("m"纯碰如吵迹 & cstr(i)).text, "熊二"做启) =0 then

热心网友的回答:


速隐轿森度的话这个应该是最快的,不过不知道你是只有"熊大"还是包含"熊大"帆伍还有别的,如果有别的话,筛选条件要改一下。

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功能删除有某关键词的行?

阳光上的桥的回答:


我给你写了下面的**,你试试看:

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

网友的回答:


你里面的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中所有关键字所在行

网友的回答:


查询--无效--查询全部--选中查询结果--删除行。

网友的回答:


首先,你所带"无效"二字的内容是不是都在一行或者一列里?

如果是,那么:

资料==>筛选==>自动筛选==>点无效所在的行或列出现的符号==>自定义==>左边选包含,右边填"无效"==>然后全选,再删除就可以了。

森林浴的回答:


开启工程管理器,或同时按下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找到特定字元并删除其所在行以下的所有记录

松秀英乔霜的回答:


第1步,按ctrl+f,查询abc,点【查询全部】后在结果框按ctrl+a。如果要删除包含abc的行,则:关闭查询替换对话方块,然后右键单击第1步选中的单元格之一,删除,整行。

要保留包含"abc"的行,则按以下步骤继续:

第2步,关闭查询替换对话方块,按下ctrl+9,将第1步选中的单元格所在的行隐藏。

第3步,按f5键,定位」可见单元格「。

第4步,在第3步选中的单元格区域右键单击→删除,整行。

第5步,单击」全选「按钮,右键→取消隐藏。

️excel如何用巨集删除一列中单元格包含某字元的行

excel大师的回答:


这个不用用到巨集,第一种方法是筛选,然后删除他。

第二种方法是查询,先选中a列,再点查询选单---点查询全部---点一下查询框中找到的答案---全部选择中(可按crtl+a)--然后右键删除整行。

罐子奉花童的回答:


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如何把包含某个字 的整行删掉?或者单元格删掉?

鱼木混猪哟的回答:


excel可以通过筛选的方。

bai法,选出含有du 某个字的行来,然后zhi删除行即可。dao

软体版本:内office2010

方法如下:1.将a列中含有字母a的行全部容删除掉:

2.选择a列,资料,筛选:

3.点选下拉箭头,文字筛选,包含:

4.包含后的文字框中填入字母a,点选确定:

5.选择筛选后得到的全部行,点选右键,删除行:

6.再次点选筛选,取消筛选,就可以看到,包含a的行全部被删除掉了:

热心网友的回答:


在关键字那列,筛选,输入「女」,删除筛选结果。

网友的回答:


写**,找到符合条件的就自动删除。

用查询应该也可以。

️excel中删除所有包含"关键字"的行

网友的回答:


应该要稍作修改。

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执行一下就好了。

海云伞的回答:


选择下拉列,然后删除,我是这样的,有更好的办法请告诉我 哦。

️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高效删除符合...

回答提问 那怎样能看还有多少记忆体 回答1.方法一 滑鼠右击计算机,选择 属性 2.在系统下面即可看到还剩多少记忆体了。3.方法二 点选左下角 开始 选择 控制面板 4.选择 系统与安全 点选 系统 进去后可以检视剩多少记忆体。希望能帮到您哟亲 更多9条 方法一 在磁碟中找到c windows so...

进入c盘 找到boot.ini档案,这个档案是隐藏的,你开启我的电脑在选单栏工具 资料夹选项 检视 点选显示所有资料夹和档案 应用,到c盘找到boot.ini档案,然后用记事本开启boot.ini 把 boot loader timeout 5 default multi 0 disk 0 rdis...

全部评论