循环实现每行按固定宽度拆分文本到列的问题排查

你的循环失效核心原因是With块绑定的是初始选中的ActiveCell，循环里执行.Activate切换单元格后，With的对象并没有更新，后续所有.Offset操作还是基于最初的单元格，导致逻辑混乱，循环相当于没真正遍历每行。

另外代码里用辅助列+公式找空格的方式没必要，直接用VBA内置的InStr函数就能获取第一个空格的位置，还能避免辅助列的麻烦。

下面是修正后的代码：

Sub SplitByFirstSpace()
    Dim ws As Worksheet
    Dim targetCol As Range
    Dim cell As Range
    Dim firstSpacePos As Integer
    
    ' 设置当前工作表，可根据需要修改
    Set ws = ActiveSheet
    ' 选中要拆分的列的第一个数据单元格（即你原本选中的单元格）
    Set targetCol = Range(ActiveCell, ActiveCell.End(xlDown))
    
    ' 遍历目标列的每个单元格
    For Each cell In targetCol
        ' 找到第一个空格的位置
        firstSpacePos = InStr(cell.Value, " ")
        If firstSpacePos > 0 Then ' 确保单元格里有空格才执行拆分
            ' 执行固定宽度拆分
            cell.TextToColumns Destination:=cell, _
                DataType:=xlFixedWidth, _
                FieldInfo:=Array(Array(0, 1), Array(firstSpacePos, 1)), _
                TrailingMinusNumbers:=True
        End If
    Next cell
End Sub

关键修改点： #

• 用For Each cell In targetCol直接遍历目标列，完全摒弃Select/Activate——这俩是VBA代码稳定性的常见杀手，能不用就不用。
• 用InStr(cell.Value, " ")直接获取第一个空格位置，省去辅助列的创建和清除步骤，效率更高。
• 增加If firstSpacePos > 0的判断，避免单元格无空格时执行拆分报错。
• 用变量绑定工作表和目标列，逻辑更清晰，后续修改也更方便。

另外你提到的代码语法高亮，在Stack Overflow里粘贴VBA代码时，只要用```vba包裹代码块，系统会自动生成语法高亮，无需手动设置颜色。

内容的提问来源于stack exchange，提问作者Sean S.