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

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

[a65536]end(xlup)row

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

就要调用COUNTA函数方便些

WorksheetFunctionCountA (Range("A:A"))

Form_Load()

在这里，窗体还没装载呢，data1还没初始化，所以就会出错

Data1RecordsetMoveLast

这个语句也不是一定要有的

只要

aa = Data1RecordsetRecordCount 就可以

Private Sub Form_Activate

aa = Data1RecordsetRecordCount

print aa

End Sub

你用的是哪个版本的VB呢？

VS2010的VB可以连接Access2010

你如果用的是VB60，那么最多只能连接Access97；打了SP6补丁，最多可以连接Access2003

先看看Access数据库的“另存为”，保存成“Access 97-2003格式(mdb)”，然后给VB60打上SP6补丁。然后再尝试连接数据库。

如果还是不能成功，那就改用 Windows API 的方式连接，或者改用VS2010的VB。

Sub 查找()

Dim arr, dic As Object, i%, RangA As Range

Set RangA = Range("g4", "i100")

arr = RangA

Set dic = CreateObject("ScriptingDictionary")

For i = 1 To UBound(arr)

If dicexists(arr(i, 2)) Then

dic(arr(i, 2)) = dicItem(arr(i, 2)) & "、" & arr(i, 3)

Else

dic(arr(i, 2)) = dicCount + 1 & "|" & arr(i, 2) & "|=SUMIF(H:H,B" & dicCount + 4 & ",I:I)|" & arr(i, 3)

End If

Next i

dicRemove ""

Set RangA = Range("a4")

RangAOffset(0, 0)Resize(dicCount, 1) = ApplicationTranspose(dicItems)

ApplicationDisplayAlerts = False

RangAOffset(0, 0)Resize(dicCount, 1)TextToColumns Other:=True, OtherChar:="|"

ApplicationDisplayAlerts = True

Set dic = Nothing

End Sub

RecordSet

里有加入新记录的方法或者你用

SQL语句

也可以

Insert

into

[表]

values('字段一值','字段二值')

至于得到记录数

RecordSet

有

Count

属性可以得到当前记录数

VB好久没用了,你自己试试我说的方法是

ADO

访问的,其他的也类似

以上就是关于怎么用vba在excel中统计每列有多少行数全部的内容，包括:怎么用vba在excel中统计每列有多少行数、关于VB中数据库记录个数统计、ACCESS用VBA检索统计信息。或者用VB作界面，ACCESS做后台数据库也可以。求会编程的大神发神力，跪求！等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！