怎么把多表数据横向合并到一张表里

cdxq2008

列示文件中，将表A/B/C/D的数据复制到汇总表中，这里只做了4个表，有很多表需要合并为一张表，VBA代码应如何编写。求教各路大神！！！


excelhome的易用宝里有纵向合并为一列的，现在我需要的是筛选要合并的列横向排列（或者有数据的列横向合并）

鄂龙蒙

1. Sub 多表合并()
   
2.     [C3:AA24].Clear
   
3.     Application.ScreenUpdating = False
   
4.     Dim sht, arr, i, j, m
   
5.     Dim brr(1 To 24, 1 To 100)
   
6.     For Each sht In Sheets
   
7.         If sht.Name <> "合并" Then
   
8.             arr = sht.UsedRange
   
9.             For j = 3 To UBound(arr, 2)
   
10.                 m = m + 1
    
11.                 For i = 1 To 24
    
12.                     brr(i, m) = arr(i, j)
    
13.                 Next
    
14.             Next
    
15.         End If
    
16.     Next
    
17.     Application.ScreenUpdating = True
    
18.     If m > 0 Then [C1].Resize(24, m) = brr
    
19. End Sub

复制代码

kuangben8

1. Sub 合并()
   
2.     Dim sht As Worksheet, n%
   
3.     ActiveSheet.Range("A1").CurrentRegion.Offset(0, 2).ClearContents
   
4.     For Each sht In ThisWorkbook.Worksheets
   
5.         If sht.Name <> ActiveSheet.Name Then
   
6.             n = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
   
7.             If n = 1 Then
   
8.                 n = n + 2
   
9.             Else
   
10.                 n = n + 1
    
11.             End If
    
12.             sht.Range("A1").CurrentRegion.Offset(0, 2).Copy ActiveSheet.Cells(1, n)
    
13.         End If
    
14.     Next
    
15. End Sub

复制代码

列示文件.zip (25.52 KB, 下载次数: 41)

2020-1-10 20:57 上传

点击文件名下载附件

cdxq2008

  感谢大佬