|
Sub 替换()
Dim arr, brr, j&, i&, k&
With Sheets("数据")
arr = .Range("a4:ap" & .[a65536].End(xlUp).Row)
End With
With Sheets("原始查询")
brr = .Range("a21:j" & .[a65536].End(xlUp).Row)
End With
For j = 1 To UBound(arr)
For i = 1 To UBound(brr)
If arr(j, 4) = brr(i, 10) And arr(j, 2) = brr(i, 1) And arr(j, 3) = brr(i, 2) Then
For k = 1 To 7
arr(j, k + 27) = brr(i, k + 4)
Next k
End If
Next i
Next j
With Sheets("数据")
.Range("A4").Resize(UBound(arr), UBound(arr, 2)) = arr
End With
End Sub
这是fjmxwrs版主,帮忙做的查询。但我引用其他工作表时会出现,数据不匹配。怎么回事!
源文件太大,无法上传!
数据表的a4单元格为原点,向下扩展很多(数组arr的1维上界)行,向右扩展(数组arr的2维上界)列,即划定一个范围。然后,把arr里的值导出到这个范围。
|
|