嘿，作为VBA新手能写出这样的代码已经超棒啦！咱们来一步步找出问题，把代码改得能正常运行，完美实现你的需求~

先说说原代码里的几个小问题 #

• 循环范围不对：你写的shTemp.Range("B" & LastRowTemp)只指定了单个单元格，没办法遍历所有需要检查的空白单元格
• VLOOKUP查找值错误：原代码用空白的B列单元格当查找值，这肯定搜不到数据呀！应该用Template里对应行的唯一标识（比如A列的值）去OriginalData里匹配
• 单元格引用语法错了：Range("C" & CheckCell)这种写法不对，要获取单元格的行号得用CheckCell.Row
• 缺少过程开头：代码只有End Sub，没有Sub 过程名()的开头部分
• 最后一行计算逻辑偏差：原代码取的是A列最后一行的下一行，但我们需要遍历Template里B列已有的所有数据行

修正后的完整代码 #

Sub AutoFillFromOriginalData()
    ' 定义工作表对象
    Dim shOrg As Worksheet: Set shOrg = ThisWorkbook.Sheets("OriginalData")
    Dim shTemp As Worksheet: Set shTemp = ThisWorkbook.Sheets("Template")
    
    Dim CheckCell As Range
    Dim LastRowTemp As Long
    
    ' 获取Template工作表B列的最后一行数据行号
    LastRowTemp = shTemp.Cells(shTemp.Rows.Count, "B").End(xlUp).Row
    
    ' 遍历B列从第2行到最后一行的所有单元格（假设第1行是表头）
    For Each CheckCell In shTemp.Range("B2:B" & LastRowTemp)
        ' 检查当前B列单元格是否为空（Trim处理纯空格的情况）
        If Trim(CheckCell.Value) = "" Then
            ' 用同一行A列的值作为查找键，到OriginalData的A2:E区域查找第5列的值，放到C列
            shTemp.Range("C" & CheckCell.Row).Value = Application.VLookup( _
                shTemp.Range("A" & CheckCell.Row).Value, _
                shOrg.Range("A2:E"), _
                5, _
                False _
            )
        End If
    Next CheckCell
End Sub

关键改动说明 #

1. 添加完整的过程结构：开头加了Sub AutoFillFromOriginalData()，让代码成为可执行的VBA过程
2. 正确获取遍历范围：用shTemp.Range("B2:B" & LastRowTemp)指定要遍历的B列数据区域（从第2行开始，跳过表头）
3. 修正VLOOKUP查找值：改用同一行A列的值作为查找键（如果你的标识列不是A列，改成对应的列号就行）
4. 正确引用目标单元格：用shTemp.Range("C" & CheckCell.Row)定位到同一行的C列单元格
5. 用Trim处理空白：Trim(CheckCell.Value) = ""可以同时处理单元格是空白或者只有空格的情况，更严谨

怎么使用？ #

1. 打开你的Excel文件，按下Alt + F11打开VBA编辑器
2. 插入一个新模块：右键点击工作簿名称 → 插入 → 模块
3. 把上面的代码复制粘贴进去
4. 回到Excel，按下Alt + F8，选择AutoFillFromOriginalData，点击执行就行

如果你的标识列不是A列、要检查的空白列不是B列、要填充的目标列不是C列，只需要修改代码里对应的列标识（比如把"A"改成"D"，"B"改成"E"，"C"改成"F"）就可以啦~

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