繁体   English   中英

计算 Excel 表中填充了 VBA 数据的行

Counting Excel Table Rows that are populated with data on VBA

提示:本站收集StackOverFlow近2千万问答,支持中英文搜索,鼠标放在语句上弹窗显示对应的参考中文或英文, 本站还提供   中文繁体   英文版本   中英对照 版本,有任何建议请联系yoyou2525@163.com。

所以我目前在 excel 中工作一个表,我用三列(第 1 列、第 2 列和第 3 列)命名了 Table1。 我一直在尝试使用 VBA 计算表内已使用的行或填充的行,但没有运气。

示例 1:

UsedRows= Sheets ("Sheet1").ListObjects.("Table1[#Column 1]").UsedRange.ListRows.Count

示例 2(此仅返回所有可用行)

UsedRows= Sheets ("Sheet1").ListObjects.("Table1[#Column 1]").ListRows.Count

我要么想要填充的行数,要么想要未填充的行数。 两者中的任何一个都可以正常工作。 请记住,这是一个表格,因此 End(xlUp) 和 End(xlDown) 的工作方式略有不同。 我也尝试过这些,但我仍然得到可用的总行数或修改的单元格,这比我可用的多得多。

感谢任何发帖者的帮助。

2 个回复

听起来您可以使用CountA ,可能像这样:

Dim myColumn As ListColumn
Set myColumn = Sheets("Sheet1").ListObjects("Table1").ListColumns("Column 1")

Dim UsedRows As Long
UsedRows = Application.CountA(myColumn.DataBodyRange)
Debug.Print UsedRows

如果您在其他行中没有空白单元格。 3 不需要硬编码,这只是表中的列数。

Sub x()

Dim r As Range

Set r = ActiveSheet.ListObjects(1).DataBodyRange

With WorksheetFunction
    MsgBox .CountBlank(r) / 3                  'empty rows
    MsgBox (r.Rows.Count - .CountBlank(r) / 3) 'non-empty rows
End With

End Sub
1 在VBA Excel中计算行数

我正在VBA中以myFunction(x,y,z)的形式设计一个函数,其中z是一个表,并且x可以采用列标题的值。 作为函数的一部分,我需要找到z中的行数。 我对此有问题,因为我到处都建议使用length = z.Rows.Count ,但是当我尝试输出该值(例如,设置myFunction ...

2013-08-28 13:10:17 1 917   excel/ vba
2 计算行数(数据透视表 VBA)

我基本上有一些数据,我需要计算每行(名为“进程”)发生的次数(使用 VBA)。 我使用内置的 Excel 宏,并使用数据透视表来计算每行的实例数,但是,问题是当我运行宏时,它只返回进程总数。 这是我的代码: 如果我删除 End With 和 End Sub 之间的代码,我会得到一个数据透视表, ...

3 VBA:计算表中的行(列表对象)

我试图在Excel中编写一些VBA,它可以将表(列表对象)的名称作为参数并返回行数。 以下工作,但不允许我传入带有表名的字符串。 以下给出了错误: 所需对象 以下给出了错误: 对象变量或未设置块变量 我也尝试使用ListObjects,我是新 ...

4 子集数据表/计数行

当我使用以下代码按商店代码对数据表中的行进行计数时: 我得到14条商店代码,总行数为120,237,与DailyPRoduct中的行数相同,这太好了! 如果然后我获得了商店代码的唯一列表: 我得到21个商店代码,比上面的代码还要多,但实际上是正确的数字。 如果将商店代 ...

5 VBA Excel; Rows.Count不计算所有行

我正在尝试运行一个脚本,根据单元格的颜色将数字插入到单元格中; 如果颜色为红色,则插入#1。电子表格有380行,但脚本在第346行停止运行(插入1)。脚本如下: ...

6 计算 Excel 中表中的非空行

我有一个包含三列表格的工作表。 这需要分发给其他用户进行某些工作。 我需要计算用户输入的表中的行数。 用户可以自由输入任意数量的行,但为了进一步处理,工作表需要确保没有空行或至少获得多个非空行。 可能吗? 无法使用范围,因为一个用户可能有 5 行,而另一个用户只有两行。 function ROWS ...

2020-04-24 05:17:38 0 48   excel/ vba
7 Excel VBA的数据表?

我有成千上万的搜索结果显示在Excel VBA应用程序中。 但是似乎没有像数据表这样的组件。 我认为将搜索结果绑定到数千个excel行是我能做的最接近的事情。 VBA是否支持任何类似组件? 无论如何,我可以使用滚动条获得类似数据表的组件吗? ...

8 VBA EXCEL 创建一个包含所有填充单元格的数据透视表

我试图在 FILTERED 工作表中从 ALL_RECORDS 工作表中的所有非空单元格创建一个数据透视表,(填充的单元格每天都会不同),如下所示: 但是我不断收到错误 5(无效的过程调用或参数)即使我通过保存宏来做到这一点......每次宏运行时我都需要创建数据透视表。 任何帮助将不胜感激。 ...

10 将数据隐藏在行中-Excel VBA

我有三行。我想隐藏这些行中的数据并以不同的颜色显示这些行。我尝试搜索,但只找到了Entirerow.hidden,它也隐藏了行号。 是否可以仅隐藏行中的数据并使用其他颜色显示它? ...

暂无
暂无

声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.

 
粤ICP备18138465号  © 2020-2022 STACKOOM.COM