[已解决]如何从多个工作表中提取某一行之后的数据到新工作表且显示原表名称

yolo

提取多个工作表固定行之后的所有数据汇总到一张表中 关键是如何显示原表名称 谢谢

最佳答案

月排行榜 / 总排行榜

qh8600

2014-11-28 17:52

1. Sub demo()
   
2.     Dim ar, br(1 To 60000, 1 To 9), n, x, i, j
   
3.     For x = 2 To Sheets.Count
   
4.         ar = Sheets(x).Range("a7:h" & Sheets(x).Cells(Rows.Count, 1).End(3).Row)
   
5.         For i = 1 To UBound(ar)
   
6.             n = n + 1
   
7.             br(n, 1) = Sheets(x).Name
   
8.             For j = 1 To UBound(ar, 2)
   
9.                 br(n, j + 1) = ar(i, j)
   
10.             Next
    
11.         Next
    
12.     Next
    
13.     Sheet1.Range("a2").Resize(n, 9) = br
    
14. End Sub
    

复制代码

跳转到最佳答案楼层

qh8600

1. Sub demo()
   
2.     Dim ar, br(1 To 60000, 1 To 9), n, x, i, j
   
3.     For x = 2 To Sheets.Count
   
4.         ar = Sheets(x).Range("a7:h" & Sheets(x).Cells(Rows.Count, 1).End(3).Row)
   
5.         For i = 1 To UBound(ar)
   
6.             n = n + 1
   
7.             br(n, 1) = Sheets(x).Name
   
8.             For j = 1 To UBound(ar, 2)
   
9.                 br(n, j + 1) = ar(i, j)
   
10.             Next
    
11.         Next
    
12.     Next
    
13.     Sheet1.Range("a2").Resize(n, 9) = br
    
14. End Sub
    

复制代码

qh8600

新建 Microsoft Office Excel 工作表.rar (20.3 KB, 下载次数: 261)

2014-11-28 17:55 上传

点击文件名下载附件

楼主试试

sun_wf

非常棒，qh8600 能改成多个工作簿内提取其中一行吗

hbsyhl

多谢楼主无私分享 ，下载下来试试看