Question

Excel如何利用VBA的宏功能删除空行和指定字符的行？

我的数据源是网站复制过来的，有很多的无用单个字母或是符号，想利用VBA的功能实现一键删除。

我想通过excel的VBA功能实现以下功能，请大神帮写一下简单好用的VBA的代码

只针对A列的数据
第一步删除空行。
第二步删除指定字符的行，指定字符比如单个字母大写A，或是小写a，或是特殊符号，比如#，@之类的行，但有个前提是不要删除单元格里内容包含A，a，或是#，@的。
举个例子，A2的内容是apple，这个就不能删除了。但是如果A2只是a，删除整行。

Answer 1

没看明白，
总条件是：只针对A列的数据，不要删B列之后的其他列。
最后又说：但是如果A2只是a，删除整行。
这是矛盾的
还有，没说明白，是删除数据，还是删除单元格？
Public Sub RowDele()
Dim H As Long, i As Long, a, b
H = Range("A65536").End(xlUp).Row
a = Array("A", "a", "@", "#", "") '可以在这里增加其他字符
b = "|" & Join(a, "|") & "|"
For i = H To 1 Step -1
If InStr(b, "|" & Cells(i, 1) & "|") Then
Rows(i).Delete
End If
Next
End Sub

Answer 2

这个用vba来处理
sub demon()
dim x as long
dim r as long
r=cells(rows.count, 1).end(xlup).row
for x = r to 1
if application.counta(rows(x))=0 then
rows(x).delete
elseif application.countif(rows(x), "A")>0 then
rows(x). delete
end if
next x

end sub