以下代碼能滿足要求:
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