EXCEL VBA公式- Pad a cell

Question

我正试图通过VBA & XLS公式给XLS单元贴上垫子，但我却步履蹒跚：

示例:我希望通过一个公式将“- Test”附加到单元格AC2的内容中，然后将该公式粘贴到Col中的所有剩余行：

lastRow = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row
strTest = " - Test"

'append

Range("AC2:AC2").Formula = "=AC2.value & value(strTest)"

'then cut and paste

Range("AC2").Select
Selection.Copy
Range("AC2:A" & lastRow).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False

我猜我需要调整公式的语法来附加。我尝试过几种变体，但都没有成功。

有什么建议吗？

注意:下面的公式有效，但只适用于第一行。复制和粘贴简单地将值从X2复制到后续行，而不是公式：

 Range("X2:X2").Formula = Range("AC2:AC2").Value & strTest
 Range("X2").Select
 Selection.Copy
 Range("X2:X" & lastRow).Select
 Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
     SkipBlanks:=False, Transpose:=False

Answer 1

若要将strTest附加到单元格值，可以使用：

With Range("X2:X" & lastRow)
    .Value2 = .Worksheet.Evaluate("Index(" & .Address & "&""" & strTest & """,)")
End With

Answer 2

我认为不是这样的：

Range("AC2:AC2").Formula = "=AC2.value & value(strTest)"

你想要这个

Range("AC2:AC2").Formula = "=AC2.value & value(" & strTest & ")"