Question

如何用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列有关，他们之间没有关系
请问高手该代码应当如何写
原来的图片不清楚，换一张。
在实际使用中，客户名称、铜管规格、和管型一般情况下 下面的单元格等于上面的单元格的内容，所以我想在G列输入数据时，让他们自动输入（这就是第2条）。
客户每次报单结束，就要换新的客户，我当然要输入新的客户名称，有时还要换铜管规格或管型，这样我肯定要在相应的单元格内输入数据，所以在G列输入数据时，他们当然不能更改，除非手工更改（这就是第1条）

Answer 1

感觉你第一点是写错了
应该是
1、如果A列D列E列原来的单元格内有数据，无论在G列输入什么，他们都保持不变（维持原来的数据）
用单元格事件呀
Private Sub Worksheet_Change(ByVal Target As Range)
Dim R&
If Target.Row > 1 And Target.Column = 7 And Target.Count = 1 Then
R = Target.Row
If Target.Value > 0 Then
If Cells(R, 1) = "" Then
Cells(R, 1) = Cells(R - 1, 1)
End If
If Cells(R, 4) = "" Then
Cells(R, 4) = Cells(R - 1, 4)
End If
If Cells(R, 5) = "" Then
Cells(R, 5) = Cells(R - 1, 5)
End If
End If
End If
End Sub
这代码只要A，D，E有数据，则不变，注意是分开的，A有，D没有，则D=上一行，A不变
如果是有一个数据就不变的话，你把判断修改一下即可

Answer 2

程序倒是不难,不过对你的第一个要求有点疑问:
1、如果A列G列E列原来的单元格内有数据，无论在G列输入什么，他们都保持不变（维持原来的数据）
对G列的单元格来说,如果G列的单元格内有数据,输入什么还保持原数据不变的话,就决定了G列的单元格一旦输入过数据就是不可修改了.你确定一下是要这样吗?