我们使用宏在所有单元格中执行除法

描述

用于自动将单元格中的值除以任意数字的宏。如果我们有一个数据文件，其中所有值都以便士为单位，并且我们需要将计算和数据转换为格里夫尼亚（或其他货币），则可能有必要。

当然，你可以使用公式来转换数值，但是如果数字很多，那么用这种方式转换会非常漫长和无聊。

让我们考虑如何使用宏将所有选定的单元格除以数字，例如 Excel 中的“100”。

VBA 宏代码

为此，请打开工作簿，转到 Visual Basic Editor (Alt+F11)、添加 VBA module (Insert - Module) 并将此宏文本复制到此处：

 Sub Division()

    For Each cell In Selection
        cell.Formula = cell.Value
    Next cell
    
    For Each cell In Selection
        cell.Value = cell.Value / 100
    Next cell
    
 End Sub

之后您可以返回Excel。选择必要的单元格并通过菜单 Tools - Macro - Macros (Alt+F8) 运行我们的宏。

另外，如果我们用宏代码中的货币汇率替换“100”，我们将获得另一种货币的值。

同样，您可以执行任何运算，例如乘以任何数字。