基于另一列单元格颜色复制同行值的VBA问题求助

错误原因拆解 #

Error 439 错误 #

• ColumnD是未定义的变量，VBA无法识别该标识符。且你的需求是复制同行B列的值，此处列引用完全错误。
• 你试图将单元格的值赋值给变量x后调用Copy方法，但单元格值是普通数据类型（如文本/数字），并非Range对象，无法执行Copy操作，这是触发错误的核心原因。

循环逻辑问题 #

• 嵌套的For i和For Each循环完全冗余，且内部的Exit For语句会让循环仅执行一次就跳出，根本无法遍历W列所有黄色单元格。
• YellowField.UsedRange.Rows.Count写法错误，YellowField本身就是一个Range对象，直接使用YellowField.Rows.Count即可，且外层For i的范围与实际单元格行号不匹配。

修正后的VBA代码 #

Sub CopyData()
    Dim YellowCell As Range
    Dim Amortized As Worksheet
    Dim Rollforward As Worksheet
    Dim targetRow As Long
    
    ' 初始化工作表对象
    Set Amortized = Worksheets("AMORTIZED")
    Set Rollforward = Worksheets("Rollforward")
    
    ' 获取W列从W4开始的所有非空单元格（避免中间空行漏选）
    Dim YellowField As Range
    Set YellowField = Amortized.Range("W4", Amortized.Cells(Amortized.Rows.Count, "W").End(xlUp))
    
    ' 遍历W列每个目标单元格
    For Each YellowCell In YellowField
        ' 判断单元格是否为黄色高亮
        If YellowCell.Interior.Color = vbYellow Then
            ' 获取Rollforward表B列最后一个非空行的行号
            targetRow = Rollforward.Cells(Rollforward.Rows.Count, "B").End(xlUp).Row
            
            ' 确保从B30开始写入（如果B30上方无数据）
            If targetRow < 30 Then targetRow = 29
            
            ' 复制同行B列单元格到目标位置
            Amortized.Cells(YellowCell.Row, "B").Copy _
                Destination:=Rollforward.Cells(targetRow + 1, "B")
        End If
    Next YellowCell
End Sub

关键修改说明 #

• 移除冗余循环：仅保留For Each遍历W列单元格，确保所有黄色单元格都被检查。
• 修复列引用：通过YellowCell.Row获取当前黄色单元格的行号，直接指向同行B列，避免行号不匹配问题。
• 修正Copy调用：直接复制Range对象（单元格本身），而非单元格的值，解决类型不匹配错误。
• 优化目标行逻辑：从B列底部向上查找最后一个非空行，保证新数据追加到正确位置，同时处理B30之前无数据的边界情况。
• 改进区域选择：从W列底部向上找非空行，避免中间有空行时漏选W列的有效数据。

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