Excel多单元格跨工作表复制求助：800+行数据分列迁移至指定列

嘿，作为Excel新手要处理800多行的跨表数据迁移，确实容易摸不着头脑～我来给你整理两种实用的方案，不管是怕写代码的新手，还是想要高效批量处理的需求都能覆盖到：

一、公式法（无需代码，新手友好） #

这种方法不用碰VBA，直接用Excel自带公式就能搞定：

• 如果Sheet1里的姓名是连续在A列，账号连续在某一列（比如C列），那：
  在Sheet2的A1单元格输入：

  =Sheet1!A1
  

  鼠标放在单元格右下角，等光标变成十字后下拉填充到800多行；同理，Sheet2的D1输入：

  =Sheet1!C1
  

  同样下拉填充就行。
• 如果像你代码里那样，姓名在Sheet1的A列奇数行（A1、A3、A5...），那Sheet2的A1可以用：

  =INDEX(Sheet1!A:A,ROW()*2-1)
  

  下拉后A1对应Sheet1的A1，A2对应Sheet1的A3，以此类推。要是账号在Sheet1的D列奇数行，Sheet2的D1输入：

  =INDEX(Sheet1!D:D,ROW()*2-1)
  

  下拉就能批量提取。

二、VBA法（高效处理大量数据） #

你之前的代码只选了几个单元格，还用到了Select/Activate，这种操作不仅麻烦，处理800多行数据时还会很慢。给你优化成批量处理的代码，直接定位数据范围操作：

情况1：Sheet1的姓名、账号是整列连续的 #

比如姓名在Sheet1的A列，账号在Sheet1的C列：

Sub CopyContinuousData()
    ' 定义工作表和变量
    Dim wsSource As Worksheet, wsTarget As Worksheet
    Dim lastRow As Long
    
    ' 指定要操作的工作表
    Set wsSource = ThisWorkbook.Sheets("Sheet1")
    Set wsTarget = ThisWorkbook.Sheets("Sheet2")
    
    ' 获取Sheet1里姓名列的最后一行（避免空行）
    lastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
    
    ' 批量复制姓名到Sheet2的A列
    wsSource.Range("A1:A" & lastRow).Copy wsTarget.Range("A1")
    ' 批量复制账号到Sheet2的D列
    wsSource.Range("C1:C" & lastRow).Copy wsTarget.Range("D1")
End Sub

情况2：Sheet1的姓名、账号在奇数行（非连续） #

比如姓名在Sheet1的A列奇数行，账号在Sheet1的D列奇数行：

Sub CopyNonContinuousData()
    Dim wsSource As Worksheet, wsTarget As Worksheet
    Dim i As Long, lastRow As Long, targetRow As Long
    
    Set wsSource = ThisWorkbook.Sheets("Sheet1")
    Set wsTarget = ThisWorkbook.Sheets("Sheet2")
    
    lastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
    targetRow = 1 ' 目标表的起始行
    
    ' 遍历所有奇数行
    For i = 1 To lastRow Step 2
        ' 复制姓名到Sheet2的A列
        wsTarget.Cells(targetRow, "A").Value = wsSource.Cells(i, "A").Value
        ' 复制账号到Sheet2的D列
        wsTarget.Cells(targetRow, "D").Value = wsSource.Cells(i, "D").Value
        targetRow = targetRow + 1
    Next i
End Sub

怎么用这些VBA代码？ #

• 打开Excel，按下Alt + F11打开VBA编辑器
• 右键左侧的工作簿名称，选择「插入」→「模块」
• 把上面对应情况的代码粘贴进去
• 按下F5运行代码，或者回到Excel界面，点击「开发工具」→「宏」，选择对应的宏执行

小提醒 #

• 尽量避免用Select/Activate这类操作，不仅容易出错，处理大量数据时效率极低，直接操作单元格范围才是更优的选择
• 操作前记得备份原数据，避免意外情况丢失数据～

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