按条件自动获取

chenhong0973

各位老师，最近自己在学VBA解决工作中表格计算的问题，写了个按条件自动获取的，但是只能获取一列的，我现在想获取表二中的B至I列数据，并填充至表一B至I列中（E和I不需要填充到表一的），请教各位老师，帮忙看看代码应该怎么修改。谢谢！

半百

ykcbf1100

用字典吧，更简单。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.4.10
   
2.     Application.ScreenUpdating = False
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     With Sheets("Sheet2")
   
5.         r = .Cells(Rows.Count, 1).End(3).Row
   
6.         arr = .[a1].Resize(r, 9)
   
7.     End With
   
8.     For i = 3 To UBound(arr)
   
9.         s = arr(i, 1)
   
10.         d(s) = i
    
11.     Next
    
12.     With Sheets("Sheet1")
    
13.         r = .Cells(Rows.Count, 1).End(3).Row
    
14.         brr = .[a1].Resize(r, 9)
    
15.         .UsedRange.Offset(2, 1) = ""
    
16.         For i = 3 To UBound(brr)
    
17.             s = brr(i, 1)
    
18.             If d.exists(s) Then
    
19.                 For j = 2 To UBound(brr, 2)
    
20.                     brr(i, j) = arr(d(s), j)
    
21.                 Next
    
22.             End If
    
23.         Next
    
24.         .[a1].Resize(r, 9) = brr
    
25.     End With
    
26.     Set d = Nothing
    
27.     Application.ScreenUpdating = True
    
28.     MsgBox "OK！"
    
29. End Sub
    

复制代码