[已解决]动态单元格条件成立时复制其他区域动态数据选择性粘贴到指定区域

he33xyz

    在规定区域（N列）每天录入数据，通过计算，其结果体现在单元格C5及F10：F14单元格里面，当C5单元格数据>=3000时，自动将F10：F14区域内的数据选择性粘贴到指定的区域？之后，N列再录入数据的时候，通过选择性粘贴的数据不再随F10：F14区域内是数据改变而改变。具体请看附件。我现在写的代码还有不足。谢谢老师帮忙指点！

最佳答案

月排行榜 / 总排行榜

scl5801

2011-4-21 19:44

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = 0
    If [C5] >= 3000 Then
        arr = Range("F10:F14")
    End If
    If Range("d10") = "" Then
        Range("d10:d14") = arr
    End If
Application.EnableEvents = 1
End Sub

跳转到最佳答案楼层

scl5801

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = 0
    If [C5] >= 3000 Then
        arr = Range("F10:F14")
    End If
    If Range("d10") = "" Then
        Range("d10:d14") = arr
    End If
Application.EnableEvents = 1
End Sub

he33xyz

谢谢老师！