excel - 将Excel公式增加1

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

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

=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更改为您要引用的数字。