Excel 怎麽樣用VBA語句刪除空值及零所在的列

以下代碼能滿足要求：

For?i?=?UsedRange.Columns.Count?+?UsedRange.Column?-?1?To?1?Step?-1

If?Application.CountIf(Columns(i),?0)?=?Application.CountA(Columns(i))?Then?Columns(i).Delete

Next

End?Sub