如何在67k行QB报表电子表格中批量填充空白行的客户名称？

一、批量填充客户名称（针对67k行QB报表） #

方法1：Excel公式快速填充 #

• 假设客户名称在A列，表头在第1行，从A2开始有数据。在B2单元格输入公式：=IF(A2<>"",A2,B1)
• 选中B2，双击单元格右下角的填充柄，公式会自动向下遍历，遇到非空的客户名称就更新值，空白行直接继承上一个客户名
• 填充完成后，选中B列复制，右键点击A列选择「粘贴值」，覆盖原列后删除B列即可
• 要是总计行需要保留空白，把公式改成：=IF(A2<>"",A2,IF(ISNUMBER(SEARCH("总计",C2)),"",B1))（C列替换成你表格中总计行所在的列）

方法2：Power Query高效处理大文件 #

• 选中数据区域，点击「数据」选项卡→「从表格/区域」，勾选“我的表格有标题”进入编辑器
• 选中客户名称列，点击「转换」→「填充」→「向下」，所有空白行自动填充上方最近的客户名称
• 若要保留总计行空白：先筛选出包含“总计”的行，把客户名称列清空，取消筛选后再执行「填充向下」操作
• 点击「关闭并上载」，处理好的数据会导入新工作表，直接替换原表即可

方法3：VBA宏一键完成 #

• 按Alt+F11打开VBA编辑器，插入新模块，粘贴以下代码：

Sub FillCustomerNames()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim currentCustomer As String
    
    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    For i = 2 To lastRow
        If ws.Cells(i, "A").Value <> "" Then
            currentCustomer = ws.Cells(i, "A").Value
        Else
            ' 这里的"C"是总计行关键词所在列，根据实际调整
            If InStr(1, ws.Cells(i, "C").Value, "总计", vbTextCompare) = 0 Then
                ws.Cells(i, "A").Value = currentCustomer
            End If
        End If
    Next i
End Sub

• 回到Excel，按Alt+F8运行宏，几秒就能完成67k行的填充

二、邮箱匹配问题优化 #

• 用IFERROR包裹VLookup，直接处理无匹配的情况：=IFERROR(VLOOKUP(A2,邮箱表!$A:$B,2,FALSE),"无邮箱/未匹配")
• 要是需要区分“客户不在列表”和“有客户但无邮箱”，用这个公式：=IF(ISNUMBER(MATCH(A2,邮箱表!$A:$A,0)),IF(VLOOKUP(A2,邮箱表!$A:$B,2,FALSE)="","无邮箱",VLOOKUP(A2,邮箱表!$A:$B,2,FALSE)),"不在列表")

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