壹般條件是:只針對A列的數據，不刪除B列之後的其他列..
最後他說:但是如果A2只有A，就把整行刪掉。
這是壹個矛盾。
還有，我不明白。是否要刪除數據或單元格？
公共子行()
Dim H壹樣長，I壹樣長，a，b
H =範圍(“A65536”)。結束(xlUp)。排
A = Array("A "，" A "，" A "，" @ "，" # "，"")'您可以在這裏添加其他字符。
b = " | " & ampJoin(a，" | " & amp；"|"
對於i = H到1步-1
If InStr(b，" | " & amp細胞(I，1)& amp；“|”)然後
行(I)。刪除
如果…就會結束
然後
末端接頭