vba - Excel公式加1

Question

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

目前我有一张 table ，但我从另一张纸上引用它 例如:

=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 更快的方法？

谢谢!

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