VBA技术求助：如何动态将区域左上角数据偏移至左侧两列？

看起来你已经找对了方向，但现有代码还有几个小问题需要修正，而且只处理了第一列，没覆盖第二列，这就是没法达到预期效果的原因。咱们一步步来搞定：

原代码的问题 #

• 语法错误：If Cells(i, 1).Value = "" 后面缺少 Then，VBA的If语句必须搭配Then（单行写法除外）
• 只处理了第一列，但你需要同时填充第一列和第二列的空白行
• 没有添加效率优化（比如关闭屏幕更新），处理大量数据时会有明显闪烁

修正后的代码 #

Sub FillMissingColumns()
    Dim LastRow As Long
    Dim i As Long
    
    ' 关闭屏幕更新，提升运行速度（处理大量数据时效果明显）
    Application.ScreenUpdating = False
    
    ' 动态获取第三列的最后一行（因为你的核心数据都在第三列）
    LastRow = Cells(Rows.Count, 3).End(xlUp).Row
    
    ' 从第二行开始循环（如果报表有标题行，把2改成3即可）
    For i = 2 To LastRow
        ' 判断当前行第一列是否为空
        If Cells(i, 1).Value = "" Then
            ' 复制上一行的第一、第二列内容到当前行
            Cells(i, 1).Value = Cells(i - 1, 1).Value
            Cells(i, 2).Value = Cells(i - 1, 2).Value
        End If
    Next i
    
    ' 恢复屏幕更新
    Application.ScreenUpdating = True
    
    MsgBox "填充完成！", vbInformation
End Sub

代码细节解释 #

1. Application.ScreenUpdating = False：运行宏时不会频繁刷新屏幕，既提升速度又避免视觉干扰，最后一定要恢复为True。
2. 动态获取最后一行：Cells(Rows.Count, 3).End(xlUp).Row会自动定位到第三列最后一个有数据的行，完美适配你的动态报表需求，不管有多少行、多少个区域都能处理。
3. 循环填充逻辑：从第二行开始逐行检查，只要当前行第一列是空的，就把上一行的前两列内容复制过来——这样就能自动延续每个区域的左上角数据，直到遇到下一个有值的行。
4. 提示弹窗：MsgBox是可选的，用来直观提示你填充完成，方便确认结果。

测试效果验证 #

用你给出的示例报表测试：

4101 Canada GJ002568
4102 Mexico GJ002566
GJ002566
4103 Newcastle GJ002567
00001626
00001634

运行宏后会精准转换成你想要的格式：

4101 Canada GJ002568
4102 Mexico GJ002566
4102 Mexico GJ002566
4103 Newcastle GJ002567
4103 Newcastle 00001626
4103 Newcastle 00001634

额外小建议 #

• 如果你的报表有标题行，记得把循环起始行i = 2改成i = 3，避免覆盖标题内容。
• 运行宏前建议先备份报表，防止意外情况导致数据丢失。

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