Question

不幸的是我在其他问题中找不到下面的答案 - 我的问题与复制和粘贴使用相对单元格引用而不是动态引用的公式有关。

我正在处理的工作簿的一般问题是它包含一些具有潜在动态范围变化的不同工作表。为了更好地勾勒出来：

公式必须包含的列，基于偏移单元格 - 我不能给它一个静态值 - 并从第2行开始;
公式本身如下：=CONCATENATE(LEFT(AA2,13), “:”, RIGHT(AA2,5)（要连接的值将始终显示在AA列中）

宏应该在偏移单元格中插入公式，复制并将其粘贴到整个列中，因此第3行中的单元格指向单元格AA3，依此类推：

Sub Copy1()

Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.End(xlToRight).Select
ActiveCell.Offset(, 1).Select

Dim rng as Range
Set rng = ActiveCell
rng.Select

rng.Offset(1, 0).Select
    ActiveCell.FormulaR1C1 = "=CONCATENATE(LEFT(R2C27,13), "":"", RIGHT(R2C27,5))"
rng.Offset(1, 0).Select
Selection.Copy
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.PasteSpecial
Selection.EntireColumn.Select
Application.CutCopyMode = False

End Sub

问题是 - 在尝试插入单元格的确切名称时，宏会使用以下内容填充它：

=CONCATENATE(LEFT(‘AA2’,13), "":"", RIGHT(‘AA2’,5))

由于引号，公式不起作用。

使用参考R2C27结果，复制绝对值，因此列中的每个单元格都指向单元格AA2。

有没有可能让它创建，复制和粘贴相对引用而不是绝对引用？

Answer 1

通常不需要R1C1参考，因为如果复制+粘贴公式或将其分配给多个单元格，则会自动调整相对参考。例如：

Range("A2:A9").Formula = "=CONCATENATE(LEFT(AA2,13), "":"", RIGHT(AA2,5)"

Answer 2

如果我理解你希望列引用总是$AA（绝对），而行引用是相对的。你可以试试这个：

ActiveCell.Formula = "=CONCATENATE(LEFT($AA2,13), "":"", RIGHT($AA2,5))"

然后自动填充将自动调整行号，同时将列保持在“$ AA”。

那就是说，重构你的代码以摆脱select的东西。看看除了使用“显式引用”之外它会有多短（只需将“Sheet1”替换为工作表的实际名称）：

Sub Copy1()
    Dim rng As Range
    Set rng = Worksheets("Sheet1").Range("A1").End(xlToRight).Offset(1, 1)
    rng.Formula = "=CONCATENATE(LEFT($AA2,13), "":"", RIGHT($AA2,5))"
    rng.Copy rng.Parent.Range(rng, rng.End(xlDown))
End Sub

在Excel公式（VBA）中从绝对值更改为相对引用

2 个答案: