按条件查找，并把查找到的内容复制到新的工作表

zh2783458

通过VBA把结算表一和结算表二两个工作表中Y列包含“全包”工地信息（带有浅绿色）的内容，复制到结算(全包)表所对应浅绿色单元格内（详见附件），谢谢！

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.3.20
   
2.     Dim arr, brr(1 To 10000, 1 To 23)
   
3.     On Error Resume Next
   
4.     For Each sht In Sheets(Array("结算表一", "结算表二"))
   
5.         arr = sht.UsedRange
   
6.         For i = 8 To UBound(arr) - 1
   
7.             If arr(i, 25) = "全包" Then
   
8.                 m = m + 1
   
9.                 For j = 2 To 24
   
10.                     brr(m, j - 1) = arr(i, j)
    
11.                 Next
    
12.             End If
    
13.         Next
    
14.     Next
    
15.     With Sheets("结算表(全包)")
    
16.         .[b8:x387] = ""
    
17.         .[b8].Resize(m, 23) = brr
    
18.     End With
    
19.     MsgBox "OK！"
    
20. End Sub
    

复制代码