ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 1779|回复: 12

[求助] 高难度作业,求帮忙!!急急急!

[复制链接]

TA的精华主题

TA的得分主题

发表于 2019-9-15 01:51 | 显示全部楼层 |阅读模式

如题:
      表2根据代码数字与表1的代码数字对比,如相同就将表一对应的”大类,中类,小类“分别填写到表2中,谢谢高手帮忙!!

工作簿1.rar

424.61 KB, 下载次数: 22

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-9-15 01:52 | 显示全部楼层
急急急。。。。

TA的精华主题

TA的得分主题

发表于 2019-9-15 09:09 | 显示全部楼层
凌晨发的帖子十有八九要沉,再急也么用啊

工作簿1.zip

1.1 MB, 下载次数: 15

TA的精华主题

TA的得分主题

发表于 2019-9-15 09:21 | 显示全部楼层
  1. Sub t()
  2. Dim i, d
  3. Set d = CreateObject("Scripting.Dictionary")
  4. For i = 2 To Sheet2.[a65536].End(3).Row
  5. d(Sheet2.Range("a" & i).Value & "") = Array(Sheet2.Range("f" & i), Sheet2.Range("g" & i), Sheet2.Range("h" & i))
  6. Next i
  7. For i = 2 To [c65536].End(3).Row
  8. Range("k" & i & ":m" & i) = d(Range("c" & i).Value & "")
  9. Next i
  10. End Sub
复制代码

TA的精华主题

TA的得分主题

发表于 2019-9-15 09:43 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
Option Explicit
Dim sh As Worksheet, sht As Worksheet
Sub my_find(sh As Worksheet, rg As Range, sht As Worksheet, rng As Range)
        Dim ar, d As Object, i&, s$
        ar = rg.Value
        Set d = CreateObject("scripting.dictionary")
        For i = 2 To UBound(ar)
            s = ar(i, 1)
            If s <> "" Then
                    d(s) = ar(i, 6) & "," & ar(i, 7) & "," & ar(i, 8)
            End If
        Next
        If d.Count = 0 Then End
        Erase ar
        ar = rng
        For i = 2 To UBound(ar)
            s = ar(i, 1)
            If d.exists(s) Then
                    ar(i, 9) = Split(d(s), ",")(0)
                    ar(i, 10) = Split(d(s), ",")(1)
                    ar(i, 11) = Split(d(s), ",")(2)
            End If
        Next
        rng = ar
        With sht.UsedRange
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .EntireColumn.AutoFit
        End With
End Sub
Sub 查找()
    Dim i&, m&
    Set sh = ThisWorkbook.Sheets("表1")
    Set sht = ThisWorkbook.Sheets("表2")
    i = sh.Range("a" & sh.Rows.Count).End(xlUp).Row
    m = sht.Range("c" & sht.Rows.Count).End(xlUp).Row
    my_find sh, sh.Range("a1").Resize(i, 8), sht, sht.Range("c1").Resize(m, 11)
End Sub

TA的精华主题

TA的得分主题

发表于 2019-9-15 09:56 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2019-9-15 10:05 | 显示全部楼层
  1. =VLOOKUP($C2,表1!$A:$H,COLUMN(F1),)
复制代码
右拉下拉

TA的精华主题

TA的得分主题

发表于 2019-9-15 10:53 | 显示全部楼层
本帖最后由 xiangbaoan 于 2019-9-15 11:39 编辑

………………

补(两种方法).rar

518.73 KB, 下载次数: 7

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-9-15 14:05 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2019-9-15 14:10 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
VLOOKUP($C3,表1!$A$2:$H$6571,COLUMN(F$1),0)用公式更简单方便,不是什么都一定要vba的,如果偶尔才弄一次这样的用代码浪费时间
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 20:13 , Processed in 0.057685 second(s), 10 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表