如何为Excel VBA添加循环实现从E列到CS列的文本分列？

原代码仅能处理E列第3行开始的数据，以下是修改后的代码，可实现从E列到CS列依次对每列第3行起的数据执行文本分列：

Sub TextToColumn()
    Dim colNum As Integer
    Dim targetRange As Range
    
    ' 循环遍历E列(第5列)到CS列(第97列)
    For colNum = 5 To 97
        ' 定位当前列第3行到该列最后一行有数据的范围
        Set targetRange = Range(Cells(3, colNum), Cells(3, colNum).End(xlDown))
        
        ' 执行文本分列
        targetRange.TextToColumns Destination:=Cells(3, colNum), _
            DataType:=xlDelimited, _
            TextQualifier:=xlDoubleQuote, _
            ConsecutiveDelimiter:=False, _
            Tab:=True, _
            Semicolon:=False, _
            Comma:=False, _
            Space:=False, _
            Other:=False, _
            FieldInfo:=Array(1, 1), _
            TrailingMinusNumbers:=True
    Next colNum
    
    ActiveWorkbook.Save
End Sub

关键修改说明： #

• 新增For循环遍历目标列范围：E列对应列号5，CS列对应列号97，循环覆盖所有需要处理的列
• 移除原代码中低效的Select操作，直接通过列号定位单元格范围，提升代码运行效率
• 每列单独定位数据范围，确保只处理该列第3行到最后一行的有效数据
• 保留原文本分列的参数设置（按制表符分隔等），保证处理逻辑和原代码一致

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