横向竖向匹配问题

liwenhao96 · 发表于 2024-5-8 23:13

谢谢各位大佬解答！

mengrs · 发表于 2024-5-9 07:34

=VLOOKUP($I2,$A:$D,COLUMNS(A:$D))

zhangcheng6688 · 发表于 2024-5-9 12:17

学习一下数组，打扰了
Sub test()
arr = [i2].CurrentRegion
brr = [a1].CurrentRegion
For i = 2 To UBound(arr)
For j = 2 To UBound(arr, 2)
   For x = 2 To UBound(brr)
      For y = 2 To UBound(brr, 2)
         If arr(i, 1) = brr(x, 1) And arr(1, j) = brr(1, y) Then
            arr(i, j) = brr(x, y)
         End If
      Next
   Next
Next
Next
[I1].Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub

浮生若梦~~~ · 发表于 2024-5-9 21:00

无关岁月发表于 2024-5-8 19:34

MAP(J1:K1,LAMBDA(_a,MATCH(_a,A1:D1,))) 直接 MATCH(J1:K1,A1:D1,)

无关岁月 · 发表于 2024-5-9 21:04

浮生若梦~~~ 发表于 2024-5-9 21:00
MAP(J1:K1,LAMBDA(_a,MATCH(_a,A1:D1,))) 直接 MATCH(J1:K1,A1:D1,)

对的，这样少一次循环

		自动登录	找回密码
密码			免费注册

[求助] 横向竖向匹配问题

评分

评分