筛选后数据执行Text to Columns触发1004错误的技术问询

错误原因 #

你的代码触发1004错误主要有两个核心问题：

1. 工作表对象未初始化：仅声明了ws变量，但未通过Set语句指定具体工作表，导致ws为空对象，调用其方法时直接报错。
2. 不连续区域不支持TextToColumns：筛选后SpecialCells(xlCellTypeVisible)返回的是多个不连续的单元格/区域，而TextToColumns仅支持对连续区域执行操作，直接调用会触发兼容性错误。

修复后的代码 #

Sub ParseInquiryData()
    Dim ws As Worksheet
    ' 指定目标工作表，替换为你的实际工作表名称
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    '1. 应用筛选
    ws.Range("A:A").AutoFilter Field:=1, Criteria1:="Inquiry*"
    
    '2. 对可见单元格逐区域执行Text to Columns
    Application.DisplayAlerts = False
    Dim visRng As Range
    Dim area As Range
    ' 处理无可见单元格的异常情况
    On Error Resume Next
    Set visRng = ws.Range("A:A").SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
    
    If Not visRng Is Nothing Then
        For Each area In visRng.Areas
            area.TextToColumns _
              DataType:=xlDelimited, _
              TextQualifier:=xlDoubleQuote, _
              ConsecutiveDelimiter:=True, _
              Space:=True
        Next area
    End If
    Application.DisplayAlerts = True
    
    '3. 清除筛选
    On Error Resume Next
    ws.ShowAllData
    On Error GoTo 0
End Sub

关键修改说明 #

• 新增Set ws = ...语句，明确指定要操作的工作表，解决对象未初始化问题。
• 通过循环遍历可见区域的每个连续子区域（Area），对每个子区域单独执行TextToColumns，规避不连续区域的兼容性限制。
• 增加错误捕获逻辑，避免筛选后无可见单元格时触发额外报错。

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