_在本文中，我们将学习如何在Microsoft Excel中通过VBA删除空列。我们将删除完全为空的列，这意味着如果整个列中没有数据，则该数据。

让我们举一个例子来理解：

我们具有范围A1：I21中的数据，其中A列包含名称，B列保留空白，C列包含街道地址，D列城市，E列保留空白，F列包含区域，G列保留空白，H列包含国家名称，第一栏包含电话号码。

我们要从数据中删除空白列，请遵循以下给定的步骤和代码：打开VBE页面并按Alt + F11键。插入模块以编写代码*编写以下代码：

image 1

Sub Delete_Columns()

Dim C As Integer

C = ActiveSheet.Cells.SpecialCells(xlLastCell).Column

Do Until C = 0

If WorksheetFunction.CountA(Columns(C)) = 0 Then

Columns(C).Delete

End If

C = C - 1

Loop

End Sub

代码说明：

首先，我们定义了所有变量。然后是空白列的范围，然后我们使用“直到循环”来删除空白列。

并且，现在我们定义了空白列和删除命令。

要运行代码，请按键盘上的F5键，*所有空白列都将被删除。

image 2

这样，我们可以通过Microsoft Excel中的VBA删除空列。

image 3

如果您喜欢我们的博客，请在Facebook上与您的朋友分享。您也可以在Twitter和Facebook上关注我们。

image 48

我们很高兴收到您的来信，请让我们知道我们如何改进，补充或创新我们的工作，并为您做得更好。写信给我们[email protected]