表1的A1单元格输入数据时,表2则在a1格记录数据,如果表1A1数据变动时,则表2另起三列来记录A1的值。每次数据变动都得另起三列。
这个我知道,人说好人做到底,送佛送到西,代码一并附上呗,别说你不会,财富值可以追加到100
追答
Dim r, v
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value2 = t Then Exit Sub
If Target.Column > 1 Then Exit Sub
If Target.Cells.Count <> 1 Then Exit Sub
If Sheet2.Cells(r, 1) = "" Then
Sheet2.Cells(r, 1) = v
Else
c = Sheet2.Range("IV" & r).End(xlToLeft).Column
Sheet2.Cells(r, c + 2) = v
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
r = Target.Row
v = Target.Value
End Sub