[已解决]关于自动获值的问题，求助。

hanhxb

如附件：需要从每日的报表，如3.1,3.2--3.31从的A11单元格中获取：当日消耗水，如3.1日中A11单元格的：当日消耗水：1234m3，1234这4位数，而且一般都是4位数，但是当日消耗水量在单元格A11中的位置不确定，有可能是第2项，有可能是第4项等等。如何每日报表中获取当日消耗汇总到，汇总表中的B2--B32？

最佳答案

月排行榜 / 总排行榜

dsmch

2014-6-7 18:24

………………

跳转到最佳答案楼层

kevinshe

为什么不做下变更
把日报表放在同个工作薄的不用页签
A11不要用合并, 分行, 最后可以画个框,取消中间的阴影线
固定日耗水的行数, 数量写在后面的存储格

换个方式或许就行了

hanhxb

VBA方式不能解决么？

dsmch

1. Sub Macro1()
   
2. Dim wb As Workbook, mypath$, wj$, arr(1 To 31, 1 To 2)
   
3. mypath = ThisWorkbook.Path & ""
   
4. wj = Dir(mypath & "*.xls")
   
5. Application.ScreenUpdating = False
   
6. Do While wj <> ""
   
7.     If wj <> ThisWorkbook.Name Then
   
8.         Set wb = GetObject(mypath & wj)
   
9.         s = s + 1
   
10.         arr(s, 1) = wb.Sheets(1).[b2]
    
11.         arr(s, 2) = Val(Split(wb.Sheets(1).[a11], "当日消耗水：")(1))
    
12.         wb.Close 0
    
13.     End If
    
14.     wj = Dir
    
15. Loop
    
16. Range("a2:b200").ClearContents
    
17. Range("a2").Resize(s, 2) = arr
    
18. Application.ScreenUpdating = True
    
19. End Sub
    

复制代码

dsmch

………………