Table of contents
本教程将展示 8 使用的例子 VBA 来选择 使用范围 一般来说，在EXCEL中的一栏中 二手房 属性代表工作表中有数据的部分。 为了清楚地说明这些例子，我们将应用 二手房 在一个特定的数据集中，所有的例子都有一个属性。
下载实践工作手册
我们可以从这里下载实践工作手册。
VBA在Column.xlsm中选择UsedRange8个简单的VBA例子来选择列中的UsedRange
在下面的图片中，我们可以看到我们将用于所有例子的数据集。 该数据集包含以下名称 销售人员 ，他们的 地点 , 地区。 和' 总金额 在这个数据集中，使用的范围将被视为包括标题。 因此，在以下数据集中使用的范围是( B2:E15 ).
1.在Excel中用VBA选择列中的UsedRange
首先，我们将从我们的数据集中选择所有的列。 要做到这一点，我们将使用 VBA 选择 二手范围 让我们看看执行这个方法的步骤。
步骤。
- 首先是。 右键点击 在名为''的活动工作表上。 选择_列 '.
- 此外，请选择选项' 查看代码 '.
- 然后，上述操作打开一个空白的 VBA 我们也可以通过按以下方式获得这个代码窗口 符号 + F11 .
- 接下来，在该代码窗口中输入以下代码。
Sub Select_Columns() Sheets("Select_Columns").Select ActiveSheet.UsedRange.Select End Sub - 之后，点击 运行 或按下 F5 键来运行该代码。
- 最后，我们得到的结果如下图所示。 我们可以看到，我们的数据集中的列中使用的范围现在被选中。
2.使用VBA来复制整个列中的UsedRange
在第二个例子中，我们将使用 VBA 一般来说，我们使用这种方法从数据集中复制一个特定的区域。 我们需要遵循以下步骤来执行这种方法。
步骤。
- 首先，进入名为''的活动工作表标签。 拷贝 '.
- 下一步。 右键点击 在该选项卡上，选择''。 查看代码 '.
- 它将打开一个空白的 VBA 得到这个窗口的另一个方法是按下 符号 + F11 从键盘上。
- 然后，在该代码窗口插入以下代码。
Sub Copy_UsedRange() ActiveSheet.UsedRange.Copy End Sub - 现在，要运行该代码，请点击 运行 或按下 F5 钥匙。
- 最后，我们可以看到如下的结果。 同时，我们可以看到在使用的范围周围有一条边界线。 它表明代码在这个边界内复制了数据。
阅读更多：Excel VBA：将动态范围复制到另一个工作簿中
3.使用VBA计算UsedRange中的列数
在第三个例子中，我们将使用excel计算我们的数据集中的列数 VBA 选择 使用范围 这个例子将在一个消息框中返回我们的数据集中使用的范围内的列的总数。 按照下面的步骤来执行这个方法。
步骤。
- 首先，选择名为'的活动工作表 数列 '.
- 其次。 右键点击 在活动工作表的名称上，点击选项''。 查看代码 '.
- 上述命令打开了一个空白的 VBA 我们也可以通过按以下方式获得代码窗口 符号 + F11 从键盘上。
- 第三，在该空白代码窗口中输入以下代码。
Sub Count_Columns() MsgBox ActiveSheet.UsedRange.Columns.Count End Sub - 接下来，点击 运行 或按下 F5 键来运行该代码。
- 最后，我们在一个消息框中得到结果。 所用范围的列数是 4 .
阅读更多：如何使用VBA在Excel中用数据计算范围内的行数（5个宏）。
Excel VBA计算使用范围内最后一列的数量
在前面的方法中，我们提取了所使用范围内最后一列的编号。 然而，在这个例子中，我们将确定整个工作表中所使用范围内最后一列的编号，使用的是 VBA 选择 二手房 财产。 让我们看看执行这一行动需要遵循的步骤。
步骤。
- 首先是。 右键点击 在名为''的活动工作表上。 最后一栏 '.
- 下一步，选择选项' 查看代码 '.
- 因此，上述命令打开了一个空白的 VBA 打开代码窗口的另一种方法是按下 符号 + F11 .
- 之后，在该代码窗口插入以下代码。
Sub Column_Last() Dim Column_Last As Integer Column_Last = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column MsgBox Column_Last End Sub - 现在，点击 运转 或按下 F5 键来运行该代码。
- 最后，我们在一个信息框中得到我们的结果。 所用范围的最后一列是 第五届 工作表的一栏。
类似读物
- 如何在Excel中对某一范围的每一行使用VBA
- 使用VBA从Excel的活动单元格中选择范围（3种方法）
- Excel 宏程序：用动态范围对多列进行排序（4种方法）
5.用VBA从UsedRange中选择最后一列的最后一个单元格
在第五个例子中，我们将使用 VBA 选择 使用范围 属性来选择excel表中最后一列的最后一个单元格。 为了说明这个例子，我们将继续使用我们以前的数据集。 现在，看看做这个方法的步骤吧。
步骤。
- 首先，选择名为'的活动工作表 最后一页_单元格 '.
- 下一步。 右键点击 选择选项''。 查看代码 '.
- 然后，我们得到一个空白 VBA 同时，我们可以按 符号 + F11 来打开该代码窗口。
- 之后，在该代码窗口中输入以下代码。
Sub Last_Cell_UsedRange() Dim wcol As Long Dim wrow As Long wrow = ActiveSheet.UsedRange.Rows.Count wcol = ActiveSheet.UsedRange.Columns.Count ActiveSheet.UsedRange.Select Selection.Cells（wrow, wcol）.Select End Sub - 现在，要运行该代码，请点击 运行 或按下 F5 .
- 最后，我们可以在下面的图片中看到结果。 最后一列中被选中的最后一个单元格是单元格 E15 .
6.用Excel VBA查找选定的UsedRange的单元格范围
在这个例子中，我们将应用 VBA 我们将使用下面的方法来找到excel工作表中选定的使用的单元格区域。 VBA 该代码将返回单元格区域以及所使用的区域中的列的地址。 按照下面的步骤来执行这个操作。
步骤。
- 在开始的时候。 右键点击 在活动的工作表标签上命名为'' 查找单元格范围 '.
- 第二，选择选项 查看代码 '.
- 它将打开一个空白的 VBA 打开这个代码窗口的另一个方法是，按 符号 + F11 .
- 第三，在该代码窗口输入以下代码。
Sub Find_UsedRange() MsgBox ActiveSheet.UsedRange.Address End Sub - 然后，要运行该代码，请点击 运行 或按下 F5 钥匙。
- 最后，一个像下图这样的信息框显示了结果。
类似读物
- 用VBA在Excel中循环查看行和列(5个例子)
- 如何在Excel VBA中把范围转换成数组（3种方法）
7.插入VBA的UsedRange属性来计算空单元格的数量
在这个例子中，我们将使用 VBA 选择 二手范围 属性来计算excel表格中的空单元格。 有时我们可能在数据集的使用范围内有空单元格。 我们可以通过使用 二手房 财产。 让我们看看执行这个例子的步骤。
步骤。
- 首先。 右键点击 在活动的工作表标签上命名为'' 空单元格 '.
- 下一步，选择选项' 查看代码 '.
- 上述操作打开了一个空白的 VBA 打开该代码窗口的另一种方法是按下 符号 + F11 .
- 然后，在该代码窗口插入以下代码。
Sub Count_Empty_Cells() Dim wCell As Range Dim wRange As Range Dim d As Long Dim j As Long Set wRange = ActiveSheet.UsedRange For Each wCell In ActiveSheet.UsedRange d = d + 1 If IsEmpty(wCell) = True Then j = j + 1 End If Next wCell MsgBox "4列已用单元格的总数为" & d & _ " ，其中" & _ j & " 单元格为空。" End Sub - 之后，点击 运行 或按下 F5 键来运行该代码。
- 最后，我们将在消息框中得到结果。 消息框将显示我们使用的范围内的总单元格和空白单元格的数量。
8.VBA UsedRange在Excel中定位列中的第一个空单元格
在最后一个例子中，我们将使用EXCEL VBA 来选择 使用范围 属性来定位excel工作表中的第一个空单元格。 这个方法将定位特定列的第一个空单元格。 空单元格总是在数据集的使用范围之外。 因此，如果任何单元格在使用范围内是空白或空的，它将不会被考虑在这个方法中。 现在，按照以下步骤来执行这个方法。
步骤。
- 首先是。 右键点击 在活动的工作表标签上命名为'' 首先_空 '.
- 此外，请选择选项' 查看代码 '.
- 它将打开一个空白的 VBA 代码窗口。 我们也可以按 符号 + F11 来打开该代码窗口。
- 此外，在空白处输入以下代码 VBA 代码窗口。
Public Sub First_Empty_Cell() ActiveSheet.Range("E" & ActiveSheet.Rows.Count) _ .End(xlUp).Offset(1, 0) .Value = "FirstEmptyCell" End Sub - 然后，要运行该代码，请点击 运行 或按下 F5 钥匙。
- 最后，上面的代码将插入值''。 第一个空单元格 ' 在单元格中 E16 它是列的第一个空单元格 E 在数据集的使用范围之后。
阅读更多：Excel VBA 循环播放范围直到空单元格（4例）。
总结
简而言之，本教程展示了 8 例子，以使用 VBA 选择 二手房 要测试你的技能，请下载本文所用的练习工作表。 如果你有任何疑问，请随时在下面的方框中发表意见。 我们的团队将尽快对你的信息作出反应。 请注意更多的创新。 微软Excel 未来的解决方案。
