excel表格VBA代码高手请进，帮我优化代码

Question

在同一表格中，我有好几组需要输入时间，我想做到在A列输入“ 大于0的数字 ”或者在C列输入“ * ”，二者符合其一在对应的B列都能自动输入时间。（时间一旦输入后，就不能改变，当然手工去改变还是可以的）
同时到在D列输入“ 大于0的数字 ”或者在F列输入“ * ”，二者符合其一在对应的E列都能自动输入时间，下面的代码可以简单实现我上面的想法。
但该代码有个两个缺陷，
一、改代码从第一行就开始运行，我想要从第儿行开始运行，第一行是表头。
二、就是不能在表格中删除或清除连续单元格内的数据，如果出现上面的情况，显示{运行时错误"13".类型不匹配} 然后， If Target.Value = "*" Then
这段代码显示黄色，在没修改代码的情况下，整个代码便失去作用。
在实际使用中我的表格有时会插入行或者删除行，有时会清除连续单元格的内容，还会复制单元格，请问该代码应当如何修改，才能适应我的操作
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 6 Then Exit Sub
Application.EnableEvents = False
Select Case Target.Column
Case Is = 1
If Target.Value > 0 Then
With Target.Offset(0, 1)
.Value = Now
.NumberFormatLocal = "yyyy-m-d h:mm;@"
End With
End If
Case Is = 3
If Target.Value = "*" Then
With Target.Offset(0, -1)
.Value = Now
.NumberFormatLocal = "yyyy-m-d h:mm;@"
End With
End If
Case Is = 4
If Target.Value > 0 Then
With Target.Offset(0, 1)
.Value = Now
.NumberFormatLocal = "yyyy-m-d h:mm;@"
End With
End If
Case Is = 6
If Target.Value = "*" Then
With Target.Offset(0, -1)
.Value = Now
.NumberFormatLocal = "yyyy-m-d h:mm;@"
End With
End If
End Select
Application.EnableEvents = True
End Sub

Answer 1

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 Or Target.Cells.Count > 1 Then Exit Sub
Application.EnableEvents = False
Select Case Target.Column
Case Is = 1, 4
If Target.Value > 0 Then
With Target.Offset(0, 1)
.Value = Now
.NumberFormatLocal = "yyyy-m-d h:mm;@"
End With
End If
Case Is = 3, 6
If Target.Value = "*" Then
With Target.Offset(0, -1)
.Value = Now
.NumberFormatLocal = "yyyy-m-d h:mm;@"
End With
End If
End Select
Application.EnableEvents = True
End Sub

追问

您的代码很好，很容易修改，可以告诉我这句代码的意思和作用吗If Target.Row = 1 Or Target.Cells.Count > 1 Then Exit Sub
。另外我还想在第1行或第4行只对数字有效（大于0的数字，）而不是文字或符合，这样在实际表格中，就可以减少失误

追答

If Target.Row = 1 Or Target.Cells.Count > 1 Then Exit Sub
当前行等于或者所选择单元格数大于1就退出程序。

追问

难道我上面的代码就缺少这一句，就不能清除数据吗

追答

加Target.Row = 1是为了解决第一个问题
Target.Cells.Count > 6
大于6才退出程序，所以会出错，改成1即可。