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

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

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

09-30 09:30