VBA：宏将范围除以一百万

Question

我在Excel工作表中有一个带有硬编码值的范围，以百万计。如何编写VBA宏来将所选范围除以百万？

祝你好运

Answer 1

不需要宏。

• 在一个单元格中写入1,000,000
• 复制该单元格
• 选择具有硬编码值的范围
• @views.html.partials._customConfirm(routes.HomeController.welcome()) 并选择Paste Special
• Divide

Answer 2

不需要循环

Sub MyDivide
    Selection.Value = Selection.Parent.Evaluate("INDEX(" & Selection.address & "/1000000,)")
End Sub

只需选择所需的单元格并运行子。

Answer 3

对于像这样简单的事情，我会在范围附近的区域（如果有一行，如果是列，等等）下面写一个公式，并复制/粘贴为值并替换原始区域。

如果您真的想为此制作一个宏，可以为变量指定一个范围，包括所选范围。从那里，循环遍历范围中的每个单元格，并将值替换为所需的值（如下所示）：

git.describe()

Answer 4

使用自定义数字格式使单元格看起来像，就像它们被分成一百万，同时保留真正的原始基础值。

sub meh()
    selection.numberformat = "0,,\M"
end sub

我添加了 M 作为单位后缀。