【Excel VBA】超级实用的UsedRange

引言

之前写过一篇《【Excel VBA】得到最后数据的行数》，提到得到最后数据的行数使用的是End(xlUp)的方法，使用这种方法的缺点是自动化程度不够高，不能较为智能的判断整个数据区的最后一行数据，只能在编写代码的时候指定使用那一列来得到最后一行数据行数。

新方法：UsedRange

直接上代码，在我写的代码中首先对变量进行了定义，其实也可以直接使用。

  Dim uR As Variant
  Set uR = ActiveSheet.UsedRange

实例两种方法的对比

首先在Excel中录入一些数据，如下图：

1. 使用End方式

' 一、使用End方式取得最后一行行号 和 最后一列列号
  Dim FinalRow As Integer
  Dim FinalCol As Integer
  FinalRow = Range("A65536").End(xlUp).Row '得到A列最后数据的行数
  FinalCol = Range("ZZ1"