VBA第十二讲 特殊单元格定位

特殊单元格定位

已选取的单元格区域

Sub tt23()

Sheets("第十二讲").UsedRange.Select

Sheets("第十二讲").UsedRange.Copy Range("f2")

End Sub

‘copy后面只需加上顶点坐标即可

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

什么是相邻的概念，当行数与列数都相邻时候，说两个单元格相邻，如a7与b8，这两个单元格是相邻的，因为行数与列数都是相邻的。A7与C8就是不相邻的了，因为列数不相邻。

Sub tt24()

Range("G13").CurrentRegion.Select

End Sub

两个单元格区域共同的区域

Sub tt25()

Intersect(Columns("B:D"), Rows("12:14")).Select

End Sub

调用定位条件选取特殊单元格

Sub tt26()

Range("b1:b9").SpecialCells(xlCellTypeBlanks).Select

End Sub

关于specialcells 函数（返回一个range对象），xlCellType可为以下xlCellType常量之一

xlCellTypeAllFormatConditions 任意格式单元格

xlCellTypeAllValidation 含有验证条件的单元格

xlCellTypeBlanks 空单元格

xlCellTypeComments 含有注释的单元格

xlCellTypeConstants 含有常量的单元格

xlCellTypeFormulas 含有公式的单元格

xlCellLastCell 使用区域中最后的单元格

xlCellTypeSameFormatConditions 含有相同格式的单元格

xlCellTypeSameValidation 含有相同验证条件的单元格

xlCellTypeVisible 所有可见单元格

端点单元格 （非常重要）

Sub tt27()

Range("b65536").End(xlUp).Offset(1, 0) = 250250

End Sub

’end(xlup)意为向上寻找遇到的第一个非空单元格

Sub tt28()

Range(Range("c6"), Range("c6").End(xlToRight)) = 100

End Sub

‘这段代码有问题，因为显示结果为一直到第一个非空单元格之前的从C6开始的所有的空格都被赋值为100，正确代码如下，上面代码之所以有为题，range（）是选取的一个区域

Sub tt28()

Range("c6").End(xlToRight) = 100

End Sub