提取数据求助

石克民

一页一页复制粘贴太慢，想学习快一点的方法，求高手指点。
数据如附件所示，需要汇总后的效果如Sheet1“建议汇总”所示。 感谢！

高个子

1. =IFERROR(INDIRECT(TEXT(SMALL(IF((T(OFFSET(INDIRECT("节点"&COLUMN($A:$F)&"!n2"),ROW($5:$99),))<>"")*(LEFT(T(OFFSET(INDIRECT("节点"&COLUMN($A:$F)&"!o2"),ROW($5:$99),)),4)<>"同建议项"),ROW($7:$101)+COLUMN($A:$F)/1%),ROW(A1)),"节点0!!r00c"&COLUMN(N1)),),"")&""

复制代码

象山海鲜

1. =LET(a,WRAPROWS(TOCOL(节点1:节点6!N7:P65536,1),3),FILTER(a,LEFT(INDEX(a,,2),4)<>"同建议项"))

复制代码

隔扣五人

1. Sub t()
   
2.     Dim ar, br, i, j, k, r, s, n, m
   
3.     Dim sht As Worksheet
   
4.     ReDim br(1 To 10000, 1 To 3)
   
5.     For Each sht In Worksheets
   
6.         If sht.Name Like "节点*" Then
   
7.             r = sht.Range("A60000").End(3).Row
   
8.             ar = sht.Range("n1:p" & r)
   
9.             For i = 7 To UBound(ar)
   
10.                 If ar(i, 1) <> "" Then
    
11.                     If Left(ar(i, 2), 3) <> "同建议" Then
    
12.                         k = k + 1
    
13.                         br(k, 1) = ar(i, 1)
    
14.                         br(k, 2) = ar(i, 2)
    
15.                         br(k, 3) = ar(i, 3)
    
16.                     End If
    
17.                 End If
    
18.             Next
    
19.         End If
    
20.     Next
    
21.     Columns("a:c").NumberFormatLocal = "@"
    
22.     Range("a1").Value = "建议项汇总表"
    
23.     Range("a2:c2").Value = Array("建议项编号 ", "建议措施描述", "措施类型")
    
24.     Range("a3").Resize(k, 3) = br
    
25. End Sub

复制代码

如果有用能送朵花花吗