特殊单元格定位
已选取的单元格区域
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