如何在 Excel 中将一个单元格区域整体除以某个数字？

有时，您可能需要快速修改 Excel 中的一组单元格。例如，如果您有一份产品价格清单，并希望将所有价格统一除以 2，该如何高效完成？本教程将为您提供分步操作方法，教您如何将指定单元格区域中的数值批量除以一个数字。接下来，我们将详细讲解每种方法的具体操作步骤。

使用选择性粘贴函数将单元格区域除以一个数字

使用 Kutools for Excel 快速将单元格区域除以一个数字

使用 VBA 代码将单元格区域除以一个数字

使用选择性粘贴函数将单元格区域除以一个数字

例如，我将使用 Excel 的“选择性粘贴”函数，将所有单元格除以数字 15，您可按以下步骤完成此任务：

1. 将除数（例如 15）输入到一个空白单元格中，然后复制该单元格。

2. 选中您要除以 15 的单元格区域，右键单击，然后从菜单中选择“选择性粘贴”。

3. 在“选择性粘贴”对话框中，点击“粘贴”下方的“全部”选项。

4. 删除之前输入的数字 15.

现在，该单元格区域已除以 15. 如下图所示：

使用 Kutools for Excel 快速将单元格区域除以一个数字

如果觉得选择性粘贴操作稍显复杂，有没有更简单快捷的方法完成这项任务？当然有！Kutools for Excel 的“运算”功能，只需几秒钟就能帮您将整个单元格区域除以一个数字！

1. 选中包含要除以某数字的数值区域，然后点击“Kutools” > “更多” > “运算”，参见下图：

在“运算工具”对话框中，于“运算”框内选择“除法”，并在“操作数”框中输入除数（例如“15”）。您可在“预览”窗格中实时查看运算结果，确认无误后，单击“确定”或“应用”按钮。参见截图：

使用 VBA 代码将单元格区域除以一个数字

借助 VBA 代码，您还能轻松实现将指定单元格区域自动除以某个数字。

1. 请选择您要除以某个数字的单元格区域。

2. 单击“开发工具”>“Visual Basic”，弹出“Microsoft Visual Basic for Applications”窗口后，单击“插入”>“模块”，然后在模块中输入以下代码：

VBA：将一个单元格区域除以某个数字

Sub DivisionNum()
'Updateby20140128
Dim Rng As Range
Dim WorkRng As Range
Dim xNum As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xNum = Application.InputBox("Division num", xTitleId, Type:=1)
For Each Rng In WorkRng
    Rng.Value = Rng.Value / xNum
Next
End Sub

3. 然后单击按钮运行代码。在弹出的对话框中，请选择包含要除以某数字的数值的区域，然后单击“确定”按钮。参见截图：

4. 在第二个弹出的对话框中输入除数，然后单击“确定”按钮。参见截图：

现在，所有数字选择区域均已除以 15.

演示：使用 Kutools for Excel 快速将一个单元格区域除以某个数字

相关文章