请教一下：excel 如何批量删除含有数字的行?要求：批量删除后没有数字,使用公式函数、VBA等均可。谢谢！

Answer 1

　　F1数组公式

=INDEX(A:A,SMALL(IF(LENB(A$1:A$11)=2*LEN(A$1:A$11),ROW($1:$11),4^8),ROW(A1)))&""

输入完公式后, 双击单元格, 按 Ctrl+shift+回车 三键结束

　　右拉至E1, 再下拉至E11.

追问

应当右拉至J1, 再下拉至J11
可否说明一下公式？谢谢！
行数和列数增加时如何更改公式

追答

不好意思, 开始没考虑到空格的情况, 公式改了一下, 这回对了.

=INDEX(A:A,SMALL(IF(LENB($A$1:$A$11)=2*LEN($A$1:$A$11),ROW($1:$11),4^8),ROW(A1)))&""

1. LENB(A$1:A$11)=2*LEN(A$1:A$11)

判断A1:A11中第个单元格是否包含数字, 因为数字是单字节的, 所以LEN()的2倍肯定不等于LENB(), 具体看EXCEL关于这两个函数的帮助.

2. IF(LENB(A$1:A$11)=2*LEN(A$1:A$11),ROW($1:$11),4^8)

如果LENB(A$1:A$11)=2*LEN(A$1:A$11)计算值为TRUE, 则返回满足条件那行的行号, 否则返回4^8. 4^8的03版EXCEL的最大行号, 就当它是个极大的数就行.

3. SMALL(IF(LENB(A$1:A$11)=2*LEN(A$1:A$11),ROW($1:$11),4^8),ROW(A1))

作用是取 IF(LENB(A$1:A$11)=2*LEN(A$1:A$11),ROW($1:$11),4^8) 的第N小的值, 下拉时注意ROW(A1)的变化.

4. INDEX(A:A,SMALL(IF(LENB(A$1:A$11)=2*LEN(A$1:A$11),ROW($1:$11),4^8),ROW(A1)))&""

这个就简单了, 引用A列, 第M个值, 这里的M是第3步计算出来的.

5. 最后的&""

作用是屏蔽零值, 即当引用值是0的时候, 显示为空白.

Answer 2

Private Sub CommandButton1_Click()
Dim i, h As Integer
Dim str As String
h = Sheets(1).[a65536].End(xlUp).Row
For i = 1 To h
str = Sheets(1).Cells(i, 1).Value
If str Like "*0*" Or str Like "*1*" Or str Like "*2*" Or str Like "*3*" Or str Like "*4*" Or str Like "*5*" Or str Like "*6*" Or str Like "*7*" Or str Like "*8*" Or str Like "*9*" Then
Sheets(1).Cells(i, 1).Delete 3
i = i - 1
End If
Next
End Sub
用个按钮运行

追问

请问一下，这段代码该如何建立？谢谢

Answer 3

选中B列，CTRL+G，定位条件，空值，右键，删除，整行