【VBA研究】用VBA取得EXCEL任意列有效行数

VBA_Excel 专栏收录该内容
114 篇文章 17 订阅

作者:iamlaosong

用VBA对Excel文件进行处理的时候,关键字段的列号编程时往往是不知道的,需要通过参数设定才能知道,因此,我们编程的时候,就不能用这样的语句取有效行数:

    lineno = [B65536].End(xlUp).Row          '从下至上找有效行数

上述语句中的列名“B”如果是变量,可以用字符串连接的方式实现,即:

    pos_ems = "C"
    lineno = Range(pos_ems & "65536").End(xlUp).Row

如果给的是列号,则用下列语句:

   pos_ems = 3
   lineno = Cells(65536, pos_ems).End(xlUp).Row

如果该列所有需要处理的单元格都有值,也可以用下列语句:

    lineno = [B1].End(xlDown).Row          '从找有效行数

或者
    ineno = Cells(pos_fst, pos_ems).End(xlDown).Row
语句中的pos_fst是有效数据的起始行,这个语句的好处是不用管工作表最大行数是65536还是1048576,缺点是如果有效数据只有一行或者该列有空值的话,将取不到有效行数,这也是这种方法不常用的主要原因。

上述语句中的变量pos_ems可以读取单元格的值,以便面对不同文件时随时设置:

    pos_fst = Cells(2, 7)
    pos_ems = Cells(3, 7)
    pos_sav = Cells(4, 7)
    
    lineno = [B65536].End(xlUp).Row           '行数,文件数量
    
    For unit_num = 5 To lineno                 '文件循环
    
        datfile = Cells(unit_num, 2)                              '文件名称
        datFullName = ThisWorkbook.Path & "\" & datfile
        If Dir(datFullName, vbNormal) <> vbNullString Then
            Workbooks.Open Filename:=datFullName        '打开订单文件
            If Application.Version >= "12.0" And ActiveWorkbook.FileFormat = 51 Then
                maxrow = Cells(1048576, pos_ems).End(xlUp).Row
            Else
                maxrow = Cells(65536, pos_ems).End(xlUp).Row
            End If
        Else
            MsgBox "数据文件不存在!", vbOKOnly, "iamlaosong"
            Exit Sub
        End If
。。。

Excel的版本不同,最大行数和列数不同。2003版最大行数是65536行,最大列数是256列(最后一列IV)。Excel2007及以后的版本最大行数是1048576行,最大列数是16384列(最后一列XFD)
打开一个空白新建EXCEL表格,按CTRL+下箭头,可以查看到最大行数;按CTRL+右箭头,可以查看到最大列标(若想显示列数,可在最右一列的某单元格中输入=column()回车,出现数字就是最大列数)。


  • 1
    点赞
  • 0
    评论
  • 5
    收藏
  • 打赏
    打赏
  • 扫一扫,分享海报

©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页

打赏作者

宋哥

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

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

余额充值