单元格生成时间事件

天堑小舟

目的：当8行单元格非空时，第7行对应的单元显示当前时间

问题：1、如果单个单元格录入数据时，没有问题。如B列、G列、H列
　      2、多选复制时，就出问题了。如C、D、E、I、J列

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Dim cell As Range
    Set rng = Me.Range("B8:XFD8")
    If Not Intersect(Target, rng) Is Nothing Then
        For Each cell In Target
            If Not IsEmpty(cell.Value) Then
                cell.Offset(-1, 0).Value = Now
            End If
        Next cell
    End If
End Sub
请教各位，哪里出问题啦。谢谢！

蓝桥玄霜

复制的例子：