1、如何函数或VBA删除EXCEL表中任意一行两个或三个单元格为*号的所在行？（或列）

Question

a列b列c列d列e列f列10303690.264816#0.510.1344##560109380.690.250.57###

Answer 1

在单元格G1输入 =NOT(COUNTIF(D1:F1,"#"))
回车后再选中G1，鼠标移到其右下角，按着那个“+”往下拖到与A列数据齐
选中G列，点菜单的数据，筛选，自动筛选，点G1的下拉框，选择FALSE
点菜单的编辑，删除，整行。

Answer 2

同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码：Function dyy(xRng As Range) As StringDim i As IntegerDim tmpStr As StringFor i = 1 To xRng.Rows.CountIf Abs(xRng.Cells(i, 1)) < 1 ThentmpStr = Mid(xRng.Cells(i, 1), InStr(xRng.Cells(i, 1), ".") + 1, 1)If InStr(dyy, tmpStr) = 0 Then dyy = dyy & tmpStrEnd IfNext iEnd Function回到Excel，在E1输入 =dyy(A1:A16)，公式向右复制。