我正在尝试复制并粘贴一些保留格式的单元格,并将它们链接到表。
目前我有一张桌子,但我是从另一张桌子上引用的
例如:
=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
更改为您要引用的数字。