在VBA中，如何选择动态区域？

1、如何编写代码，选择非空区域，如图所示。

2、在工作表中，点击菜单栏【开发工具】，在其工具栏内，点击【visual basic】!

3、会进入VBA编辑界面！点击菜单栏【插入】，在其下拉菜单中，选择【模块】！

4、会弹出模块编辑窗口！

5、在代码编辑窗口输入以下代码。

Sub 动态选择非空区域()

Dim a As Integer, b%

a = Application.CountA(Range("a:a"))

b = Application.CountA(Range("1:1"))

Range(Cells(1, 1), Cells(a, b)).Select

End Sub

6、在VBA窗口，点击【运行】按钮！

7、非空单元格被选中！如图所示！