Excel vba 操作单元格

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