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

最新推荐文章于 2023-06-04 20:02:35 发布

猎人伯爵

最新推荐文章于 2023-06-04 20:02:35 发布

阅读量2.3k

点赞数 1

文章标签： excel excel分列 excel分列批量实现 vba

本文链接：https://blog.csdn.net/weixin_43914200/article/details/89399343

版权

代码如下

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