Question

求助excel a1为固定输入单元格,回车后,数据自动填入a2单元格?

求助大师，我需要在A1单元格固定输入，输入完毕按回车，A1的数据自动填入A2，如果A2已经有数据，那么就把A2的数据剪切到A3，如果A3也有数据就把A3的数据剪切到A4，以此类推，。。。，如果在a1输入数据时，a2位空白，就填入a2，但是当再次在a1输入完毕按回车时，上一次在a2的数据就剪切到a3，，a3的数据就剪切到a4，a4的数据就剪切到a5，以此类推，到a150后，在a1继续录入的数据不再往后填充，而是自动溢出

Answer 1

以下代码能满足你的要求：

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
If Target <> "" Then
   Target.Copy
   Range("A2").Insert Shift:=xlDown
   Range("A151").Delete
   Range("A1").Select
End If
End Sub

注意代码不是在标准模块里

追问

谢谢，还想请教一下，我现在想在b2单元格输入，输入回车后跟你上面做A1一样的效果，可是，我把上面那个改成B2，效果出不来。如果方便的话想你注释一下这个代码的意思，十二的感谢。

追答

怎么没完没了？
加200奖励再给你改或者采纳后再发一个求助

Answer 2

其实不太难，简单的函数是没有办法完成的，要用到vba，可以自定义函数满足你的需求。

Answer 3

你这个看起好复杂，在EXcel中，通过简单设置是达不到你的要求的。 建议你使用编程来实现，当提交a1值的时候，做一系到的判断和赋值就可以了。

追问

我问的就是怎样写这个的vba代码？

Answer 4

妥了据我了解我打局一起去呢苦中作乐孙女哈咯呀我看看拉DJ路途模具普陀娜恩我自己去通途交上去了群魔克鲁斯空间里咯恶露头发了武进区头啊看上去恐惧我啊来咯我来咯谢谢夸奖咯我来咯我看看我女通泰路咯预览图李QQ图咯有空啊分享下妥了据我了解我打局一起去呢苦中作乐孙女哈咯呀我看看拉DJ路途模具普陀娜恩我自己去通途交上去了群魔克鲁斯空间里咯恶露头发了武进区头啊看上去恐惧我啊来咯我来咯谢谢夸奖咯我来咯我看看我女通泰路咯预览图李QQ图咯有空啊分享下

Answer 5

妥了据我了解我打局一起去呢苦中作乐孙女哈咯呀我看看拉DJ路途模具普陀娜恩我自己去通途交上去了群魔克鲁斯空间里咯恶露头发了武进区头啊看上去恐惧我啊来咯我来咯谢谢夸奖咯我来咯我看看我女通泰路咯预览图李QQ图咯有空啊分享下