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

作者：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

如果该列所有需要处理的单元格都有值ÿ