Excel 中 vbA 获得有效行数的方法

最新推荐文章于 2023-09-26 16:34:03 发布
最新推荐文章于 2023-09-26 16:34:03 发布
阅读量2.3w 收藏 14
点赞数 1
分类专栏： asp 文章标签： vba excel 编程
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/precipitant/article/details/3238802
版权

    Excel 有 65536行 256列

    但是我们可能只用了其中的部分行。在实际情况下，我们做VBA编程的时候可能希望获得 实际使用的有效行数。

    下面是用 vba 获得 有效行数的方法：

   

    Range("a1").CurrentRegion.SpecialCells(xlCellTypeLastCell).Row
    ActiveSheet.Range("A65536").End(-4162).Row
    ActiveSheet.UsedRange.Rows.Count

precipitant
关注
  • 1
    点赞
  • 踩
  • 14
    收藏
    觉得还不错? 一键收藏
  • 2
    评论
专栏目录
VBA获取EXCEL中的行数和列数.pdf
09-29
excel VBA获取EXCEL中的行数和列数.
【VBA研究】用VBA取得EXCEL有效行列数方法比较
热门推荐
驽马十驾 才定不舍
05-13 4万+
作者：iamlaosong 我常用下面方式取得有效行数： maxrow=sheets(1).[A65536].End(xlUp).Row 实际使用中发现这种方法存在2个问题: 1、高低版本不兼容，2007版最大行数增加以后，就不能用65536了，而要用1048576，即 maxrow = sheets(1).[A1048576].End(xlUp).Row 2、当最后一行不为空时，用这
Excel·VBA单元格区域获取指定行列函数
hhhhh_51的博客
06-11 7172
office 365新增函数《CHOOSEROWS 函数》和《CHOOSECOLS 函数》可以获取单元格区域指定行、列，并返回一个单元格区域对于没有office 365又想使用这个函数，就只能自己写VBA代码自定义函数了num_arr参数：正数为行从上往下、列从左往右，1为最上/最左；负数则相反，-1为最下/最右，依次类推 举例...
VBA获取数据区域的行列数
weixin_43847773的博客
10-20 6583
VBA获取数据区域的行列数方法1方法2 方法1 ActiveSheet.UsedRange.Rows.Count ActiveSheet.UsedRange.Columns.Count 缺点：有时可能会比实际数大一些，原因是如果你把最后几行（列） 数据 清除后（非整行或整列删除），用这个命令仍返回未清除前的值。就是说现在虽然是空的，但是你曾经用过也算你的。 方法2 ActiveSheet.Range("A65535").End(xlUp).Row ActiveSheet.Range("IV1").E
VBA 第11课 数组,取特定行数据
王小涛_同學的专栏
10-05 3529
Sub d1() Dim arr, arr1(1 To 1000, 4) arr = Range("a1:d10") Dim x, k For x = 1 To UBound(arr) If arr(x, 1) = "B" Then k = k + 1 arr1(k, 1) = arr(x, 1) arr1(k, 2) = arr(x, 2)
【VBA研究】用VBA取得EXCEL任意列有效行数
驽马十驾 才定不舍
07-21 1万+
作者：iamlaosong 用VBA对Excel文件进行处理的时候，关键字段的列号编程时往往是不知道的，需要通过参数设定才能知道，因此，我们编程的时候，就不能用这样的语句取有效行数： lineno = [B65536].End(xlUp).Row  上述语句中的列名“B”如果是变量，可以用字符串连接的方式实现，即：     pos_ems = "C"     lineno = Range
【VBA研究】用VBA取得EXCEL随意列有效行数
weixin_33871366的博客
06-10 241
作者：iamlaosong 用VBA对Excel文件进行处理的时候，keyword段的列号编程时往往是不知道的。须要通过參数设定才干知道，因此。我们编程的时候，就不能用这种语句取有效行数：     lineno = [B65536].End(xlUp).Row          '从下至上找有效行数 上述语句中的列名“B”假设是变量。能够用字符串连接的方式实现，即：     pos...
VBA 有效数据的行列数
最新发布
weixin_44819434的博客
09-26 1305
注意方法1和方法2，所定位的单元格的行列上是要有数据的，否则所统计出来的数据不准确。
QTP如何获取本地Excel文件的行和列
meiyuan1304的专栏
08-02 2200
<br />代码如下：<br />Set  excel=CreateObject("Excel.Application")<br />set openexcel=excel.Workbooks.Open("这里输入EXCEL路径")<br />rowcount =openexcel.ActiveSheet.UsedRange.Rows.Count<br />Columnscount =openexcel.ActiveSheet.UsedRange.Columns.count<br />print " 行数：
如何用VB写一段代码获得Excel文件中紀錄行的行数和列数？
slove_cao的专栏
11-13 8583
如何用VB写一段代码获得Excel文件中已用部分的行数和列数？ 楼主ervinlj（阳光使者）2002-09-13 14:36:04 在 VB / 基础类 提问 各位网友，大家好啊：     我想用VB写这样一段代码，代码的功能是获得在Excel文件中已用部分的行数和列数，应该怎么来写呢？     我自己先用VB写了这样一段很简单的代码：     Dim   obj1   As  
Excel VBA根据行数多少自动调整表格格式_Format.bas
06-13
根据行数多少可以自动调整格式，主要调整内容：1，列宽；2，网格线。
excel-split:使用行数vba脚本划分excel
04-07
使用行数划分excel vba脚本######################################### ########您可以通过helper列来做到这一点： 1st-在左侧插入一列（即A列）。 2nd-填充从1到3000的系列中的新列（或无论您有多少行）。 第三-...
excel对象清理工具/vba清理Excel对象
04-16
列出excel工作簿里各个表的行数列数 列出Excel工作簿里各个表的对象数量 列出注释的数量 删除多余对象前自动备份文件 目前删除几万个还是OK的（测试3-4万个对象处理需要2分钟左右），几十万个就另外手工处理吧，直接...
vba函数 ：判断excel工作簿数据行数
09-23
程序功能： 判断excel文件中某个工作簿中第一列的最后一行数据的行数（假设第一行有数据，以后每行数据为连续的，无空值。）
excel中161个VBA_自定义函数超级实用
03-28
函数作用:在Excel中加入一个量度尺(以寸为单位)...109 '108.函数作用:取得一个短文件名的长文件名.............111 '109.函数作用:取得临时文件名.........................112 '110.函数作用:等用Shell调用的程序...
VB ADO常用方法
别人笑我太疯癫，我笑他人看不穿
10-04 2377
 VB使用ADODB操作数据库的常用方法ADO常用方法下面是我所掌握的使用ADO对数据库操作的一些常用方法，主要是提供给初学者作为参考，有不对的地方请指正。如有补充不胜荣幸准备工作========Dim conn As New ADODB.Connection 创建一个 Connection 实例，在这里使用New等于将Dim和Set合并为一段代码执行Dim rs As AD
excel宏教程_EXCEL — 实用的VBA
weixin_39727863的博客
10-25 506
虽说现在VBA真的是毫无排面，但只要会启用「宏」，收藏几个复制粘贴就能用的代码，作为一名办公室民工，总有用得上的时候。所以这里记录几个之前工作中高频使用的小小小脚本。下面提到的工作簿，即单个的 .xlsx 或 .xls 文件，工作表就是文件里的 sheet 。1、自定义函数自定义一个 Countcolor() 函数，统计区域内指定颜色的单元格个数。无情，知乎的代码块提供了几十种语言，就是没有VB…...
【VBA研究】版本无关的取EXCEL有效行列数方法
驽马十驾 才定不舍
08-08 1859
iamlaosong文 常用下面方式取得Excel工作表的有效行数，前者是2003版，后者是2007版： （1）MaxRow= sheets(1).[A65536].End(xlUp).Row （2）MaxRow= sheets(1).[A1048576].End(xlUp).Row 1、在不知道版本的情况下，一种方法是判断文件版本或者文件扩展名，...
VBA 获取最大行数和最大列数
logo_28的博客
01-12 2万+
在EXCEL中,对数据进行定位操作,必然要用到数据区域的最大行和最大列,代码如下: columnmax = Range("IV1").End(xlToLeft).Column '取得1行的最大列数 columnmax =cells(i,columns.count).end(xltoletf).column 'i行的最大列数 rowmax = Sheet1.Range(...
excel2010 vba 根据单元格实际行数列数设置格式
09-14
在Excel 2010中，可以使用VBA编程语言根据单元格的实际行数和列数来设置格式。下面是一个示例代码： ``` Sub 格式设置() Dim 行数 As Integer Dim 列数 As Integer ' 获取选中单元格的实际行数和列数 行数 = Selection.Rows.Count 列数 = Selection.Columns.Count ' 根据行数设置字体样式 If 行数 > 1 Then Selection.Font.Bold = True End If ' 根据列数设置背景颜色 If 列数 > 1 Then Selection.Interior.Color = RGB(255, 255, 0) ' 设置为黄色 End If End Sub ``` 通过上述代码，你可以通过选中单元格来获取其实际行数和列数，并根据这些行数和列数来设置相应的格式。在示例代码中，如果选中单元格的行数大于1，则将文本的字体样式设置为粗体；如果选中单元格的列数大于1，则将单元格的背景颜色设置为黄色。 你可以将上述代码复制到Excel VBA编辑器中，然后在运行时选中相应的单元格进行测试。记得在运行代码之前先选中目标单元格，这样代码才能正确获取其行数和列数，并进行格式设置。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 2
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值