Excel 2007这个思路有办法实现吗？？

明天会更好11

比如：1--10行内有不同数字分别，修改任意数字8-然后1--10行自动往下滚动变成（8-10  ）意思就是修改第一行的数字，然后表格上的其它数字自动跳下一行，要的效果是往下滚动，然后只统计1-10行里的数字！能不能实现这个思路？应怎么操作，感谢大神！


补充内容 (2019-11-8 19:58):
已解决

liulang0808

楼主可以先设置一个公共数组变量，保存数据，然后结合表格change事件处理看看吧

小花鹿

可以实现，要用到公共变量                                                                                                   

microyip

小花鹿 发表于 2019-7-29 12:41
可以实现，要用到公共变量                                                                             ...

不用设置公用变量的，在Worksheet_Change里，先记录被修改的值，然后undo一次，把当前单元格到最后一个的值再记录一次，然后重写单元格值就OK了

killq

我擦，这是在说啥？啥滚动？统计个啥？
脑细胞活着的不多了感觉

一把小刀闯天下

'估计是这意思，，，

Option Explicit

Dim arr

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address <> "$A$1" Then Exit Sub
  Dim i
  For i = UBound(arr, 1) To 2 Step -1
    arr(i, 1) = arr(i - 1, 1)
  Next
  arr(1, 1) = Target.Value
  [a1].Resize(10) = arr
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Address <> "$A$1" Then Exit Sub
  arr = [a1].Resize(10)
End Sub

明天会更好11

一把小刀闯天下 发表于 2019-7-29 13:37
'估计是这意思，，，

Option Explicit

大神这要怎操作？？？

明天会更好11

6楼是厉害的。。。。。大神，大吃一惊 ！

明天会更好11

一把小刀闯天下 发表于 2019-7-29 13:37
'估计是这意思，，，

Option Explicit

大神就是这样的效果，如果要第二列也像第一列这样子应怎修改哪个数值啊？？

killq

一把小刀闯天下 发表于 2019-7-29 13:37
'估计是这意思，，，

Option Explicit

原来就是搞队列啊。。。