将Excel公式增加1

Steveybo

我正在尝试复制和粘贴一些保留格式的单元格，并将它们链接到表。

目前我有一张桌子，但我是从另一张纸上引用的，例如：

=Sheet2!A1  =Sheet2!B1  =Sheet2!C1
=Sheet2!D1  =Sheet2!E1

我正在尝试一次将其复制到4行并粘贴多次，这些值将一直保留到当前单元格ID，但是我想每次将它们增加1，例如，当我粘贴时，我希望它们是：

=Sheet2!A2  =Sheet2!B2  =Sheet2!C2
=Sheet2!D2  =Sheet2!E2

有比手动将所有单元格ID更改为+1更快的方法吗？

谢谢！

维塔塔

选择所需的单元格，然后在VBA中运行以下命令：

Public Sub TestMe()

    Dim myCell  As Range

    For Each myCell In Selection
        If myCell.HasFormula Then myCell.Formula = myCell.Formula & "+1"
    Next myCell

End Sub

如果您按下它太多次，这是最后一次删除它的方法+1：

Public Sub UnTestMe()

    Dim myCell As Range

    For Each myCell In Selection
        If myCell.HasFormula Then myCell.Formula = Left(myCell.Formula, _
                                                Len(myCell.Formula) - 2)
    Next myCell

End Sub

关于@SJR的注释，如果要更改单元格的引用地址，这是一种可能的解决方法：

Public Sub TestMe()

    Dim myCell As Range

    For Each myCell In Selection
        If myCell.HasFormula Then myCell.Formula = Left(myCell.Formula, _
                                                Len(myCell.Formula) - 1) & 2
    Next myCell

End Sub

只需将更&2改为您要引用的号码。

本文收集自互联网，转载请注明来源。

如有侵权，请联系 [email protected] 删除。