在excel表格中我要让内容整体下移一格，单元格不移动！

Question

我要让A1永远是空白的，我在A1输入内容“你”后，“你”会出现在A2,然后我在A1输入“好”后，“好”会出现在A2，“你”会出现在A3，以此类推，然后我在A1输入“吗”后，“吗”会出现在A2,号“好”出现在A3，“你”会出现在A4

Answer 1

插入新的行

Answer 2

实现的方法是：

一、各单元格中公式

A2中输入：=A1

A3中输入：=MID("你好吗",IF(FIND(A2,"你好吗")<3,FIND(A2,"你好吗")+1,1),1)

拖动A3，向向下A4单元格生成公式:=MID("你好吗",IF(FIND(A3,"你好吗")<3,FIND(A3,"你好吗")+1,1),1)

二、实际效果截图

1、A3单元格公式及结果

2、A4单元格公式及结果

追问

不一定是你好吗！内容都不一样，我只是这样问！

您好，我采用了其它人的VBA！您这个我实验了一下不行

追答

你是要我说的这样的结果吗？

追问

您这个公式我实验了一下，总是显示公式是错误的，我要的结果就像是从上往下推东西，上面多出一个东西，下面所有的都会往下移动一格！您明白吗？就想我提问的问题描述一样

您可以试验一下那个VBA那个就是我想要的！不过还是谢谢您！

本回答被网友采纳

Answer 3

有答案了都不会用，可以建立新的沟通渠道下载文件。私信我或评论后我私信你。追问

已经采用了那个大神的VBA

Answer 4

Private Sub Worksheet_SelectionChange(ByVal Target As Range)'假设是E24
Dim tr
tr = Target.Row
If tr = 24 And Cells(tr, "E") <> "" Then
Range("E24").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End If
End Sub
试下这个vba追问

谢谢您！完美解决！

本回答被提问者采纳

Answer 5

在希望下移的内容上面添加行。追问

我要自动的

问题的核心是不可以移动单元格，自动实现！