求老师帮忙，会件有说明

zhangcheng6688

借楼学习一下数组，打扰了
Sub test()
arr = [a2].CurrentRegion
brr = [h2].CurrentRegion
For i = 3 To UBound(arr)
   For j = 2 To UBound(brr)
      If Val(Left(arr(i, 1), 4)) = brr(j, 1) Then
         arr(i, 2) = "制造" & brr(j, 2) & "部"
      End If
   Next
Next
[a2].CurrentRegion = arr
End Sub

A九月

你是那块小饼干 发表于 2025-3-30 10:20
=VLOOKUP(LEFT(A3,4)*1,$H$3:$I$27,2,0)

正解，不过少个制造0部门

A九月

无关岁月 发表于 2025-3-30 10:18

正解，谢谢

沈默00

=XLOOKUP(--LEFT(A3,4),H:H,I:I)

A九月

沈默00 发表于 2025-3-30 11:01
=XLOOKUP(--LEFT(A3,4),H:H,I:I)

谢谢。。。

秃头发师

=XLOOKUP(--LEFT(A3,4),H:H,I:I,"")

mjm04

=CONCAT(IF(LEFT(A3,4)*1=$H$3:$H$27,$I$3:$I$27,""))

下拉

wbjjzhu

WPS

1. =XLOOKUP(REGEXP(A3,"^\d\.\d+")*1,$H$3:$H$27,$I$3:$I$27,"",0,1)

复制代码

gwjkkkkk

=IFNA(VLOOKUP(H3,HSTACK(--(TEXTBEFORE($A$3:$A$8,".",2)),$B$3:$B$8),2,0),"无")