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

我已经search了类似的问题，但我遇到的问题是，我正在添加我正在寻找一个现有的loggingmacros使用像这样的命令：

范围（Selection，Selection.End（xlUp））。select

select一个范围。

Answer 1

这使用了Counta函数，假设数据中没有空白。 如果值是文本，我还添加了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

 Sub test() Dim rngTarget As Range Set rngTarget = Sheet1.Range("A1") Set rngTarget = Range(rngTarget, rngTarget.End(xlDown)) Dim rngIndex As Range For Each rngIndex In rngTarget With rngIndex .Value = .Value - 1 End With Next rngIndex End Sub