跟着校长学VBA之第12集:特殊单元格定位

hwc2ycy

1 已使用的单元格区域
UsedRange属性

1.   Sub d1()
   
2.     Sheets("sheet2").UsedRange.Select
   
3.   End Sub

复制代码

2 某单元格所在的单元格区域

1.    Sub d2()
   
2.       Range("b8").CurrentRegion.Select
   
3.    End Sub

复制代码

3 两个单元格区域共同的区域（交集）

1.     Sub d3()
   
2.           Intersect(Columns("b:c"), Rows("3:5")).Select
   
3.     End Sub

复制代码

4 调用定位条件选取特殊单元格（平时用的定位功能）

1.     Sub d4()
   
2.   
   
3.        Range("A1:A6").SpecialCells(xlCellTypeBlanks).Select
   
4.       
   
5.     End Sub

复制代码

5 端点单元格

1.    Sub d5()
   
2.    
   
3.      Range("a65536").End(xlUp).Offset(1, 0) = 1000
   
4.      
   
5.    End Sub

复制代码

1.    Sub d6()
   
2.    
   
3.      Range(Range("b6"), Range("b6").End(xlToRight)).Select
   
4.      
   
5.    End Sub

复制代码

注意：
1.用ROWS.COUNT（同样COLUMNS.COUNT）属性的童鞋有一点需要注意，在把10向03操作的时候，小心溢出。
2.用 SpecialCells定位单元格也如此，如果要对定位的单元格进行操作，要考虑到如果没有满足条件的情况，该做一些错误捕获和处理。