Question

Excel表格中，如何用VBA代码做到在G列输入大于0的数据后，在A列，D列，E列自动输入数据

Excel表格中，如何用VBA代码做到在G列输入大于0的数据后，在A列，D列，E列自动输入数据。同时具备以下几个条件：
1、如果A列G列E列原来的单元格内有数据，无论在G列输入什么，他们都保持不变（维持原来的数据）
2、如果原来的单元格内没有数据，在对应的G列中输入大于0的数据时，他们将自动等于上面一个单元格的数据
3、A列、D列、E列中的单元格分别和G列有关，他们之间没有关系
请问高手该代码应当如何写
下面是我原来写的代码，做到了我上面的条件，但在实际应用中，我感觉该代码复杂，我想简化
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 2 Then '2Then
If Cells(Target.Row - 1, 7) <> "" Then '检查第7列单元格上面单元格是否为空
If Cells(Target.Row, 7) <> "" Then
If Cells(Target.Row, 1) = "" Then '检测A列单元格是否为空
Cells(Target.Row, 1) = Cells(Target.Row - 1, 1) '下面单元格等于上一单元格
End If
End If
End If
End If '上面是A列客户名称自动输入
If Target.Column = 7 And Target.Row >= 2 Then
If Cells(Target.Row, 1) = Cells(Target.Row - 1, 1) Then
If Cells(Target.Row, 4) = "" Then '检测D列单元格是否为空
Cells(Target.Row, 4) = Cells(Target.Row - 1, 4)
End If
End If '本段是D列铜管规格自动输入
If Target.Column = 7 And Target.Row >= 2 Then
If Cells(Target.Row, 1) = Cells(Target.Row - 1, 1) Then
If Cells(Target.Row, 5) = "" Then '检测E列单元格是否为空
Cells(Target.Row, 5) = Cells(Target.Row - 1, 5)
End If
End If '本段是E列管型自动输入
END sub

Answer 1

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i, j As Long
Dim l As Integer
Application.EnableEvents = False
i = Target.Row
l = Target.Column
If Cells(i, 1) = "" And Cells(i, 5) = "" And l = 7 Then
Cells(i, 1) = Cells(i - 1, 1)
Cells(i, 5) = Cells(i - 1, 5)
End If
Application.EnableEvents = True
End Sub