我来帮你排查这段VBA代码的问题，然后给出正确的实现方案：

原代码的问题分析 #

你的代码有几个关键问题导致报错和无效：

• 变量赋值错误：直接mos = Range("B:B")会把B列所有值存入一个Variant数组，但后续遍历的是数组元素而非单元格对象，修改数组值不会同步到Excel单元格中。
• 空格判断错误：Left(xv, 1) = ""是判断字符为空字符串，而你要检测的是空格，应该写成Left(xv, 1) = " "。
• 逻辑不符合需求：原代码每次只删一个空格，但你需要一次性删除"Total:"前的5个空格，循环单个删效率低且容易出错。
• 未将修改后的值写回单元格：就算逻辑正确，你修改了xv变量，但没有把它赋值回对应的单元格，所以执行后看不到任何变化。

解决方案1：遍历单元格精确处理 #

这个方案会遍历B列所有有内容的单元格，精确检测开头是否为5个空格+"Total:"，然后直接修改单元格值：

Sub RemoveSpacesBeforeTotal()
    Dim cell As Range
    ' 只遍历B列中有常量值的单元格，避免遍历整列浪费资源
    For Each cell In ThisWorkbook.ActiveSheet.Range("B:B").SpecialCells(xlCellTypeConstants)
        Dim cellValue As String
        cellValue = cell.Value
        ' 检查单元格内容是否以5个空格+"Total:"开头（注意这里是5个空格）
        If Len(cellValue) >= 6 And Left(cellValue, 6) = "     Total:" Then
            ' 移除前5个空格
            cell.Value = Right(cellValue, Len(cellValue) - 5)
        End If
    Next cell
End Sub

解决方案2：用Replace函数快速替换 #

如果你确认所有需要修改的内容都是" Total:"（5个空格+Total:），可以用Excel的替换功能直接批量处理，代码更简洁：

Sub RemoveSpacesBeforeTotal_QuickReplace()
    With ThisWorkbook.ActiveSheet.Range("B:B")
        .Replace _
            What:="     Total:", ' 这里输入5个空格+Total:
            Replacement:="Total:", _
            LookAt:=xlPart, ' 如果要精确匹配整个单元格开头可以改成xlWhole
            MatchCase:=False
    End With
End Sub

提示：如果只想替换单元格开头的5个空格+"Total:"，把LookAt:=xlPart改成LookAt:=xlWhole即可（适合单元格内容就是" Total:"的情况）。

注意事项 #

• 运行代码前建议先备份Excel文件，避免误操作。
• 如果B列有公式生成的内容，把xlCellTypeConstants改成xlCellTypeFormulas即可处理公式结果。

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