所以我目前在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)的工作方式略有不同。 我也尝试过这些,但是我仍然可以获得可用的总行数或被修改的单元格,这远远超过了可用的行数。

感谢您在高级帖子发布者中的帮助。

#1楼 票数: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

#2楼 票数:0

如果其他行中没有空白单元格。 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

  ask by Daume translate from so

未解决问题?本站智能推荐:

2回复

VBA工作表(名称)。计算在Excel中不一致地工作

我有一个接受用户输入的文本框,该输入由VBA中的许多自定义函数引用。 我希望函数每次在文本框中的输入更改时都重新计算。 文本框输入表示比例为1:24的比例,该比例在功能中使用并转换为小数部分。 该代码最初运行良好,但是当我重新打开它时停止了工作。 如果我在计算后添加一个消息框。 使用
2回复

如何使用VBA代码自动正确填充Excel表数据范围

我想编写VBA代码,以根据给定的日期自动将Excel表范围数据动态填充到右侧列。 例如。 如果我在工作表中提供“ Sep-19”的日期,则应自动将表格范围自动填充到包含Sept-19数据的右侧。 我正在使用Excel 2016版本。 下表是数据: 我已经尝试了一些代码,下面是它的
6回复

如何计算Excel工作表中的数据行?

我试图计算电子表格中的行数,这些行在几列中包含至少一个非空值:即 该公式将等于3,因为行1,2和3在至少一列中具有文本值。 类似地,如果第1行在每列(A,B和C)中都有文本值,则将其计为1。
2回复

通过VBA用Excel数据填充WordCombobox

我是VBA的新手,所以我为此苦了几天。 我在Word中有一个带有联系人的组合框,我也有一个Excel文件(contacts.xls),其中包含一列(所有联系人的名称)。 当我打开Word文档时,宏必须用Excel文件中的所有名称填充组合框。 是否可以给我发送Word 2007的工作示例
1回复

Excel使用VBA迭代嵌套的数据透视表行字段

我有一个数据透视表,我需要迭代嵌套的RowFields: 我如何解析嵌套的RowFields? 到目前为止我的代码是: 例如,我需要检索与品牌“AAA”相关的所有嵌套商品代码以及相关的Nsum值(这不起作用..):
1回复

使用VBA向Excel工作表添加包含数据的新行

我正在向表中添加一个新行,但想要将数据添加到我刚刚添加的那一行。 我在想这样的事情,但不确定如何将每列数据添加到该新行。 我的表有 4 列名为“store”“emp#”“date”和“amt”。 我将在每一列中放入特定数据。 我简化了代码,因为宏还有很多,但只是停留在这部分。 谢谢你的帮助。
1回复

|如何仅打印范围为邮件的填充行|excel|vba|

由于数据是使用SQL从数据库生成的 我想显示一定范围内填充的某些数据行 由于是从数据库动态获取数据,因此每次生成时数据可能会有所不同 示例: -以下是从数据库中获取的数据可能包含一些为空的行 [数据] [1]: https : //i.stack.imgur.com/ysV64.
2回复

从Word文档表填充Excel文件-VBA

我对 VBA 相当陌生,并试图根据 Word 文档填充预先存在的 excel 文档。 Word 文档将包含三个表格,某些单元格将成为 Excel 列。 这个想法是,每天都有新的产品信息表进来,并且需要附加 Excel 表。 我首先查看了之前提出的这个问题。 我是否创建启用宏的 Excel 工作表并