请教EXCEL VB高手一个棘手的问题

来源：百度知道 编辑：UC知道 时间：2024/05/24 02:33:38
目前有两章表,Sheet1和Sheet2.
Sheet1 Sheet2
A1=5 A1='Shee1'A1*5 **这个时候的Sheet2的A1应该显示的是25
如果把'Sheet1'A1数字手工粘贴成"8",希望达到以下效果
Shee1 Sheet2
A1=8 A1=25
A2='Sheet1'A1*5 **这个时候Sheet2中A1还是显示是25,但是A2显示成40.
...............

'Sheet1'A1每变化一次,Sheet2中保留1-N行上次的结果,在新的一行(N+1行)复制='Sheet1'A1*5的公式.
希望这些说明大家能够明白.
不好意思,我之前的问题把悬赏分给用完了,现在一分都不剩下了......
只能从心里感谢了.

打开visual basic编辑器，在sheet1中输入代码：
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Sheet2.Range("A65536").End(xlUp)
n = rng.Row
If Sheet2.Cells(1, 1) = "" Then
Sheet2.Cells(n, 1) = Sheet1.Range("A1") * 5
Else
Sheet2.Cells(n + 1, 1) = Sheet1.Range("A1") * 5
End If
End Sub