求大神帮忙，新手搞不定啊！！！

quansohu

如何将各个表的数据提取到一个总表里面，我要把数据导入到数据库中。请求各位帮忙！！！非常急啊，这年头工作不好找。

quansohu

忘记传数据表上来了

yangyangzhifeng

quansohu 发表于 2016-12-18 21:46
忘记传数据表上来了

试试看

1. Sub test()
   
2.     Dim i&, j&, k&, arr, brr(1 To 65536, 1 To 8), sh As Worksheet
   
3.     Dim lastcol&, lastrow&, t$
   
4.     Dim r&
   
5.     For Each sh In Sheets
   
6.         t = sh.Name
   
7.         If t <> "汇总表" And t <> "提取表" Then
   
8.             lastrow = sh.Cells(Rows.Count, "D").End(xlUp).Row
   
9.             lastcol = sh.Cells(5, Columns.Count).End(xlToLeft).Column
   
10.             arr = sh.Range("a5", sh.Cells(lastrow, lastcol))
    
11.             For j = 8 To UBound(arr, 2)
    
12.                 For i = 3 To UBound(arr)
    
13.                     If Val(arr(i, j)) > 0 Then
    
14.                         r = r + 1
    
15.                         For k = 1 To 5
    
16.                             brr(r, k) = arr(i, k)
    
17.                         Next
    
18.                         brr(r, 6) = arr(1, j): brr(r, 7) = arr(i, j): brr(r, 8) = t
    
19.                     End If
    
20.                 Next
    
21.             Next
    
22.         End If
    
23.     Next
    
24.     Sheets("提取表").UsedRange.Offset(1).ClearContents
    
25.     Sheets("提取表").Cells(2, 1).Resize(r, UBound(brr, 2)) = brr
    
26. End Sub
    

复制代码

quansohu

yangyangzhifeng 发表于 2016-12-18 22:45
试试看

谢谢老师帮忙，现在有窑厂台区数据提取不全，这是为什么呢？

quansohu

本来人工解决不了的问题，现在分分鈡钟就搞定了。真是太感谢了，又看到了明天的太阳了。

yangyangzhifeng

quansohu 发表于 2016-12-18 23:20
谢谢老师帮忙，现在有窑厂台区数据提取不全，这是为什么呢？

自己看看是不是数据表格式不一样

quansohu

yangyangzhifeng 发表于 2016-12-19 07:40
自己看看是不是数据表格式不一样

原因已经找到了。谢谢老师！！！