1、Sub 选取已使用单元格()
ActiveSheet.UsedRange.Select
End Sub
2、执行代码，效果如下图所示：
1、Sub选取或指定单元格相邻的区域()
Range("a1").CurrentRegion.Select
End Sub
2、执行结果如下图所示：
1、选取单元格的方法,如下图所示：
2、Sub 选取端点单元格()
'B列第一个非空单元格
If Range("b1") = "" Then
Range("b1").End(xlDown).Select
Else
Range("b1").Select
End If
End Sub
3、Sub 选取端点单元格()
'B列最后一个非空单元格
Range("b" & Rows.Count).End(xlUp).Select
End Sub
4、Sub 选取端点单元格()
Dim x As Integer
x = Range("b" & Rows.Count).End(xlUp).Row + 1
Range("b" & x).Select
End Sub
5、Sub 选取端点单元格()
'第二行第一个非空单元格
If Range("A2") = "" Then
Range("A2").End(xlToRight).Select
Else
Range("A2").Select
End If
End Sub
6、Sub 选取端点单元格()
'第二行最后一个非空单元格
Cells(2, Columns.Count).End(xlToLeft).Select
End Sub
