求VBA代码：当列为空时将值从一列复制到另一列及代码纠错

原代码存在的问题 #

1. 遍历范围错误：Range("Table1[[a]:[b]]")会遍历a、b两列的所有单元格，但你的逻辑是针对每行的a、b列关联操作，无需遍历两列，只需遍历目标列即可。
2. 单元格引用语法错误：cell("Table1[a]")不是合法的VBA单元格引用方式，无法正确定位对应行的目标单元格。
3. 需求与代码逻辑矛盾：你描述的需求是「当列a为空时，将列a的值复制到列b」，但代码逻辑是把b列的值赋给a列——如果a列为空，没有值可复制到b列，这显然不合理，推测你实际需求应该是当a列单元格为空时，将对应行b列的值填充到a列。

修正后的代码（针对「空a列填充对应b列值」的需求） #

Sub FillEmptyAFromB()
    Dim tbl As ListObject
    Dim aCol As ListColumn
    Dim bCol As ListColumn
    Dim i As Long
    
    ' 定位表格所在工作表与表格对象（替换为你的实际工作表名）
    Set tbl = ThisWorkbook.Worksheets("Sheet1").ListObjects("Table1")
    Set aCol = tbl.ListColumns("a")
    Set bCol = tbl.ListColumns("b")
    
    ' 遍历表格所有数据行
    For i = 1 To tbl.ListRows.Count
        ' 判断a列当前行是否为空
        If IsEmpty(aCol.DataBodyRange(i).Value) Then
            ' 将对应行b列的值赋值给a列
            aCol.DataBodyRange(i).Value = bCol.DataBodyRange(i).Value
        End If
    Next i
End Sub

代码说明 #

• 直接通过ListObject（表格对象）操作，比遍历单元格更高效且不易出错。
• 明确指定工作表和表格，避免因当前活动表变化导致的错误。
• 使用IsEmpty函数判断单元格是否为空，比直接对比Empty更可靠。

如果你的需求确实是「当b列为空时，将a列值复制到b列」 #

若你是描述时写反了需求，只需将代码中的aCol和bCol互换即可：

Sub FillEmptyBFromA()
    Dim tbl As ListObject
    Dim aCol As ListColumn
    Dim bCol As ListColumn
    Dim i As Long
    
    Set tbl = ThisWorkbook.Worksheets("Sheet1").ListObjects("Table1")
    Set aCol = tbl.ListColumns("a")
    Set bCol = tbl.ListColumns("b")
    
    For i = 1 To tbl.ListRows.Count
        If IsEmpty(bCol.DataBodyRange(i).Value) Then
            bCol.DataBodyRange(i).Value = aCol.DataBodyRange(i).Value
        End If
    Next i
End Sub

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