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。
  • 相关阅读:
    iOS
    UI基本视图控制
    堆和栈的区别 ?
    单例模式
    Object-c的类可以多重继承么?可以实现多个接口么?Category是什么?重写一个类的方式用继承好还是分类好?为什么?
    id
    协议
    分类(类别)
    #import和#include以及@class三者的区别?
    内存管理
  • 原文地址:https://www.cnblogs.com/tmdsleep/p/4741196.html
Copyright © 2011-2022 走看看