ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

   
EH云课堂-专业的职场技能充电站 限时送,魔方网表将Excel变在线系统 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 高效办公必会的Office实战技巧 免费下载Excel行业应用视频
300集Office 2010微视频教程 Tableau-数据可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 免费的Excel考勤计算系统
查看: 301|回复: 4

[求助] VBA代码替代多条件的VLOOKUP

[复制链接]

TA的精华主题

TA的得分主题

发表于 2019-1-8 21:30 | 显示全部楼层 |阅读模式
需求:根据“还款计划“中的 案件编号”以及“期数” 到 "还款流水"表中 匹配。匹配到就把对应的"还款本金","本金还款日期","还款利息","利息还款日期"
      填到“还款计划“ 对应的单元格中。
         原本是用VLOOKUP 根据多条件匹配的,但是数据量有点大,excel运行太慢还卡死,所有想给成VBA用数组+字典,添加一个按钮
         由人工触发匹配。
         希望大师帮帮忙,本人是VBA小白。先行谢过

test.rar

9.9 KB, 下载次数: 15

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-1-8 21:31 | 显示全部楼层
希望有走过路过的大师们,帮帮忙。谢谢

TA的精华主题

TA的得分主题

发表于 2019-2-2 09:41 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2019-2-3 14:55 | 显示全部楼层
见代码,希望能帮到你。
Sub cs1_Click()
  Dim ar, br, ha As Long, hb As Long
  Sheet1.Activate
  ar = Range("a2:l" & [b65536].End(3).Row)
  Range("a2:l" & [b65536].End(3).Row).ClearComments
  br = Sheet2.Range("b2:l" & Sheet2.[b65536].End(3).Row)
  For ha = 1 To UBound(ar)
    For hb = 1 To UBound(br)
      If ar(ha, 2) = br(hb, 1) And ar(ha, 6) = br(hb, 3) Then
        ar(ha, 8) = br(hb, 4): ar(ha, 9) = br(hb, 5)
        ar(ha, 10) = br(hb, 6): ar(ha, 11) = br(hb, 7)
        ar(ha, 12) = br(hb, 8)
        Exit For
      End If
    Next hb
  Next ha
  Range("a2").Resize(UBound(ar), UBound(ar, 2)) = ar
End Sub

TA的精华主题

TA的得分主题

发表于 2019-2-3 15:36 | 显示全部楼层
把原件发给你。

test.rar

30.29 KB, 下载次数: 13

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,每天学会一个新技能

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

GMT+8, 2019-3-20 22:14 , Processed in 0.114990 second(s), 14 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 2001-2017 Wooffice Inc.

   

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

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

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