查询赋值

fnjpn · 发表于 2023-5-19 21:45

如何根据"基础数据表″中B列单元格查找在1-4中哪个工作表中，如果查到B5在工作表1中，则J5中填入1。

fnjpn · 发表于 2023-5-19 21:46

本帖最后由 fnjpn 于 2023-5-19 22:22 编辑

基础数据表B列均可在工作表1-4的B列中查到，查到后将表名填入基础数据表J列对应的行

吴中泉 · 发表于 2023-5-19 21:57

fnjpn 发表于 2023-5-19 21:46
基础数据表B列均可在工作表1-4中查到

请上附件，不然怎么能查到呢

3190496160 · 发表于 2023-5-19 21:58

上传一张图片是任何人都帮不了你的，上传附件也许会有办法

fnjpn · 发表于 2023-5-19 22:08

附件如下，请高手帮忙

fnjpn · 发表于 2023-5-19 22:10

3190496160 发表于 2023-5-19 21:58
上传一张图片是任何人都帮不了你的，上传附件也许会有办法

是的，请帮忙看看

fnjpn · 发表于 2023-5-19 22:20

fnjpn 发表于 2023-5-19 21:46
基础数据表B列均可在工作表1-4中查到

基础数据表B列均可在工作表1-4B列中查到，在哪个表查到，就将对应的表名填入基础数据表B列对应的j列

3190496160 · 发表于 2023-5-19 22:43

Sub CHAXU()
Application.ScreenUpdating = False
Dim ar As Variant
Dim d As Object, dc As Object
Set d = CreateObject("scripting.dictionary")
With Sheets("基础数据表")
r = .Cells(Rows.Count, 2).End(xlUp).Row
If r < 2 Then MsgBox "基础数据表为空！": End
.Range("j2:j" & r) = Empty
ar = .Range("a1:j" & r)
For i = 2 To UBound(ar)
      If Trim(ar(i, 2)) <> "" Then
         d(Trim(ar(i, 2))) = i
      End If
Next i
For Each sh In Sheets
      If IsNumeric(sh.Name) Then
         rs = sh.Cells(Rows.Count, 2).End(xlUp).Row
         br = sh.Range("b1:b" & rs)
         For i = 2 To UBound(br)
            If Trim(br(i, 1)) <> "" Then
                  xh = d(Trim(br(i, 1)))
                  If xh <> "" Then
                     ar(xh, 10) = sh.Name
                  End If
            End If
         Next i
      End If
Next sh
   .Range("a1:j" & r) = ar
End With
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160 · 发表于 2023-5-19 22:44

3190496160 · 发表于 2023-5-19 22:44

查询赋值(1).rar (25.06 KB, 下载次数: 13)

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

[求助] 查询赋值

查询赋值

评分

评分