[功能]VBE 地址、列号、行号----入门操作

WhoCanSay

1. [功能]地址、列号、行号
   
2. Sub SelectionAddress()
   
3.     '常用的选择方式有selection CurrentRegion UsedRange [a1:e5]
   
4.     arr = Range("a2").CurrentRegion
   
5.     Range("a2").CurrentRegion.Select '选择对象，但不能arr.Select
   
6.     Debug.Print UBound(arr) '行
   
7.     Debug.Print UBound(Application.WorksheetFunction.Index(arr, 1, 0)) '多少列 同Selection(Selection.Count).Column
   
8.    
   
9.     'Debug.Print Selection(1).Value '下同
   
10.     Debug.Print arr(1, 1)
    
11.    
    
12.     MsgBox Selection(1).Row ' 第一个单元格行号
    
13.     Debug.Print Cells(Selection(1).Row, Selection(1).Column) '选中单元格中第一个单元格的值，同Selection(1)
    
14.    
    
15.     Debug.Print Selection(Selection.Count).Row ' 最后一个单元格行号
    
16.     Debug.Print Selection(Selection.Count).Column ' 最后一个单元格列号（数值）'多少列
    
17.    
    
18.     MsgBox Selection.Count '总数量
    
19.    
    
20.     Debug.Print Selection.Address '地址范围，如$K$2:$L$13
    
21.     Debug.Print Split(Selection.Address, "$")(1) '第一对象列号 下同
    
22.     Debug.Print Split(Selection(1).Address, "$")(1) '第一对象列号
    
23.     Debug.Print Split(Selection(Selection.Count).Address, "$")(1) '最后一个单元格列号
    
24.     Debug.Print Split(Selection(Selection.Count).Address, "$")(2) '最后一个单元格行号
    
25.    
    
26.     Debug.Print Range("A65536").End(xlUp).Row 'A列最后一个单元格行号 下同
    
27.     Debug.Print [A65535].End(xlUp).Row ' 下同
    
28.     Debug.Print Cells(Rows.Count, 1).End(xlUp).Row '推荐
    
29.    
    
30.     Cells(Selection(Selection.Count).Row, Selection(Selection.Count).Column).Select '最后一个单元格 被选择到
    
31.     Cells(Selection(Selection.Count).Row, Selection(Selection.Count).Column).Offset(1, 0).Select '最后一个单元格的一下单元格 被选择到
    
32. 
    
33. End Sub
    

[功能]地址、列号、行号<br /> Sub SelectionAddress()<br />     '常用的选择方式有selection CurrentRegion UsedRange [a1:e5]<br />     arr = Range("a2").CurrentRegion<br />     Range("a2").CurrentRegion.Select '选择对象，但不能arr.Select<br />     Debug.Print UBound(arr) '行<br />     Debug.Print UBound(Application.WorksheetFunction.Index(arr, 1, 0)) '多少列 同Selection(Selection.Count).Column<br />     <br />     'Debug.Print Selection(1).Value '下同<br />     Debug.Print arr(1, 1)<br />     <br />     MsgBox Selection(1).Row ' 第一个单元格行号<br />     Debug.Print Cells(Selection(1).Row, Selection(1).Column) '选中单元格中第一个单元格的值，同Selection(1)<br />     <br />     Debug.Print Selection(Selection.Count).Row ' 最后一个单元格行号<br />     Debug.Print Selection(Selection.Count).Column ' 最后一个单元格列号（数值）'多少列<br />     <br />     MsgBox Selection.Count '总数量<br />     <br />     Debug.Print Selection.Address '地址范围，如$K$2:$L$13<br />     Debug.Print Split(Selection.Address, "$")(1) '第一对象列号 下同<br />     Debug.Print Split(Selection(1).Address, "$")(1) '第一对象列号<br />     Debug.Print Split(Selection(Selection.Count).Address, "$")(1) '最后一个单元格列号<br />     Debug.Print Split(Selection(Selection.Count).Address, "$")(2) '最后一个单元格行号<br />     <br />     Debug.Print Range("A65536").End(xlUp).Row 'A列最后一个单元格行号 下同<br />     Debug.Print [A65535].End(xlUp).Row ' 下同<br />     Debug.Print Cells(Rows.Count, 1).End(xlUp).Row '推荐<br />     <br />     Cells(Selection(Selection.Count).Row, Selection(Selection.Count).Column).Select '最后一个单元格 被选择到<br />     Cells(Selection(Selection.Count).Row, Selection(Selection.Count).Column).Offset(1, 0).Select '最后一个单元格的一下单元格 被选择到<br /> <br /> End Sub<br />