如何使用VBA统计Excel表格列数？代码行计数正常列计数错误怎么解决

问题原因 #

• VBA中将连续Excel区域赋值给变体变量时，得到的始终是下标从1开始的二维数组，数组第一维对应行维度，第二维对应列维度
• UBound函数如果不指定第二个参数，默认返回的是第一维的上界
• 你的elements是单列区域，二维数组第一维上界刚好等于行数，所以结果正确；housetypes是单行区域，第一维上界固定为1，所以无法返回正确列数

解决方法 #

方案1：指定UBound的维度参数 #

查询二维数组第二维的上界即可获取正确列数，将对应代码行修改为：

NumColumnsHousetypes = UBound(housetypes, 2)

方案2：直接调用Range原生属性统计（更推荐） #

无需把区域转成数组，直接调用Range的行、列统计属性，不管区域是单行、单列还是多行列都能直接返回正确值，逻辑更直观。修改后的完整代码如下：

Dim housetypes As Range, elements As Range, NumRowsElements As Long, NumColumnsHousetypes As Long

Set elements = Range("c10:c19")
Set housetypes = Range("d9:n9")

NumRowsElements = elements.Rows.Count
NumColumnsHousetypes = housetypes.Columns.Count

MsgBox ("NumRowsElements is " & NumRowsElements & " NumColumnsHousetypes is " & NumColumnsHousetypes)

内容的提问来源于stack exchange，提问作者Geoff Kendall