VBA宏运行时错误438：3位长度单元格左移一列失败求助

原代码错误原因 #

你的代码触发438错误，核心问题有两个：

1. 循环中未选中目标cell就直接调用Selection，此时Selection指向的并非当前遍历的单元格，导致后续操作对象错误
2. 误用了不存在的ColumnOffset属性，VBA中单元格偏移需使用Offset方法

另外，用Copy/Paste实现内容转移完全没必要，直接赋值更高效，还能规避选择操作带来的bug。

修正后的代码 #

'Moving Group Codes
Dim cell As Range
For Each cell In Intersect(Range("C:C"), ActiveSheet.UsedRange)
    If Len(cell.Value) = 3 Then
        '直接将当前单元格内容赋值给左侧单元格
        cell.Offset(, -1).Value = cell.Value
        '若需清空原C列单元格，取消下方注释
        'cell.ClearContents
    End If
Next cell

关键说明 #

• 通过cell.Offset(, -1).Value = cell.Value直接完成内容转移，无需复制粘贴和选择操作，彻底避免Selection相关错误
• Intersect(Range("C:C"), ActiveSheet.UsedRange)确保仅遍历C列中实际有内容的行，减少无效循环
• 若需要移动后清空原C列的单元格，取消注释cell.ClearContents即可

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