Excel跨工作表批量自动填充公式求助：50万行数据，空白行致快捷键失效

方法1：VBA宏高效处理 #

针对50万行的大数据量，VBA是最快的解决方案，还能灵活处理空白行：

Sub 批量拼接填充()
    Dim 数据源表 As Worksheet, 结果表 As Worksheet
    Dim 最后行 As Long, i As Long
    
    ' 替换成你的实际工作表名称
    Set 数据源表 = ThisWorkbook.Worksheets("数据工作表")
    Set 结果表 = ThisWorkbook.Worksheets("拼接结果表")
    
    ' 获取数据源表最后一行（基于A列非空行统计，可按需修改列号）
    最后行 = 数据源表.Cells(Rows.Count, "A").End(xlUp).Row
    
    ' 循环处理每一行
    For i = 1 To 最后行
        ' 自定义拼接逻辑，示例为A列+B列，可添加更多列（& 数据源表.Cells(i, "C").Value）
        If 数据源表.Cells(i, "A").Value <> "" Or 数据源表.Cells(i, "B").Value <> "" Then
            结果表.Cells(i, "A").Value = 数据源表.Cells(i, "A").Value & 数据源表.Cells(i, "B").Value
        End If
    Next i
End Sub

使用步骤：

• 按Alt + F11打开VBA编辑器
• 右键当前工作簿 → 插入 → 模块，粘贴上述代码
• 修改工作表名称和拼接规则，点击运行按钮（绿色三角）
• 几秒即可完成50万行的处理

方法2：Power Query 无代码方案 #

适合不熟悉VBA的用户，处理大数据量效率同样出色：

1. 切换到第一个数据工作表，选中数据区域（可直接选整列）
2. 点击「数据」选项卡 → 「从表格/区域」（若弹出提示勾选「我的表格有标题」）
3. 进入Power Query编辑器后，点击「添加列」→ 「自定义列」，输入拼接公式（示例：= [列1] & [列2]，替换为你的实际列名）
4. 点击「关闭并上载至」，选择第二个工作表作为目标位置，确认后即可生成拼接结果

方法3：名称管理器+公式填充（补充方案，不推荐超大数据量） #

如果偏好纯公式操作，可尝试：

1. 点击「公式」选项卡 → 「定义名称」，名称设为数据源范围，引用位置输入：OFFSET(数据工作表!$A$1,0,0,COUNTA(数据工作表!$A:$A),2)（数字2代表要拼接的列数，按需修改）
2. 在结果表的第一个单元格输入公式：=INDEX(数据源范围,ROW(),1)&INDEX(数据源范围,ROW(),2)（Excel 365直接回车，旧版需按Ctrl+Shift+Enter触发数组公式）
3. 选中该单元格，双击右下角填充柄，即可自动填充至对应行数（注：50万行可能出现卡顿，优先前两种方法）

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