求助查找问题

小星光 · 发表于 2024-10-20 17:11

求助查找问题

小星光 · 发表于 2024-10-20 17:16

请用VBA编写。谢谢！

z865593849 · 发表于 2024-10-20 17:20

一对多的关系。实现不了

ykcbf1100 · 发表于 2024-10-20 17:29

附件供参考。。。

ykcbf1100 · 发表于 2024-10-20 17:30

参与一下。。。

小星光 · 发表于 2024-10-20 17:31

z865593849 发表于 2024-10-20 17:20
一对多的关系。实现不了

“编号”表J列根据K列查找“名称”表A列所对应的B列的编码

小星光 · 发表于 2024-10-20 17:37

小星光发表于 2024-10-20 17:31
“编号”表J列根据K列查找“名称”表A列所对应的B列的编码

ykcbf1100老师你好,得数要在编号表的

gwjkkkkk · 发表于 2024-10-20 17:45

Option Explicit
Sub TEST2()
Dim ar, br, i&, j&

Application.ScreenUpdating = False

ar = Worksheets(1).[A1].CurrentRegion.Value
With Worksheets(2)
      With .[J1].CurrentRegion
         br = .Value
         For i = 1 To UBound(br)
            br(i, 1) = Empty
            For j = 1 To UBound(ar)
                  If ar(j, 1) = br(i, 2) Then br(i, 1) = ar(j, 2): Exit For
            Next j
         Next i
         .NumberFormatLocal = "@"
         .Value = br
      End With
      .Activate
End With

Application.ScreenUpdating = True
Beep
End Sub

gwjkkkkk · 发表于 2024-10-20 17:47

参与一下。。。

z865593849 · 发表于 2024-10-20 17:49

本帖最后由 z865593849 于 2024-10-20 17:51 编辑

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

求助查找问题

评分

评分

评分