删除内容，或整行.整列删除,插入行时，VBA运行错误，请帮忙修改下代码，谢谢！！！

( 在表一中的代码）
任一单元格内输入字母后自动替换成中文
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = "zs" Then Target = "早上"
If Target.Value = "ZS" Then Target = "早上"
If Target.Value = "ZW" Then Target = "中午"
If Target.Value = "zw" Then Target = "中午"
If Target.Value = "xw" Then Target = "下午"
If Target.Value = "XW" Then Target = "下午"
End Sub

改成这样就可以了：

Private Sub Worksheet_Change(ByVal Target As Range)
If WorksheetFunction.CountA(Target) > 0 Then
If LCase(Target.Text) = "zs" Then Target = "早上"
If LCase(Target.Text) = "zw" Then Target = "中午"
If LCase(Target.Text) = "xw" Then Target = "下午"
End If
End Sub

有疑问，请Hi我或给我发百度消息
GoodLuck!

你好！ On Error Resume Next 或者 If Target.Cells.Count = 1 Then ... EndIf 如有疑问，请追问。