我想删除 A 列中包含超过 2 个数字的所有行。
如果 A 列中的值包含超过 2 个数字,那么我想将其删除。
有人可以帮我弄这个吗?
更新
A b C D
12tech
1pics
google9
panda555
jer9gf666
9tom
我想删除示例中的第 1 行、第 4 行、第 5 行,因为每行都包含 2 个以上的数字。
我想删除 A 列中包含超过 2 个数字的所有行。
如果 A 列中的值包含超过 2 个数字,那么我想将其删除。
有人可以帮我弄这个吗?
更新
A b C D
12tech
1pics
google9
panda555
jer9gf666
9tom
我想删除示例中的第 1 行、第 4 行、第 5 行,因为每行都包含 2 个以上的数字。
假设第 1 行是标题行,您的实际数据从第 2 行开始,将此公式放在单元格 B2 中并向下复制:
=SUM(LEN(A2)-LEN(SUBSTITUTE(A2,{1,2,3,4,5,6,7,8,9,0},"")))>1
然后在 B 列上过滤为 TRUE,删除这些行,然后删除过滤器
没有删除行的纯公式方法(您可以使用正则表达式编写 VBA 宏,但由于您没有说要使用宏,所以我会避免使用它们),但这里有一个查找和删除行的过程:
1) 令 B1 为以下公式:
= MIN(
IFERROR(FIND("0",A1),999999),
IFERROR(FIND("1",A1),999999),
IFERROR(FIND("2",A1),999999),
IFERROR(FIND("3",A1),999999),
IFERROR(FIND("4",A1),999999),
IFERROR(FIND("5",A1),999999),
IFERROR(FIND("6",A1),999999),
IFERROR(FIND("7",A1),999999),
IFERROR(FIND("8",A1),999999),
IFERROR(FIND("9",A1),999999)
)
2)填写B列
3) 设 C1 为公式
= MIN(
IFERROR(FIND("0",A1,B1+1),999999),
IFERROR(FIND("1",A1,B1+1),999999),
IFERROR(FIND("2",A1,B1+1),999999),
IFERROR(FIND("3",A1,B1+1),999999),
IFERROR(FIND("4",A1,B1+1),999999),
IFERROR(FIND("5",A1,B1+1),999999),
IFERROR(FIND("6",A1,B1+1),999999),
IFERROR(FIND("7",A1,B1+1),999999),
IFERROR(FIND("8",A1,B1+1),999999),
IFERROR(FIND("9",A1,B1+1),999999)
)
4)填写C列
5) 设 D1 为公式
=C1<999999
6) 填写 D 列
7) 在顶部数据行上方插入一行,并设置新的 A1 = "name" 和 D1 = "filter"
8) 让 F1="filter" 和 F2=TRUE
9)选择表(A2:D...),右键,高级筛选
10) 将 Criteria 范围设置为 F1:F2 并点击 OK