Excel VBA技术问题：实现指定列空单元格填充另一列文本最后3个字符的代码运行失败排查

我来帮你修正这个VBA代码的问题，顺便优化一下效率——你的需求其实很清晰，但原代码有两个关键问题，咱们一步步解决：

原代码的问题分析 #

• 函数用反了：你需要取D列单元格的最后3个字符，但原代码用了LEFT（取左侧字符），应该换成RIGHT函数（取右侧字符）。
• 语法与逻辑错误：直接对整个Range("H1:H104000")判断为空并赋值的写法不符合VBA语法，而且会覆盖所有H列单元格，不管它原本是不是空的。

解决方案1：逐个单元格循环（适合新手理解） #

这个方法逻辑直白，容易调试，适合数据量不大的场景：

Sub FillEmptyHCells()
    Dim ws As Worksheet
    Dim cell As Range
    Dim targetRange As Range
    
    ' 指定要操作的工作表，把"Sheet1"改成你的工作表名称
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Set targetRange = ws.Range("H1:H104000")
    
    ' 遍历H列的每个单元格
    For Each cell In targetRange
        ' 仅处理空单元格
        If cell.Value = "" Then
            ' 取对应行D列的最后3个字符
            cell.Value = Right(ws.Cells(cell.Row, "D").Value, 3)
        End If
    Next cell
End Sub

解决方案2：数组批量处理（高效适配10万行数据） #

如果要处理10万行数据，逐个循环会比较慢，用数组批量操作能大幅提升速度（减少与Excel工作表的交互次数）：

Sub FillHCellsFast()
    Dim ws As Worksheet
    Dim hColumnData As Variant
    Dim dColumnData As Variant
    Dim rowNum As Long
    
    ' 指定工作表
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 把H列和D列的数据一次性读入内存数组
    hColumnData = ws.Range("H1:H104000").Value
    dColumnData = ws.Range("D1:D104000").Value
    
    ' 遍历数组处理数据
    For rowNum = LBound(hColumnData, 1) To UBound(hColumnData, 1)
        If hColumnData(rowNum, 1) = "" Then
            ' 处理D列字符不足3个的情况（可选：如果D列字符不够3个，直接取全部内容）
            If Len(dColumnData(rowNum, 1)) >= 3 Then
                hColumnData(rowNum, 1) = Right(dColumnData(rowNum, 1), 3)
            Else
                hColumnData(rowNum, 1) = dColumnData(rowNum, 1)
            End If
        End If
    Next rowNum
    
    ' 把处理好的数组写回H列
    ws.Range("H1:H104000").Value = hColumnData
End Sub

额外提示 #

• 如果需要给D列字符不足3个的情况补0（比如D列是"AB"，要变成"0AB"），可以把赋值语句改成：

  hColumnData(rowNum, 1) = Right("000" & dColumnData(rowNum, 1), 3)
  

• 运行代码前记得保存文件，避免意外丢失数据。

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