gpt4 book ai didi

vba - Excel公式加1

转载 作者:行者123 更新时间:2023-12-02 05:17:53 26 4
gpt4 key购买 nike

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

目前我有一张 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 更快的方法?

谢谢!

最佳答案

选择所需的单元格并在 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更改为您要引用的数字即可。

关于vba - Excel公式加1,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/47439405/

26 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com