将字符串附加到现有单元格值

Question

我正在自动将一行复制到新插入的行并更改作业名称。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

 If Not Intersect(Target, Range("CC3:CC300")) Is Nothing Then
 End If

 If ActiveCell.Value = "Re-design " Then

 RowToCopy = ActiveCell.Row
 insertRow = ActiveCell.Row + 1

 Rows(RowToCopy).Copy
 Rows(insertRow).Insert Shift:=xlDown

 Dim x As String, y As String, z As String, v As String

 x = "AP" & insertRow & ":" & "DW" & insertRow

 Range(x).ClearContents

 y = "A" & RowToCopy & ":" & "DW" & RowToCopy

 Range(y).Interior.ColorIndex = 15

 z = "A" & insertRow
 v = "A" & RowToCopy.Value

 Range(z).Value = v & "/2"

 End If

End Sub

在线：

 Range(z).Value = v & "/2"

我收到错误：

需要对象。

有什么方法可以附加到单元格的值吗？

我也这么做了：

Range(z).Value = v.Value & "/2"

但现在说：

限定符无效

Answer 1

我找到了明智的答案：

此链接显示了如何操作：

https://forum.ozgrid.com/forum/index.php?thread/75631-append-text-to-existing-cell-text/

代码必须是：

    Range(z).Value = Range(v).Value & "/2"