Question

Excel中很多数据，要在第一格插入一个数据而后面所有数据都向下移动一格

如在A1单元格插入一个数据，A列数据自动向下移动一行（仅限于A列，其他列不动）
能帮我编下，万分感谢

Answer 1

按照你的描述，直接选中A1，右键--插入--活动单元格下移，就可以了。

追问

我要自动往下移

追答

那就不会了，不好意思。

Answer 2

选择单元格，按alt+x自动向下插入一行。这个窗口通过alt+F11可以调出。

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "%{x}", ""
End Sub

Private Sub Workbook_Open()
Application.OnKey "%{x}", "i"
End Sub
Sub i()
Selection.Insert Shift:=xlDown
End Sub

Answer 3

1、按下ALT+F11组合键进入VBA界面

2、在VBA界面左侧找到你这工作表所在SHEET对象，比如可能是Sheet1，双击它

3、将以下代码复制并粘贴到右边空白编辑区域

4、好，试试在A1里输入内容并回车，看看是不是你想要结果

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count = 1 And Target.Address = "$A$1" And Target.Value <> "" Then
    Application.EnableEvents = False
        [A1].Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Application.EnableEvents = True
    [A1].Select
End If
End Sub

Answer 4

只能在A1录入的代码，录入后自动插入并选择A1（可继续A1录入）。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Range("A1").Select
If Range("A1") <> "" Then
Selection.Insert Shift:=xlShiftDown
Else
Exit Sub
End If
End Sub

Answer 5

写代码批量处理

追问

代码怎么写呀