當前位置:成語大全網 - 新華字典 - Excel 怎麽樣用VBA語句刪除空值及零所在的列

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

以下代碼能滿足要求:

Sub?刪除空列()

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