引用数据到对应的位置, 请大神求助.看表就懂,急急急

756082@qq.com

对比后,引用数据到对应的位置, 请大神求助.看表就懂

hasyh2008

Sub 数据导入()
  Dim Arr, Brr, Arc%, Brc%, Acl%, Bcl%
  Arr = Sheet1.Range("A1").CurrentRegion
  Brr = Sheet3.Range("A1").CurrentRegion
  For Arc = 1 To UBound(Arr)
      For Brc = 1 To UBound(Brr)
          If Arr(Arc, 3) & Arr(Arc, 4) = Brr(Brc, 4) & Brr(Brc, 5) Then
             Sheet1.Range(Sheet1.Cells(Arc, 5), Sheet1.Cells(Arc, 32)).Value = Sheet3.Range(Sheet3.Cells(Brc, 6), Sheet3.Cells(Brc, 33)).Value
          End If
      Next Brc
  Next Arc
End Sub