使用vba抵消表值

Question

我有一个数据表，并希望创建一个宏来将表中的值偏移x值。我想知道是否有办法快速向每个单元格添加/减去x值。我知道我可以制作一个宏来逐个单元地添加/减去x，但我认为这可能需要花费很多时间。我很感激你的帮助！

Answer 1

是的，请使用特殊粘贴。

Sub test()
    With Sheets("Sheet1")
        Dim x As Long: x = 1
        .Range("B1") = x: .Range("B1").Copy '~~> any anchor cell
        .Range("A1:A10").PasteSpecial , xlPasteSpecialOperationAdd
        .Range("B1").ClearContents
    End With
    Application.CutCopyMode = False
End Sub

所以上面假设A1：A10包含你的表格。 HTH。