多个工作表取不同位置数据

VBA怎么学

使用VBA快速将多个工作表不同位置数据整合在一起，请有空的高手帮忙 看看。谢谢

fyure

。。。。。。。。。

lsc900707

1. Sub gj23w98()
   
2.     Dim brr(1 To 999, 1 To 2)
   
3.     For Each sht In Sheets
   
4.         If sht.Name <> ActiveSheet.Name Then
   
5.             With sht
   
6.                 arr = .UsedRange
   
7.                 For i = 1 To UBound(arr)
   
8.                     For j = 1 To UBound(arr, 2)
   
9.                         If InStr(arr(i, j), "开发") Then
   
10.                             m = m + 1
    
11.                             brr(m, 1) = sht.Name
    
12.                             brr(m, 2) = arr(i, j + 1)
    
13.                         End If
    
14.                     Next
    
15.                 Next
    
16.             End With
    
17.         End If
    
18.     Next
    
19.     If m Then [a1].CurrentRegion.Offset(1).ClearContents: [a2].Resize(m, 2) = brr
    
20. End Sub

复制代码

lsc900707

代码在审核，附件供测试：

VBA怎么学

fyure 发表于 2018-9-27 15:41
。。。。。。。。。

可以使用了。感谢

VBA怎么学

谢谢各位解答，如果还需要在增加一个条件（增加取所有工作表中同个位置的单元格）。麻烦在看看。谢谢