|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
借楼学习一下数组,打扰了
Sub test()
lastr = Cells(Rows.Count, "b").End(xlUp).Row
arr = Range("a1:e" & lastr)
lastr = Cells(Rows.Count, "h").End(xlUp).Row
brr = Range("g1:l" & lastr)
For i = 2 To UBound(brr)
For j = 2 To UBound(arr)
If brr(i, 2) = arr(j, 2) Or brr(i, 2) = arr(j, 4) Or brr(i, 2) = arr(j, 5) Then
For k = 3 To UBound(brr, 2)
brr(i, k) = arr(j, k - 1)
Next
End If
Next
Next
[g1].Resize(UBound(brr), UBound(brr, 2)) = brr
End Sub |
评分
-
1
查看全部评分
-
|