各位老师能否帮助开发一段VBA，从另一个表格抓取信息

gamezhu0705love

各位老师能否帮助写一段VBA代码，附件中有两个文件，“1”和“2”，主要想达成的想法是从“2”表中，搜索每一个sheet，只要sheet中表格的测试“ABC”下标记为x的ID号和浓度，抓取到表“1”的ID号和浓度列下。有几点可能要说明下：
1，表“2”中的sheet数量不定，之后可能会有多也可能会少，每个sheet中都会有这样的表（格式相同，起始位置相同）
2，表“2”中对应的测试数量也是同样不定，且不一定有目标测试“ABC"，但希望只要有的，且标记为x的行的ID和浓度能完成抓取，不标记为x的同样不需要。
3，两个excel可以一直放在一个文件夹中，名字也可以固定
4，希望表“1”的内容是可以一直添加下去的，而不是覆盖

本人虽然自学过一些VBA，但还是比较小白。希望各位老师有时间的话能帮助一下，万分感谢

小花鹿

楼主的救助要求写的很清楚                                                                                          

gamezhu0705love

朱荣兴 发表于 2018-8-18 08:34
在  1   中运行代码
Sub test()
ReDim brr(1 To 10000, 1 To 2)

谢谢老师的帮助  但是有一个问题就是"ABC"并不一定是固定在c2位置的  可能出现在d2 e2..... 同样也可能不出现  这段可能不能满足全部的情况   能否不吝赐教。。谢谢

lsc900707

1. Sub gj23w98()
   
2.     Dim brr(1 To 10000, 1 To 2)
   
3.     Set wb = Workbooks.Open(ThisWorkbook.Path & "\2.xlsx")
   
4.     For Each sht In wb.Sheets
   
5.         arr = sht.[a1].CurrentRegion
   
6.         For j = 3 To UBound(arr, 2)
   
7.             If arr(2, j) = "ABC" Then
   
8.                 For i = 3 To UBound(arr)
   
9.                     If Len(arr(i, j)) Then
   
10.                         m = m + 1
    
11.                         brr(m, 1) = arr(i, 1)
    
12.                         brr(m, 2) = arr(i, 2)
    
13.                     End If
    
14.                 Next
    
15.             End If
    
16.         Next
    
17.     Next
    
18.     wb.Close False
    
19.     If m Then
    
20.         r = Cells(Rows.Count, 1).End(3).Row + 1
    
21.         If r = 2 Then r = 3
    
22.         Cells(r, 1).Resize(m, 2) = brr
    
23.     Else
    
24.         MsgBox "没有合乎条件的数据！"
    
25.     End If
    
26.     Set wb = Nothing
    
27. End Sub
    

复制代码

lsc900707

附件供参考：

gamezhu0705love

lsc900707 发表于 2018-8-18 12:06
附件供参考：

感谢大神，完美解决了这个问题，抱歉昨天一整天不在家，今天才能上论坛。谢谢
同时也想学习下，老师的代码里怎么做到If Len(arr(i, j)) Then和  If m Then  怎么做到不需要输入条件就判断的，或者说这里省略的含义是什么意思。谢谢啦

lsc900707

gamezhu0705love 发表于 2018-8-19 18:41
感谢大神，完美解决了这个问题，抱歉昨天一整天不在家，今天才能上论坛。谢谢
同时也想学习下，老师的代 ...

后面都省略了大于零。

gamezhu0705love

lsc900707 发表于 2018-8-19 19:15
后面都省略了大于零。

懂了。谢谢