`

用VBA得到EXCEL表格中的行数和列数

    博客分类:
  • vb
阅读更多

每种方法中上面的是Excel的行数,下面的是Excel的列数。

方法1:
  ActiveSheet.UsedRange.Rows.Count   
  ActiveSheet.UsedRange.Columns.Count
       缺点:有时可能会比实际数大一些,原因是如果你把最后几行(列)数据清除后(非整行或整列删除),用这个命令仍返回未清除前的值。就是说现在虽然是空的,但是你曾经用过也算你的。

方法2:
  ActiveSheet.Range("A65535").End(xlUp).Row
  ActiveSheet.Range("IV1").End(xlToLeft).Column
  可以简写为:
  ActiveSheet.[A65536].End(xlUp).Row
  ActiveSheet.[IV1].End(xlToLeft).Column
      缺点:只能计算出一列(行)的最后一个单元格所在的行(列)数。本例是只返回A列最后一个单元格所占的行数。

方法3:
  ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
  ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Column
  缺点:在工作表进行对删除或清除操作时也会变得比实际情况大。

方法4:
  ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
  ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
  缺点:在工作表进行对删除或清除操作时也会变得比实际情况大。

方法5:
  Application.CountA(ActiveSheet.Range("A:A"))
  Application.CountA(ActiveSheet.Range("1:1"))
  只能统计一列(行)的实际使用情况,得到的不一定是最后一行(列)的位置。方法2的数值比此方法大时,说明在A列的数据间有空白未填写的单元格。

方法6:
  ActiveSheet.Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
  ActiveSheet.Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
  效果同方法2
以上方法中比较常用的是方法1和方法2。

 

VB中方法类似,AvtiveSheet 改为 相应的Sheet

VB中如何取到Sheet?

Dim xlApp
Dim xlBook
Dim xlSheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.WorkBooks.Open("文件目录")
Set xlSheet = xlBook.WorkSheets("Sheet名称")

'这样就得到sheet对象了哦
'使用完别忘了关闭哦

'如果文件修改了,先保存,没有修改文件不用
xlBook.save
xlBook.Close '关闭当前的excel
xlApp.Quit'关闭当前excel程序

 

 

 

分享到:
评论

相关推荐

    vba_获取使用行数和列数

    本文将详细介绍几种在VBA中获取Excel工作表使用的行数和列数的方法,并分析它们各自的优缺点。 ### 方法一:通过`UsedRange`属性获取行数和列数 最直观的方法是利用`UsedRange`属性来获取已使用范围的信息: ```...

    Excel VBA根据行数多少自动调整表格格式_Format.bas

    根据行数多少可以自动调整格式,主要调整内容:1,列宽;2,网格线。

    excel对象清理工具/vba清理Excel对象

    列出excel工作簿里各个表的行数列数 列出Excel工作簿里各个表的对象数量 列出注释的数量 删除多余对象前自动备份文件 目前删除几万个还是OK的(测试3-4万个对象处理需要2分钟左右),几十万个就另外手工处理吧,直接...

    得到EXCEL行、列数的几种方法

    在日常工作中,我们经常需要处理Excel电子表格,并且有时候会遇到需要获取当前工作表的最大行数和最大列数的情况。这通常是为了进行数据验证或者用于VBA编程自动化处理。本文将详细介绍六种不同的方法来获取Excel...

    利用VBA实现Excel电子表格自动分页统计优质资料.doc

    本文档主要介绍了如何利用VBA(Visual Basic for Applications)在Excel中实现电子表格的自动分页统计,特别是在处理工资报表等大量数据时提高统计效率和准确性的方法。以下是具体步骤和相关知识点: 1. **VBA介绍*...

    基于VBA的Excel测量程序开发技术.pdf

    而`Cells`对象则通过指定行数和列数来控制单元格。需要注意的是,`Range`不允许输入数值作为参数,而`Cells`则可以。 - **Index函数**:`Index`函数能够返回表格或区域中的数值或数值引用,有两种形式:数组形式和...

    excel通过VBA自动填充公式

    这段代码通过查找第一行中最后一个含有数据的单元格确定有效列数,然后遍历这些列来找出最大的行数。 ##### 4. 自动填充公式 最终,通过调用`myAutoFill`函数实现了公式的自动填充。该函数接受三个参数:起始单元格...

    EXCEL利用VBA实现自动分页汇总

    首先,我们需要定义一些变量来存储用户输入的参数,例如每页的行数、起始行数、起始列数和最终列数。这些变量将在后续的代码中使用。 在主程序中,我们使用了一个Do While循环来实现自动分页汇总。循环的条件是当前...

    在EXCEL中用VBA处理WORD表格常规属性.pdf

    要遍历Word文档中的每个表格并获取其行数和列数,可以使用循环配合`Rows`和`Columns`属性。例如,`dkDOC.Tables(g).Rows.Count`返回第`g`个表格的行数,而`dkDOC.Tables(g).Columns.Count`则返回列数。这些方法同样...

    Excel表格数据处理参考.pdf

    在本资源中,我们将学习如何选择数据范围,并如何输入行数和列数。 知识点8: 存放处理结果 存放处理结果是数据处理的最后一步。在本资源中,我们将学习如何输入存放处理结果的sheet名字,例如“数据处理结果”,并...

    EXCEL VBA常用技巧

    - **Offset属性**:偏移指定行数和列数的单元格,如 `Range("A1").Offset(1, 1)` 会指向B2单元格。 - **Resize属性**:改变选定区域的大小,例如 `Range("A1").Resize(2, 3)` 将A1扩展为一个2行3列的区域。 - **...

    VBA_Excel自定义函数大全

    - **说明**:此函数可以获取Excel表格中最后一行的行号。 - **应用场景**:适用于动态确定数据范围的脚本编写。 26. **函数作用:判断是否连接在线** - **说明**:此函数可以检测计算机是否连接到互联网。 - **...

    word2010批量修改表格内指定单元格内容(VBA)

    本文将详细介绍如何使用VBA批量修改Word2010中表格内指定单元格的内容。 #### 一、需求背景 假设我们有一份Word文档,其中包含多个表格,每个表格都代表了一个测试用例的设计单。每个测试用例的设计单内,步骤的...

    几个Excel vba示例文件. 包括行列转置,表格数据到数组,一维数组转二维数组,单列转多列等

    首先,确定二维数组的行数和列数,然后通过循环将一维数组的元素分配到新数组中。这种方法适用于从单列数据构建矩阵或表格的情况。 4. **单列转多列**: 如果有一列数据需要横向扩展为多列,可以通过计算目标列数...

    excel表格功能.pdf

    1. **插入表格**:在Excel中,用户可以通过点击“插入”选项卡,然后选择“表格”,来快速创建指定行数和列数的表格。与Word不同,Excel的表格主要用于数据分析和计算。 2. **数据输入与编辑**:在表格内输入数据后...

    Excel自动分列VBA程序.docx

    2. **MAXCOLUMN**: 定义了Excel表格中使用的最大列数。 3. **FirstRow**: 表示是否将第一行视为标题行而不参与分割操作。 4. **BlankColumn**: 是否在每次分割后插入空白列以区分不同的数据块。 5. **CutCount**: 暂...

    解析excel表格2003/2007

    本文将深入解析Excel表格2003和2007的主要特性和功能,帮助用户更好地理解和使用。 Excel 2003是微软Office套件中的一个关键组件,它提供了强大的电子表格功能。这个版本支持最多65,536行和256列,足以满足大部分...

    excel怎么把多列内容合并到一列.docx

    代码中首先获取了原始数据区域的行数和列数,然后使用两个数组来存储数据。接着,使用两个循环来遍历原始数据区域,并将非空单元格的内容合并到一个数组中。最后,将合并后的数组输出到 F 列中。 知识点总结 1. ...

    VB读取Excel内容写到表格

    在VB(Visual Basic)编程环境中,我们经常需要处理与Excel数据的交互,比如从Excel文件中读取数据并将其写入到表格中。这在数据分析、报表生成或自动化任务中非常常见。本教程将详细讲解如何使用VB实现这一功能。 ...

Global site tag (gtag.js) - Google Analytics