Excel中如何用同工作表另一列值替换空单元格？

方法一：公式法（无需宏，适配所有Excel版本） #

假设你要处理A列的空单元格，将其替换为B列对应行的值：

1. 在空白辅助列（比如C列）的第一个单元格（C1）输入公式：
   =IF(A1="", B1, A1)
2. 鼠标悬停在C1单元格右下角，指针变为十字形时，下拉填充公式到所有目标行
3. 若要将结果覆盖原列：选中C列所有结果，右键选择「复制」；再选中A列，右键选择「选择性粘贴」→「值」，完成后可删除辅助列C

如果使用Excel 365/2021版本，可使用动态数组公式提升效率：
直接在C1输入：
=IF(A:A="", B:B, A:A)
公式会自动溢出填充到所有行，无需手动下拉。

方法二：VBA宏（直接修改原列，适合批量处理） #

若不想使用辅助列，可通过宏直接修改原列：

1. 按 Alt+F11 打开VBA编辑器
2. 右键左侧工程窗口中的目标工作表名称，选择「插入」→「模块」
3. 粘贴以下代码（可根据实际列调整代码中的列标识）：

Sub ReplaceBlanksWithCorrespondingValue()
    Dim rng As Range
    Dim cell As Range
    ' 设置要处理的列范围为A列，可修改为你需要的列
    Set rng = Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)
    For Each cell In rng
        If cell.Value = "" Then
            ' Offset(0,1)表示当前单元格右侧第1列（即B列），可修改偏移量对应其他列
            cell.Value = cell.Offset(0, 1).Value
        End If
    Next cell
End Sub

4. 按 F5 运行宏，目标列的空单元格会直接被对应列的值替换

无需借助其他平台，Excel自身的公式或宏功能即可完成需求。

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