Excel首列删除冒号左侧文本时触发400错误，求解决方法

原代码的问题 #

• LastRow获取错误：Cells(Rows.Count, 1).End(xlUp)返回的是单元格对象，不是行号，必须加上.Row才能得到正确的最后行行号，这是引发400错误的核心原因。
• 截取逻辑不符合需求：用固定的Len(tmp)-21截取右侧内容，只适用于左侧文本长度固定的情况，无法适配所有包含冒号的场景，应该根据冒号的位置动态处理。

修正后的VBA代码 #

Sub cleanLoginTime()
    Dim cell As Range
    Dim MyRange As Range
    Dim tmp As String
    Dim colonPos As Integer ' 存储冒号的位置
    
    ' 正确获取A列最后一行的行号
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    ' 设置要处理的范围：从A2到最后一行
    Set MyRange = ActiveSheet.Range("A2:A" & LastRow)
    
    For Each cell In MyRange.Cells
        tmp = cell.Value
        ' 跳过空单元格
        If tmp <> "" Then
            ' 查找第一个冒号的位置
            colonPos = InStr(tmp, ":")
            If colonPos > 0 Then
                ' 截取冒号右侧的内容（冒号本身也删除，所以从colonPos+1开始）
                cell.Value = Mid(tmp, colonPos + 1)
            End If
            ' 如果没有冒号，保留原内容
        End If
    Next
End Sub

代码说明 #

• 补充.Row修正最后一行行号的获取方式，避免Range引用错误。
• 使用InStr函数定位第一个冒号的位置，动态截取右侧内容，适配所有包含冒号的文本场景。
• 增加空单元格判断，避免处理空值时出现异常。
• 若单元格内容无冒号，将保留原内容，不会破坏数据。

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