Question

EXCEL插入行或删除行时会报错运行时错误13,类型不匹配

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 10 And Target.Value <> "" Then 此行报错运行时错误13，类型不匹配
Cells(Target.Row, 9) = Date
End If
End Sub

麻烦大神帮我看看这个如何解决，谢谢

Answer 1

答：当插入一行时，Target返回一行单元格区域，从而Target.value属性出错。

因为插入的行总是新行，所有可以更改其中语句为：

If Target.Column = 10 And Target.Cells(1, 1).Value <> "" Then