zoukankan      html  css  js  c++  java
  • 用VBA计算WPS 表格ET EXCEL中的行数和列数的多重方法

    用VBA计算WPS 表格ET EXCEL中的行数和列数
      
    每种方法中上面的是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。
  • 相关阅读:
    多线程中注意事项
    多线程实现第三种方式
    线程池《一》
    线程组
    线程间通信注意的问题
    互斥锁
    多个线程通信的问题
    二个线程间的通信
    死锁产生的原理
    线程安全问题
  • 原文地址:https://www.cnblogs.com/tmdsleep/p/4741196.html
Copyright © 2011-2022 走看看