Sub xx()Dim iFor i = [l65536].End(3).Row To 1 Step -1If Cells(i, "l").Text = "#N/A" Then Rows(i).DeleteNextEnd Sub
最简单的办法不是宏，而是自动筛选，找#N/A然后直接删除行就行。
