VBA检查移动单元格值代码报错，疑因<>8条件问题求助

问题根源 #

原代码里的WorksheetFunction.CountIf(Range("L:L"), "<>8")完全错了——它是在判断单元格值不等于数字8，但你要的是找内容长度不等于8的单元格，这直接导致循环条件失效，甚至报错。另外硬编码i=1 To 147也不够灵活，适配性差。

修正后的代码 #

Sub MoveCells()
    Dim ws As Worksheet
    Dim lastRow As Long, lastCol As Long
    Dim cell As Range
    Dim hasInvalid As Boolean
    
    Set ws = ActiveSheet ' 可以改成具体工作表，比如ThisWorkbook.Sheets("你的表名")
    columnToCheck = 12 ' L列的列号
    
    Do
        hasInvalid = False
        lastRow = ws.Cells(ws.Rows.Count, columnToCheck).End(xlUp).Row
        
        ' 从下往上遍历，防止左移后跳过未处理的单元格
        For Each cell In ws.Range(ws.Cells(lastRow, columnToCheck), ws.Cells(2, columnToCheck))
            If Not IsEmpty(cell.Value) Then
                ' 转字符串确保数值型单元格的长度计算准确
                If Len(CStr(cell.Value)) <> 8 Then
                    hasInvalid = True
                    ' 获取当前行最后有数据的列
                    lastCol = cell.End(xlToRight).Column
                    ' 批量左移右侧单元格，替代逐列循环
                    If lastCol > columnToCheck Then
                        ws.Range(cell, ws.Cells(cell.Row, lastCol - 1)).Value = ws.Range(cell.Offset(0, 1), ws.Cells(cell.Row, lastCol)).Value
                        ws.Cells(cell.Row, lastCol).ClearContents
                    End If
                End If
            End If
        Next cell
    Loop While hasInvalid ' 直到L列所有非空单元格长度都是8
End Sub

关键修改说明 #

• 循环条件修正：用hasInvalid变量跟踪是否存在不符合要求的单元格，替代错误的CountIf判断，完全匹配你的需求。
• 从下往上遍历：避免左移操作导致下方单元格被提前扫描，出现漏处理的情况。
• 动态列范围：用cell.End(xlToRight).Column自动获取当前行最后有数据的列，不用硬编码列数，适配不同数据结构。
• 批量赋值优化：直接批量移动整段单元格，比逐列循环效率高很多。
• 字符串转换：CStr(cell.Value)确保数值、文本型单元格都能正确计算长度。

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