Excel VBA追加单元格值报错：Object required与Invalid qualifier求解

错误根源 #

你遇到的两个错误都是因为对变量v的处理逻辑错误：

1. 原代码里v = "A" & RowToCopy.Value完全不对——RowToCopy是行号（数字），根本没有Value属性，这句会直接触发错误；就算去掉.Value，v变成了类似"A5"的地址字符串，字符串也没有.Value属性，所以改v.Value会报「Invalid qualifier」。
2. 你要的是A列原行的单元格内容，不是单元格地址，所以不需要拼接地址字符串，直接取对应单元格的值就行。

修正后的代码 #

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 仅处理CC3:CC300区域的单元格
    If Not Intersect(Target, Range("CC3:CC300")) Is Nothing Then
        If ActiveCell.Value = "Re-design " Then
            Dim RowToCopy As Long, insertRow As Long
            RowToCopy = ActiveCell.Row
            insertRow = RowToCopy + 1
            
            ' 复制原行并插入到下方
            Rows(RowToCopy).Copy
            Rows(insertRow).Insert Shift:=xlDown
            
            ' 清空新行AP到DW列内容
            Range("AP" & insertRow & ":DW" & insertRow).ClearContents
            
            ' 给原行设置灰色背景
            Rows(RowToCopy).Interior.ColorIndex = 15
            
            ' 获取原行A列的值，追加"/2"后赋值给新行A列
            Range("A" & insertRow).Value = Range("A" & RowToCopy).Value & "/2"
        End If
    End If
End Sub

关键修改说明 #

• 把两个If合并，避免无效判断；
• 直接用Range("A" & RowToCopy).Value获取原行A列的内容，不需要额外变量v；如果一定要用变量，可声明为String并直接赋值单元格值：Dim v As String: v = Range("A" & RowToCopy).Value；
• 简化行背景设置代码，直接用Rows(RowToCopy)代替拼接地址字符串；
• 给RowToCopy和insertRow指定Long类型，避免行号超出Integer范围的潜在问题。

内容的提问来源于stack exchange，提问作者Geographos