excel分列---多页批量操作--vba宏实现

 代码如下

Sub 宏4()    //宏名字


    Dim j As Integer, Arr   //定义循环变量j,以及sheet数组Arr
    
    For j = 1 To 108  //对于1-108号sheet
   
    Worksheets(Array(j)).Select  //选中当前sheet
    Range("I3:I64").Select  //选中sheet中的要分列区域
    Selection.TextToColumns Destination:=ActiveCell, DataType:=xlDelimited, _
    TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
    Semicolon:=False, Comma:=False, Space:=True, Other:=True, OtherChar:= _
    ".", FieldInfo:=Array(Array(1, 1), Array(2, 9), Array(3, 1), Array(4, 1)), _
    TrailingMinusNumbers:=True  //分列函数配置 
    
    Next j//循环体


End Sub