多表转置汇总

java1987java

子表的格式都是一样的 需要汇总成一张正表

一把小刀闯天下

Option Explicit

Sub test()
  Dim arr, i, m, sht
  ReDim brr(1 To 10 ^ 3, 1 To 6)
  For Each sht In Sheets
    If sht.Name <> "合并" Then
      arr = sht.[b1].Resize(UBound(brr, 2))
      m = m + 1
      For i = 1 To UBound(arr, 1)
        brr(m, i) = arr(i, 1)
      Next
    End If
  Next
  Sheets("合并").[a2].Resize(UBound(brr, 1), UBound(brr, 2)) = brr
End Sub

java1987java

一把小刀闯天下 发表于 2019-10-9 10:51
Option Explicit

Sub test()

大佬  这句"  ReDim brr(1 To 10 ^ 3, 1 To 6)" 什么意思   如果有十几个子表改动数字3吗

一把小刀闯天下

java1987java 发表于 2019-10-9 11:02
大佬  这句"  ReDim brr(1 To 10 ^ 3, 1 To 6)" 什么意思   如果有十几个子表改动数字3吗

重定义的输出数组，最大输出1000行。如果每个子表包含一条数据，最多可以支持1000个子表，自己修改，，，

Jason_WangSS

1. Sub 合并()
   
2. 
   
3. Dim sh As Worksheet
   
4. Dim arr()
   
5. 
   
6. ReDim arr(1 To 6, 1 To Sheets.Count - 1)
   
7. For Each sh In Sheets
   
8.     If sh.Name <> "合并" Then
   
9.     i = i + 1
   
10.         For j = 1 To 6
    
11.         arr(j, i) = sh.Cells(j, 2)
    
12.         Next
    
13.     End If
    
14. Next
    
15. Sheets("合并").[a2].Resize(UBound(arr, 2), UBound(arr, 1)) = WorksheetFunction.Transpose(arr)
    
16. 
    
17. End Sub

复制代码