VBA存储系统（VBA代码宝）

陈表达无聊时弄得常用数据存储系统·

sub 快速选择()

   Selection.End(xlDown).Select     '平原区域下，快速选中当前列最后一行

   Selection.End(xlToRight).Select  '平原区域下，快速选中当前行最右边一列

   Selection.End(xlUp).Select

   Selection.End(xlToLeft).Select

end sub

sub Text文本属性()

    sheet1.range("K1")="10AA"
    msgbox sheet1.range("K1").text
    msgbox sheet1.range("K1").value

end sub

sub Usedrange使用过的单元格()
    
    ActiveSheet.UsedRange.Select    '选中全部使用过的单元格
    ActiveSheet.UsedRange.Count     '使用过单元格的个数
    ActiveSheet.UsedRange.Rows.Count '使用过行数

end sub

sub 获取最后一行

   LastRow = Range("A" &Rows.Count).End(xlUp).Row
   LastRow = Range("A65535").End(xlUp).Row

end sub