EXCEL VBA实现VLOOKUP查找匹配 提升软实力

畅销 通过学习VBA实现VLOOKUP查找匹配功能入门VBA宏语言。

5.0 (个评分) 273人学习

中级 10课时 1小时15分钟 2022/05/05更新

资料下载

二维码 下载学堂APP 缓存视频离线看

    • 畅销套餐
    • 精选套餐
    • 人气套餐
    • 尊享套餐
    • 高薪套餐
跟着网管学习EXCEL常用函数与常用函数解决方案模板
总价:
37.00
套餐价:
13.12
节省
¥23.88
EXCEL2013中人人都需学习的EXCEL基础功能课程
1170人学习
¥5.00
学习更多EXCEL函数之index与offset引用函数的应用需求案例
5051人学习
¥1.70
excel强大功能应用之查找定位 条件定位CTRL+G/F5功能应用视频课程
4598人学习
¥2.40
更 多 11 门 课 程
一点点实践中学VBA
总价:
80.68
套餐价:
59.22
节省
¥21.46
通过5000米跑时间换算成绩分情景学习EXCEL函数与VBA视频课程
3459人学习
¥2.60
仓库 店铺 PDA盘点枪商品盘点数据文件整理与合并经验分享
438人学习
¥1.20
EXCEL+VBA管理filezilla FTP文件服务器用户 用户组 目录权限教程
1726人学习
¥22.00
更 多 5 门 课 程
EXCEL+bat批处理文件管理专题
总价:
40.50
套餐价:
25.45
节省
¥15.05
跟着网管学习EXCEL函数-IF逻辑判断从知道到学习视频课程
6483人学习
¥2.60
学习更多Excel函数之VLOOKUP查找匹配视频课程
43998人学习
¥3.00
Windows命令行bat/cmd脚本,文件批处理教程
43008人学习
¥26.00
更 多 7 门 课 程
学习windows命令行bat批处理脚本送EXCEL函数教程
总价:
38.80
套餐价:
14.12
节省
¥24.68
学习更多EXCEL函数-count Countif countifs条件计数函视频课程
8074人学习
¥2.40
学习更多Excel函数之left mid right字符串裁取函数应用视频课程
4683人学习
¥2.40
Windows命令行bat/cmd脚本,文件批处理教程
43008人学习
¥26.00
更 多 6 门 课 程
【王佩丰】白领进阶:Excel+PPT+VBA视频教程套餐
总价:
527.00
套餐价:
368.90
节省
¥158.10
【王佩丰】Excel 2010系列视频教程
4436510人学习
¥1.00
【王佩丰】Excel 2010数据透视表视频教程 完整版
1537405人学习
¥128.00
【王佩丰】PowerPoint2010视频教程
1730470人学习
¥199.00
更 多 4 门 课 程
数据分析 新人优惠券
  • 课程介绍
  • 课程大纲 试看
  • 讲师好课 27
  • 学员评价

你将会学到:

  • 通过学习VBA实现VLOOKUP查找匹配功能入门VBA宏语言。

适合人群:

日常工作中有使用Excel需求的。

学习计划:

建议一次学完。

课程目标:

通过学习VBA实现VLOOKUP查找匹配功能入门VBA宏语言。

课程简介:

课程目标:通过学习VBA实现VLOOKUP查找匹配功能入门VBA宏语言。
类别功能方法举例
基础知识VBA(Visual Basic for   Applications)宏语言Sub   shishi()
    End Sub

单元格赋值[单元格]
    [单元格范围]
[E1]=1
    [E1:F5]=2
Range("单元格")
    Range("单元格范围")
Range("E1")   = 1
    Range("E3:F5") = 2
Cells(行, 列) Cells(1, 5) = 1
Range与Cells组合Range(Cells(3, 5) ,   Cells(5, 6) )=2
Cells与Resize组合Cells(3, 5).Resize(3,   2) = 2
带变量单元格赋值Range("单元格")
    Range("单元格范围")
i   = 1
    j = 3
    k = 5
    Range("E" & i) = 1
    Range("E" & j & ":F" & 5) = 2
Cells(行, 列) r=1
    c=5
    Cells(r, c) = 1
Range与Cells组合r1   = 3
    r2 = 5
    c1 = 5
    c2 = 6
    Range(Cells(r1, c1), Cells(r2, c2)) = 2
Cells与Resize组合r1   = 3
    r2 = 5
    c1 = 5
    c2 = 6
    Cells(r1, c1).Resize(r2-r1+1, c2-c1+1) = 2
FOR循环FOR循环赋值列For   i = 1 To 20
    Range("A" & i) = i
    Next
FOR循环赋值列For   i = 1 To 20
    Cells(i, 1) = i
    Next
FOR循环赋值行For   i = 1 To 20
    Cells(1, i) = i
    Next
FOR循环赋值二维表For   i = 1 To 20
    For k = 1 To 20
    Cells(i, k) = i + k
    Next
    Next
IF判断If ThenIf   Range("A1") = 1 Then
    Range("B1") = 2
    End If
If Then ElseIf   Range("A1") = 1 Then
    Range("B1") = 2
    Else
    Range("B1") = 3
    End If
If Then ElseIf ThenIf   Range("A1") = 1 Then
    Range("B1") = 2
    ElseIf Range("A1") = 2 Then
    Range("B1") = 3
    End If
If Then ElseIf Then ElseIf   Range("A1") = 1 Then
    Range("B1") = 2
    ElseIf Range("A1") = 2 Then
    Range("B1") = 3
    Else
    Range("B1") = 4
    End If
   
功能实现VBA实现VLOOKUP功能查找匹配指定值look   = Range("A2")
    For i = 1 To 335
      If Range("O" & i) =   look Then
         Range("C2") =   Range("P" & i)
     End If
    Next
循环要查找的值For   l = 2 To 6
    look = Range("A" & l)
    For i = 1 To 335
      If Range("O" & i) =   look Then
         Range("C" & l) = Range("P"   & i)
     End If
    Next
    Next
功能进阶自动获取数据行数
ActiveSheet.[A65536].End(xlUp).Row
    Sheets("表名").[A65536].End(xlUp).Row 
跨表匹配执行前选选表Sheets("表名").Select
指定表数据Sheets("表名").Range("D2:F10")
信息表装入数组
Dim   tablearr
    tablearr=Range("D2:F10")
要匹配的值装入数组
Dim   lookarr
    lookarr=Range("A2:A10")
匹配结果装入数组一次输出
ReDim   shuchu(1 To jshs) 
    shuchu(i) =
    Range("B2:B10") = shuchu   
    Range("B2:B10") = Application.Transpose(shuchu)  
关闭屏幕更新
Application.ScreenUpdating   = False
    Application.ScreenUpdating = True


展开更多

课程大纲-EXCEL VBA实现VLOOKUP查找匹配 提升软实力

5

条学员评分 超过  “Excel”   99%的课程
      展开更多
      加载中
      没有了哦~

      ¥15.20

      立即购买
      关注公众号 领VIP会员
      下次再说

      点击打包下载,即可获取该课程全部资料

      打包下载
      迎新春满300减35 满400减50
      是否单独购买该课程?
      直接购买 去凑单
      在线
      客服
      APP
      下载

      下载Android客户端

      下载iphone 客户端

      官方
      微信

      关注官方微信

      返回
      顶部