历遍70个工作簿并自动把每个文件F列最后一行的数据按顺序填入当前表格中。

非洲来的

疫情结束了，工作开始了，激情回来了...


恳请各位大神帮忙给出如题所需的代码！多谢！多谢！

题目：历遍多个（大于70）工作簿并自动把每个文件F列最后一行的数据按顺序填入当前表格中。

ykcbf1100

没有附件就上个图片吧，意思差不多，大致就这样了。

ykcbf1100

代码如下：

1. Sub 多工作簿提取数据()    '//2023.2.9
   
2.     Set Sh = ActiveSheet
   
3.     Dim arr, brr(1 To 1000, 1 To 1), p, f
   
4.     p = ThisWorkbook.Path & ""                '//文件路径
   
5.     f = Dir(p & "*.xls*")                      '//文件名
   
6.     Do While f <> ""
   
7.         If f <> ThisWorkbook.Name Then
   
8.             Set wb = Workbooks.Open(p & f, 0)
   
9.             Set sht = wb.Sheets(1)
   
10.             With sht
    
11.                 r = .Cells(.Rows.Count, "f").End(xlUp).Row
    
12.                 If r > 1 Then
    
13.                     m = m + 1
    
14.                     brr(m, 1) = .Cells(r, "f").Value
    
15.                 End If
    
16.             End With
    
17.             wb.Close False
    
18.         End If
    
19.         f = Dir
    
20.     Loop
    
21.     With Sh
    
22.         .UsedRange = Empty
    
23.         .[a1] = "F列数据"
    
24.         If m > 0 Then .[a2].Resize(m, 1) = brr
    
25.     End With
    
26. End Sub

复制代码

非洲来的

ykcbf1100 发表于 2023-2-9 12:37
代码如下：

我自己盲打了代码，确实可行，谢谢！鲜花已送。问题二：如果确定数据是在最后一行，但不知道是哪列，代码要如何变更？谢谢！

ykcbf1100

非洲来的 发表于 2023-2-9 17:32
我自己盲打了代码，确实可行，谢谢！鲜花已送。问题二：如果确定数据是在最后一行，但不知道是哪列，代码 ...

明天看看。

ykcbf1100

非洲来的 发表于 2023-2-9 17:32
我自己盲打了代码，确实可行，谢谢！鲜花已送。问题二：如果确定数据是在最后一行，但不知道是哪列，代码 ...

代码小改一下就行了。