Hey there! Sounds like you're dealing with a common Excel task where you need to fill blank cells with the corresponding group value that changes every few rows. Let's walk through a few straightforward methods to get this done, depending on how you prefer to work.

方法1：快速定位填充（适合一次性操作） #

This is the fastest way if you don't need the data to update dynamically later:

1. 选中需要填充的目标列（比如包含分组标题和空白单元格的列）
2. 按下 Ctrl+G 打开「定位」窗口，点击「定位条件」，选择「空值」，然后点击确定
3. 此时所有空白单元格都会被选中，直接输入 =A1（这里的A1是当前选中单元格的上一个非空单元格，Excel会自动调整引用为对应行的上一个有效值）
4. 按下 Ctrl+Enter，所有空白单元格就会瞬间填充上对应的分组值

示例效果 #

当前表格状态：

类别	产品
电子产品	手机
	电脑
	平板
家居用品	沙发
	床
	衣柜

填充后效果：

类别	产品
电子产品	手机
电子产品	电脑
电子产品	平板
家居用品	沙发
家居用品	床
家居用品	衣柜

方法2：公式法（适合数据动态更新） #

If your source data might change later and you want the filled cells to update automatically, use this formula:

选中第一个空白单元格，输入：

=LOOKUP(2,1/($A$1:A1<>""),$A$1:A1)

然后下拉填充到所有需要的行。

原理说明 #

• $A$1:A1<>"" 会检查从A1到当前行的所有单元格是否非空，返回一组TRUE/FALSE值
• 1/($A$1:A1<>"") 把TRUE转为1，FALSE转为错误值#DIV/0!
• LOOKUP(2, ...) 会忽略错误值，找到最后一个非空单元格的值，也就是我们需要的分组标题

方法3：Power Query（适合大数据量） #

For large datasets, Power Query is more efficient and avoids manual steps:

1. 选中你的数据区域，点击「数据」选项卡 -> 「从表格/区域」（如果提示数据有标题，勾选确定）
2. 在Power Query编辑器中，选中需要填充的列
3. 点击「转换」选项卡 -> 「填充」 -> 「向下」
4. 点击「关闭并上载」，处理好的数据会自动导入到新工作表（或覆盖原数据，按需选择）

方法4：VBA宏（适合重复执行的场景） #

If you need to run this task regularly, a simple VBA macro can automate it:

1. 按下 Alt+F11 打开VBA编辑器
2. 插入一个新模块，粘贴以下代码：

Sub FillGroupBlanks()
    Dim targetWs As Worksheet
    Dim lastRow As Long
    Dim currentValue As String
    Dim i As Long
    
    ' 设置目标工作表，这里用当前激活的工作表
    Set targetWs = ActiveSheet
    ' 获取目标列的最后一行（这里假设是A列，按需修改为你的列号）
    lastRow = targetWs.Cells(targetWs.Rows.Count, "A").End(xlUp).Row
    
    ' 初始化第一个分组值
    currentValue = targetWs.Cells(1, "A").Value
    
    ' 遍历行填充空白
    For i = 2 To lastRow
        If targetWs.Cells(i, "A").Value = "" Then
            targetWs.Cells(i, "A").Value = currentValue
        Else
            ' 更新分组值为当前行的非空值
            currentValue = targetWs.Cells(i, "A").Value
        End If
    Next i
End Sub

3. 回到Excel，按下 Alt+F8 选择宏并执行即可

Pick the method that fits your workflow best—all of them will get you to your desired result! 😊

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