求Excel表格中VBA代码

Private Sub Worksheet_Change(ByVal Target As Range)
dim r&
if target.row>2 and target.column=1 and target.row mod 2=1 then
r=range("g65536").end(xlup).row+1
if cells(r,7)<> "" then
cells(r,1)=cells(r-1,1)
end if
end if
end sub
也就是说在单数行输入时,双数行判断G列
具体看您的要求。
sm100e@qq.com

根据前人的代码改了一下：这个自动触发的代码不用加在你原有代码中
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cel As Range
For Each cel In Target

If cel.Column Mod 2 = 1 And cel.Column > 10 Then '当输入内容的单元格大于J列，且为奇数列时后一单元格写时间
If cel = "" Then
cel.Offset(0, 1).Clear
Else
If cel.Offset(0, 1) = "" Then cel.Offset(0, 1) = Date & " " & Time
End If
End If
Next cel
End Sub

if里面嵌套isblank函数。然后继续嵌套if函数。。

只是G、A两列的问题吗，其它不影响？
输入G4，A4就出现公式，删除G4，A4的公式自动删除？
存在G4，A4的修改无效？
……