如何使用宏将所选范围内的所有值减1

Question

我已经搜索了类似的问题，但我遇到的问题是我正在添加我正在寻找的现有录制的宏，它使用如下命令：

范围（选择，选择。结束（xlUp））。选择

选择范围。

Answer 1

假设数据中没有任何空白，则使用Counta函数。如果值为text，我还添加了IsNumeric。如果您想进一步确保一切都很整洁，可以在If声明之前添加：

Sub Minus_One()

Dim Cell As Range
Dim Cells As Range

Set Cells = Sheets(WhateverSheet).Range("A1:A" & Application.WorksheetFunction.CountA(Range("A:A")))

For Each Cell In Cells

If IsNumeric(Cell.Value) = True Then Cell.Value = Cell.Value - 1

Next Cell

End Sub


Cell.Value = Trim(Cell.Value)

Answer 2

for_each(VF.begin(), VF.end(), [](future<double>& x){cout << x.get() << " "; });
                                                ^~~~~ !