使用VBA查找Excel表单中非空白列的数量

Question

如何使用VBA查找Excel表单中使用的列的数量？

Dim lastRow As Long 
lastRow = Sheet1.Range("A" & Rows.Count).End(xlUp).Row 
MsgBox lastRow 

使用上面的VBA我能够找到行数。但是，如何查找给定的excel文件中的列数？

Answer 1

您的示例代码获取当前列的最后一个非空白单元格的行号，并可以被重写如下：

Dim lastRow As Long 
lastRow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row 
MsgBox lastRow 

它是那么容易看到，等效代码来获取当前行中最后一个非空白单元格的列数为：

Dim lastColumn As Long 
lastColumn = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column 
MsgBox lastColumn 

这也可能是你有帮助：

With Sheet1.UsedRange 
    MsgBox .Rows.Count & " rows and " & .Columns.Count & " columns" 
End With 

但请注意，如果列A和/或行1是空白的，那么这将不会产生与上述其他示例相同的结果。有关更多信息，请阅读UsedRange属性。

Answer 2

让 - 弗朗索瓦科贝特的答案是完美的。为了详尽，我只想补充与一些限制你也可以使用UsedRange.Columns.Count或UsedRange.Rows.Count。
问题是，在删除行/列时（至少在您重新打开工作簿之前），UsedRange并不总是被更新。

Answer 3

可能您在columns.count之前的某处忘记了sheet1，或者它会计算activesheet列而不是sheet1的列。

此外，不应该是xltoleft而不是xltoright？ （确定这里很晚，但我认为我知道我的权利从左）我检查了它，你必须写xltoleft。

Dim lastColumn As Long 
lastColumn = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column 
MsgBox lastColumn 

结果示于下面的代码为信（H，I等：

lastColumn = Sheet1.Cells(1, sheet1.Columns.Count).End(xlToleft).Column 

Answer 4

结果在下面的代码作为列号（8,9等）中所示。）：

Dim lastColumn As Long 
lastColumn = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column 
MsgBox Split(Sheet1.Cells(1, lastColumn).Address, "$")(1) 

Answer 5

这就是答案：

numCols = objSheet.UsedRange.Columns.count 

Documentation of the UsedRange property