Excel求助大神写一个VBA实现多个表中按条件抓取数据到一个表中vba多个sheet内查询数据

Question

如题所述

Answer 1

　　代码如下：用到数组写入，速度快。先将单元格区域写入数组，再导出到每个新建的表格。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 - 1Worksheets(Worksheets.Count).Range(\"d1\").Resize(UBound(arr, 1), 1) = WorksheetFunction.Index(arr, 0, a)Next End Sub 有个index函数的用法，用于获得二维数组其中的一维。不会的话直接问我，不嫌麻烦(ง •̀_•́)ง