如何用公式、IF语句或VBA宏填充Excel列A缺失的列E代码？

当然可以！针对你的需求，我整理了两种最实用的实现方式，你可以根据自己的习惯和数据量选择：

一、公式+IF语句（无需编程，适合新手） #

这个方法简单直接，纯手动操作就能完成：

1. 先选一个空白辅助列（比如F列，避免直接在A列写公式出现循环引用）
2. 在F1单元格输入公式：

   =IF(A1="", E1, A1)
   

   逻辑很直白：如果A1是空值，就取E1的代码；如果A1已有内容，就保留原数据。
3. 把F1的公式下拉填充到所有有数据的行
4. 选中F列填充好的内容，右键「复制」，再选中A列对应区域，右键选择「粘贴值」，就能把E列的代码批量补到A列空白处了

如果你的A列空白是真正的空值（不是空格或隐藏内容），这个公式完全能搞定需求。

二、VBA宏（适合大量数据，一键自动化） #

如果数据行数特别多，手动拉公式太麻烦，用VBA宏可以一键完成填充：

1. 打开Excel文件，按下Alt + F11打开VBA编辑器
2. 在左侧「工程资源管理器」里右键点击你的工作表，选择「插入」→「模块」
3. 在代码窗口粘贴以下代码：

   Sub FillBlankAWithE()
       Dim targetSheet As Worksheet
       Dim lastRow As Long
       Dim currentRow As Long
       
       ' 可改成你实际的工作表名，比如Sheets("订单表")
       Set targetSheet = ActiveSheet
       ' 以E列为准获取最后一行，确保覆盖所有有数据的行
       lastRow = targetSheet.Cells(targetSheet.Rows.Count, "E").End(xlUp).Row
       
       ' 遍历每一行填充空白
       For currentRow = 1 To lastRow
           If targetSheet.Cells(currentRow, "A").Value = "" Then
               targetSheet.Cells(currentRow, "A").Value = targetSheet.Cells(currentRow, "E").Value
           End If
       Next currentRow
       
       MsgBox "填充完成！", vbInformation
   End Sub
   

4. 按下F5运行宏，或者回到Excel界面，点击「开发工具」→「宏」，选择FillBlankAWithE执行

小提醒： #

• 运行宏前最好备份文件，避免意外情况
• 如果A列的空白是空格（不是真正的空值），可以把代码里的""改成Trim(targetSheet.Cells(currentRow, "A").Value) = ""，就能忽略空格识别空白了

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