|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
本帖最后由 zhangcheng6688 于 2024-5-24 15:34 编辑
学习一下数组,打扰了
Sub test()
arr = [g1].CurrentRegion
brr = [b1].CurrentRegion
For i = 2 To UBound(brr, 2)
If brr(1, i) = "" Then
brr(1, i) = brr(1, i - 1)
End If
Next
For i = 2 To UBound(arr)
For j = 1 To UBound(brr)
For k = 2 To UBound(brr, 2)
If arr(i, 1) = brr(2, k) And arr(i, 2) = brr(1, k) And arr(i, 3) = brr(j, 1) Then
arr(i, 4) = brr(j, k)
End If
Next
Next
Next
[g1].CurrentRegion = arr
End Sub
代码写得比较别扭,在处理合并单元格的时候 |
|