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

描述

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

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

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

VBA 宏代码

为此，请打开您的书本，转至 Visual Basic 编辑器 (Alt+F11), 添加模块VBA （ 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" 汇率，然后我们将得到另一种货币的价值。

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