excel怎么利用vba实现批量套打快递单批量打（excel 使用vba快速提取快递信息）

代码如下：用到数组写入，速度快。先将单元格区域写入数组，再导出到每个新建的表格。Sub d() arr = ActiveSheet.Range("b1:u" & ActiveSheet.[b65536].End(3).Row) For a = 2 To UBound(arr, 2) Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = a - 1 Worksheets(Worksheets.Count).Range("d1").Resize(UBound(arr, 1), 1) = WorksheetFunction.Index(arr, 0, a) Next End Sub 有个index函数的用法，用于获得二维数组其中的一维。不会的话直接问我，不嫌麻烦(ง •̀_•́)ง