在excel 中数据的引用及加叠问题。sheet1的A1的数据每更改一次，在sheet2的A列中加叠保存。
例如：引用sheet1的A1是001，sheet2中的A1也是001；希望达到，之后将sheet1的A1更改为002，sheet2的A1依然是001，sheet2的A2则是002。。如此类推sheet1的A1的数据每更改一次，在sheet2的A列中加叠保存。能否做到这个效果，请各位高人指点。。指点。。感激不尽。。。
第1个回答 2013-12-13
打开VBA编辑器，在sheet1工作表代码中输入如下代码，即可实现：Option ExplicitPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim aSheet As Worksheet
Dim bSheet As Worksheet
Set aSheet = Worksheets("Sheet1")
Set bSheet = Worksheets("Sheet2")
aSheet.Activate
With bSheet
If .Range("IV65536") = "" Then
.Range("IV65536") = 1
.Range("A1") = Range("A1")
End If
If .Cells(.Range("IV65536"), 1) = Range("A1") Then
Exit Sub
Else
.Range("IV65536") = .Range("IV65536") + 1
.Cells(.Range("IV65536"), 1) = Range("A1")
End If
End With
End Sub
Dim aSheet As Worksheet
Dim bSheet As Worksheet
Set aSheet = Worksheets("Sheet1")
Set bSheet = Worksheets("Sheet2")
aSheet.Activate
With bSheet
If .Range("IV65536") = "" Then
.Range("IV65536") = 1
.Range("A1") = Range("A1")
End If
If .Cells(.Range("IV65536"), 1) = Range("A1") Then
Exit Sub
Else
.Range("IV65536") = .Range("IV65536") + 1
.Cells(.Range("IV65536"), 1) = Range("A1")
End If
End With
End Sub
第2个回答 2013-12-13
将如下事件代码放入 Sheet1模块中就行了：Private Sub Worksheet_Change(ByVal Target As Range)
If Target = [A1] Then
Worksheets(2).Range("A" & Worksheets(2).[A65536].End(xlUp).Row + 1) = Target
End If
End Sub本回答被网友采纳
If Target = [A1] Then
Worksheets(2).Range("A" & Worksheets(2).[A65536].End(xlUp).Row + 1) = Target
End If
End Sub本回答被网友采纳
