|
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 |
|