Table of contents
当你有一个只有几列的小数据表时，你可以很容易地计算它们。 但对于一个大的数据表，要无误地计算所有的列是相当困难的。 此外，有些列可能包含数据，而有些列可能完全是空白的。 因此，在一个大的数据表中，计算所有有数据的列是相当困难的。 在这篇文章中，你将学习两种计算方法在Excel中使用VBA轻松实现带有数据的列。
下载实践工作手册
你可以从下面的链接中下载Excel文件，并随着它进行练习。
用数据计算列数.xlsm
在Excel中使用VBA计算数据列的2种方法
1.使用简单的VBA代码计算工作表中所有带数据的列
我们可以在下面的数据表中看到这3列。 现在我们将使用VBA代码来确定单个Excel工作表中使用的列数。
❶ 首先，按 ALT + F11 来打开VBA编辑器。
❷ 之后，从下面创建一个新的模块 插入> 模块。
然后复制以下VBA脚本。
Public Sub CountUsedColumns() With Sheet1.UsedRange MsgBox "有数据的列数是：" & .Columns.Count End With End Sub ❹ 然后回到VBA编辑器中，按 CTRL + V 来粘贴它。
❺ 现在按以下步骤保存VBA代码 CTRL + S 按钮。
❻ 要运行VBA代码，请转到 开发商 选项卡，并点击 巨集 或者，只需按下 F5 钥匙。
ǞǞǞ 宏观 对话框会出现。
❼ 你所需要做的是，点击 运行 按钮。
现在你会看到一个对话框出现了，它说有数据的列数是3。
阅读更多。 如何计算Excel中的列数（3种简单方法）
2.使用Excel VBA代码计算给定范围内的所有列的数据
下面的VBA代码将使你能够计算在一个给定范围内的所有数据列。
要使用该代码。
❶ 首先，按以下步骤打开VBA编辑器 ALT + F11。
❷然后转到 插入> 模块 来创建一个新的模块。
然后复制下面的VBA脚本。
Sub CountColumnsInARange() Dim xRng As Worksheet Set xRng = Worksheets("Sheet1") MsgBox "Total column: " & xRng.Range("B5:D5") .Columns.Count End Sub ❹ 回到VBA编辑器，按 CTRL + V 来粘贴它。
❺ 现在按以下键来保存代码 CTRL + S。
❻ 转到 开发商 选项卡，并点击 巨集 以打开 宏观 窗口。
或者，只需按下 F5 键，以利用 宏观 对话框。
❼ 从对话框中，选择函数名称 栏目中的列数（CountColumnsInARange 和打 运行 按钮。
最后，会出现一个小的对话框，说总的列数是3。
阅读更多。 如何在Excel中计算VLOOKUP的列数（2种方法）
在Excel中计算列数的更多VBA代码
1.使用VBA的Range.End方法来返回最后使用的列号
要获得Excel电子表格中最后使用的列号。
❶ 首先，按以下步骤打开VBA编辑器 ALT + F11。
❷然后转到 插入> 模块 来创建一个新的模块。
❷复制以下内容 VBA 代码。
Option Explicit Sub LastColumn() Dim xRng As Integer xRng = Range("B4").End(xlToRight).Column MsgBox xRng End Sub ❹ 粘贴并保存VBA编辑器中的代码。
❺ 按 F5 键来运行上述代码。
你会在一个弹出的对话框中得到最后一列的数字，如下图所示。
阅读更多。 如何在Excel中计算列数直至达到数值
2.使用Range.Find方法来返回Excel中最后使用的列号
如果你正在寻找VBA代码来返回最后使用的列号，那么请遵循以下步骤。
❶ 首先，按 ALT + F11 来打开VBA编辑器。
❷ 之后，从下面创建一个新的模块 插入> 模块。
❸复制以下VBA代码。
Sub LastUsedColumnNo() Dim xRng As Long xRng = Cells.Find(What:="*", _ After:=Range("B4"), _ LookAt:=xlPart, _ LookIn:=xlFormulas, _ SearchOrder:=xlByColumns, _ SearchDirection:=xlPrevious, _ MatchCase:=False).Column MsgBox "最后使用列号: " & xRng End Sub ❹ 然后回到VBA编辑器中，按 CTRL + V 来粘贴它。
❺ 现在按以下步骤保存VBA代码 CTRL + S 按钮。
现在，按 F5 键来运行上述代码。
你会在一个弹出的对话框中得到最后使用的列号，如下图所示。
需要记住的事情
- 新闻 ALT + F11 来打开VBA编辑器。
- 你可以按 ALT + F8 来利用 巨集 对话框。
- 要运行VBA代码，按 F5.
总结
综上所述，我们讨论了在Excel中使用VBA计算数据列的2种方法。 建议你下载本文所附的练习工作簿，用它来练习所有的方法。 不要犹豫，在下面的评论区提出任何问题。 我们会尽快回复所有的相关问题。 请访问我们的网站 ǞǞǞ 以探索更多。
