怎么用vba在excel中统计每列有多少行数

A列最底端有数据的单元格

[a65536]end(xlup)row

如果是统计每列有多少非空单元格

就要调用COUNTA函数方便些

WorksheetFunctionCountA (Range("A:A"))

利用程序函数applicantionindex

例如：

1、applicantionindex(arr,0,2)——提取arr的第二列

2、applicantionindex(arr,3,0)——提取arr的第三行

iRows=activesheetusedrangerowscount

iColumns=activesheetusedrangeColumnscount

'如果表格前面的几行或几列可能是空的，需要获得最下面的行数和最右面的列数：

with activesheetusedrange

iEndRow=rowscount+row-1

iEndColumn=Columnscount+column-1

end with

在对应工作表中粘贴以下代码（不要新建模块！！！）

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If (TargetColumn >= 2 Or TargetColumn <= 8) And TargetRow = 1 Then   '选定B1:H1时

    Range("A1") = TargetRow    'A1显示选定的行数

    Range("A2") = TargetColumn    'A2显示选定的列数

End If

End Sub

给你个列子 在 C列找 包含 “宁波” 的单元格 ，如果 是完全匹配 XLPART 改成XLWHOLE

Sub 查找()

Set findcell = Columns("c")Find("宁波", LookAt:=xlPart)

If Not findcell Is Nothing Then

MsgBox findcellRow

Else

MsgBox "没找到符合条件的单元格"

End If

End Sub

以上就是关于怎么用vba在excel中统计每列有多少行数全部的内容，包括:怎么用vba在excel中统计每列有多少行数、VBA数组怎么提取出某一行或某列、如何再VBA里获取当前工作表里数据的行数和列数等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！