VBA分列需求求助：提取A列6位开头单元格至C、D列并去前导零

Hey，作为VBA新手遇到这个运行错误真的很常见，我帮你拆解下原有代码的问题，再给你完全符合需求的修正版代码！

原有代码的核心问题 #

• LastRow未赋值：你直接用了LastRow但没给它赋值，默认值是0，导致Range("A4:A" & LastRow)变成无效的A4:A0范围，这就是触发Runtime Error 1004的直接原因。
• 循环范围错误：需求里符合格式的单元格包括A2、A3，但你的循环只从A4开始，会漏掉目标单元格。
• 分隔符使用错误：需求里是3个空格作为分隔符，但你用了单个空格" "，拆分后的数组会完全不符合预期。
• 缺少格式校验：没有判断单元格是否符合「6位数字+3个空格+随机文本」的格式，会处理到不需要的空白或无效内容。
• 输出位置错误：原代码用r.Offset(2,3)是往下2行往右3列，而你需要的是同一行的C列（对应r.Offset(0,2)）和D列（r.Offset(0,3)）。
• 未处理前导零：没有把拆分出的数字去除前导零的逻辑。

修正后的代码 #

Option Explicit
Sub SplitColumn()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim r As Range
    Dim splitted() As String
    Dim numPart As String
    
    ' 指定操作的工作表，避免因活动工作表切换出错
    Set ws = ThisWorkbook.Sheets("test")
    
    ' 获取A列有内容的最后一行行号
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 遍历A2到A列最后一行的所有单元格
    For Each r In ws.Range("A2:A" & lastRow)
        ' 跳过空白单元格
        If Trim(r.Value) <> "" Then
            ' 检查单元格内容是否包含3个空格分隔符
            If InStr(r.Value, "   ") > 0 Then
                ' 用3个空格拆分内容，仅拆成两部分（避免文本内的空格干扰）
                splitted = Split(r.Value, "   ", 2)
                
                ' 校验第一部分是否为6位数字
                If Len(splitted(0)) = 6 And IsNumeric(splitted(0)) Then
                    ' 去除前导零：转成数值再转回字符串，自动消除前导零
                    numPart = CStr(CLng(splitted(0)))
                    
                    ' 将处理后的数字写入同一行的C列
                    r.Offset(0, 2).Value = numPart
                    ' 将对应文本写入同一行的D列，同时去除首尾多余空格
                    r.Offset(0, 3).Value = Trim(splitted(1))
                End If
            End If
        End If
    Next r
End Sub

代码关键说明 #

• 明确指定工作表对象，避免因Excel切换活动表导致的操作错误
• 动态获取A列最后一行，确保不会漏掉或多处理单元格
• 仅拆分出两部分内容，避免文本中的空格打乱结果
• 多层校验确保只处理符合格式的单元格，跳过空白或无效内容
• 通过数值转换自动去除数字的前导零，符合需求要求

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