工作表标签--右键--查看代码-- 粘贴如下代码
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Target.Row = 12 And Target.Column < 11 Then
For Each c In Range("C12:I12")
If c.Value > 4 Then
c.Offset(1, 0) = c.Value
c.Offset(1, -1) = Time
End If
Next
End If
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024