请求开发Excel自动化代码：Sheet1列A内容导入Sheet2并插入行

嘿Nelson，我完全懂你手动重复操作的麻烦——每次插行、粘贴数据太浪费时间了！下面是专门为你写的VBA解决方案，一步到位实现你要的功能，还能绑定按钮一键触发。

一、核心VBA代码 #

这段代码会读取Sheet1的A列数据，在Sheet2插入对应数量的新行，把数据粘贴过去，同时让Sheet2原有内容自动下移：

Sub InsertRowsAndPasteData()
    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    Dim lastRowSource As Long
    Dim lastRowTarget As Long
    Dim i As Long
    
    ' 绑定对应的工作表（如果你的表名不是Sheet1/Sheet2，这里要改）
    Set wsSource = ThisWorkbook.Worksheets("Sheet1")
    Set wsTarget = ThisWorkbook.Worksheets("Sheet2")
    
    ' 找到Sheet1中A列最后一行有数据的位置
    lastRowSource = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
    
    ' 容错：如果Sheet1的A列没数据，直接提示退出
    If lastRowSource < 2 Then ' 这里假设Sheet1第一行是表头，没有表头就改成1
        MsgBox "Sheet1的A列找不到可处理的数据哦！", vbExclamation
        Exit Sub
    End If
    
    ' 关闭屏幕刷新，让运行更流畅（不会看到频繁的行插入动画）
    Application.ScreenUpdating = False
    
    ' 找到Sheet2中A列最后一行有数据的位置
    lastRowTarget = wsTarget.Cells(wsTarget.Rows.Count, "A").End(xlUp).Row
    
    ' 在Sheet2现有数据下方插入对应数量的空行
    wsTarget.Rows(lastRowTarget + 1 & ":" & lastRowTarget + lastRowSource - 1).Insert Shift:=xlDown
    
    ' 复制Sheet1的A列数据（跳过表头，从第二行开始）
    wsSource.Range("A2:A" & lastRowSource).Copy
    
    ' 粘贴到Sheet2的目标位置（保留值和数字格式，要粘贴公式的话改成xlPasteAll）
    wsTarget.Range("A" & lastRowTarget + 1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
    
    ' 清空剪贴板，避免残留内容
    Application.CutCopyMode = False
    
    ' 恢复屏幕刷新
    Application.ScreenUpdating = True
    
    MsgBox "搞定啦！数据已经自动导入Sheet2", vbInformation
End Sub

代码小调整提示 #

• 如果Sheet1没有表头（第一行就是数据）：把lastRowSource < 2改成lastRowSource < 1，同时把wsSource.Range("A2:A" & lastRowSource)改成wsSource.Range("A1:A" & lastRowSource)
• 如果需要粘贴包括公式、格式在内的全部内容：把xlPasteValuesAndNumberFormats替换成xlPasteAll

二、绑定按钮一键触发 #

把宏绑定到按钮，以后点一下就能运行：

1. 打开你的Excel文件，点击顶部的开发工具选项卡（如果看不到，右键菜单栏→自定义功能区→勾选“开发工具”）
2. 点击插入，选择按钮（窗体控件）
3. 在Sheet2的空白区域拖动鼠标画一个按钮，松开后会弹出“指定宏”窗口
4. 选中刚才的InsertRowsAndPasteData宏，点击确定
5. 右键按钮→编辑文字，改成你喜欢的名称，比如“批量导入数据”

三、小提醒 #

• 确保工作表名称和代码里的一致，要是你的表叫“总列表”“现有列表”，记得把代码里的"Sheet1"和"Sheet2"改成对应的名称
• 运行前建议先备份文件，避免意外情况（虽然代码做了容错，但谨慎点总没错）

内容的提问来源于stack exchange，提问作者Nelson Veras