工作表不固定单元格信息汇总-前辈们帮帮忙

lian848213

工作表不固定单元格信息汇总-前辈们帮帮忙

hongshan2019

008#食品调拨单和001#食品调拨单，格式是不是一样的？如果一样，很大大师就写了

hongshan2019

仅供参考。。。。。注意：把汇总表第1和第4列调整文本格式

半百

请测试。。。

1. Sub test()
   
2. p = ThisWorkbook.Path & ""
   
3. f = Dir(p & "*.xlsx")
   
4. Dim brr(1 To 10000, 1 To 11)
   
5. arr = Split("D6,F6,I6,D8,F8,I8,I10", ",")
   
6. crr = Array(3, 4, 7, 9)
   
7. Do While f <> ""
   
8.     If f <> ThisWorkbook.Name Then
   
9.         Set wb = Workbooks.Open(p & f)
   
10.         With wb.Sheets(1)
    
11.             i = 13
    
12.             s = .Cells(i, 3)
    
13.             Do While .Cells(i, 3) <> ""
    
14.                 n = n + 1
    
15.                 For j = 0 To 6
    
16.                     brr(n, j + 1) = .Range(arr(j))
    
17.                 Next
    
18.                 For j = 0 To 3
    
19.                     brr(n, j + 8) = .Cells(i, crr(j))
    
20.                 Next
    
21.                 i = i + 1
    
22.             Loop
    
23.         End With
    
24.         wb.Close
    
25.     End If
    
26.     f = Dir
    
27. Loop
    
28. [a2].Resize(n, 11) = brr
    
29. End Sub
    
30. 
    

复制代码

lian848213

hongshan2019 发表于 2024-2-1 15:19
仅供参考。。。。。注意：把汇总表第1和第4列调整文本格式

是否可以跳过空的单元格

hongshan2019

lian848213 发表于 2024-2-1 15:43
是否可以跳过空的单元格

空的单元格是啥？你这举例中没出现

lian848213

汇总的单元格出现了空值，就出现运行错误。

hongshan2019

lian848213 发表于 2024-2-1 15:50
汇总的单元格出现了空值，就出现运行错误。

就是那个工作簿没数据，是吧？

yynrzwh

不固定单元格信息汇总.rar (40.91 KB, 下载次数: 8)

2024-2-1 15:54 上传

点击文件名下载附件

hongshan2019

lian848213 发表于 2024-2-1 15:50
汇总的单元格出现了空值，就出现运行错误。

更新了，你看看。我按着工作簿没数据理解的