[已解决]数字自动跳转

wangyanjie123

从A1到AD1 一共30位，在单独的AE1中输入个位的0-9任何数，就可以自动加入到A1中，再次在AE1中输入 ，A1数跳入B1中，逐次这样添加当30格数据都自动填写完后，再次输入数字时，A1显示新数，B1为原A1数，最后的AD1数取消变为AC1的数

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-9-26 13:20

附件请测试。

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Count > 1 Then Exit Sub
   
3. If Target.Address <> [ae1].Address Then Exit Sub
   
4. Dim arr
   
5. arr = [a1].Resize(, 29)
   
6. [a1] = Target
   
7. [b1].Resize(, 29) = arr
   
8. End Sub

复制代码

跳转到最佳答案楼层

徐淑颖

这个估计要vba先设置好，然后输入就可以了

wangyanjie123

徐淑颖 发表于 2017-9-26 12:21
这个估计要vba先设置好，然后输入就可以了

如果设置可以教一下吗

徐淑颖

,haode ,稍等，我研究下，我也是个小菜鸟！

徐淑颖

{:1012:}我短时间也搞不定了，运行就死机！

wangyanjie123

没事，那也很感谢了

大灰狼1976

附件请测试。

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Count > 1 Then Exit Sub
   
3. If Target.Address <> [ae1].Address Then Exit Sub
   
4. Dim arr
   
5. arr = [a1].Resize(, 29)
   
6. [a1] = Target
   
7. [b1].Resize(, 29) = arr
   
8. End Sub

复制代码