请教：数据按条件分配

养海水鱼 · 发表于 2024-10-10 19:48

本帖最后由养海水鱼于 2024-10-11 08:36 编辑

请看附件，谢谢

ykcbf1100 · 发表于 2024-10-10 20:02

附件供参考。。。

ykcbf1100 · 发表于 2024-10-10 20:03

参与一下。。。

longwin · 发表于 2024-10-10 20:05

longwin · 发表于 2024-10-10 20:06

附件供参考。。。。

ylj518 · 发表于 2024-10-10 20:27

Sub test()
Dim arr, brr, i%, j%
arr = Range("b2").CurrentRegion
brr = Range("h2").CurrentRegion
For i = 2 To UBound(brr)
For j = 2 To UBound(arr)
If brr(i, 1) = arr(j, 2) Then brr(i, 2) = Right(arr(j, 1), 2)
Next
Next
Range("h2").Resize(UBound(brr), 2) = brr
End Sub

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

[已解决] 请教：数据按条件分配

评分

评分