关于VBA代码选取指定区域的问题？？

598598

Sub ff()
With Sheets("2套租赁总表")
.Range ("a1:a" & .Range("a1").End(xlUp).Offset(1, 0).Row)
End With
End Sub

                        
   

Sub bb()
With Sheets("2套租赁总表")
.Range(".Range("a1").End(xlUp) + 1:a"& .Range("a1").End(xlUp).offset(Sheets("15月记录").Range("i51").Value,0).row)
End With
End Sub

按照头一段代码所写，想选择的区域是“2套租赁总表”A列不确定的单元格最后一个空值，另一点的位置是在现在的基础上加上工作表“15月记录”的 I51单元格的值的行。应该如何写出呢，向高手请教，多谢！！

smhf_6

Range("a1").End(xlUp)  应为Range("a1").End(xldown) 或者　Range("a65530").End(xlUp),不过一般我倾向于后者。因为前者遇空行即止，那怕没到真正的末行

lu_zhao_long

End(xlUp) 表示同时按下“CTRL”+“UP” 键，然后跳转到上一个非空单元格。同时按下“CTRL”+“DOWN” 键就会跳转到下一个非空单元格。然而，为了得到最后一行，如果中间有一个空格的话，使用这两种方法都很难实现。
所以，在 EXCEL 2003中，我们通常都是使用 Range("A65536").End(xlUp) 来得到 A列的最后一行。注：EXCEL 2003中每个工作表最多有65536行，所以从最后一个单元格向上查找最后一行肯定能够得到正确的结果。

lu_zhao_long

然而，对于EXCEL2007，每个工作表最多有1048576行。使用上述方法有时就得不到正确的结果。
为了兼容，我通常会使用下面的代码来实现：
LastRow = Cells.SpecialCells(xlCellTypeLastCell).Row
其中，SpecialCells(xlCellTypeLastCell) 就相当于同时按下“CTRL”+“END” 的效果，得到使用区域的最后一个单元格。

建议楼主可以试试看！

aidixiao

4楼的方法不错，谢谢分享。