Excel VBA基础之带变量单元格赋值
{{ interaction.likeNum == 0 ? (pageType === 'video' ? '抢首赞' : '点赞') : formatNumber(interaction.likeNum) }}
{{ interaction.collectionNum == 0 ? '收藏' : formatNumber(interaction.collectionNum) }}
{{ interaction.discussNum == 0 ? (pageType === 'video' ? '抢沙发' : '讨论') : formatNumber(interaction.discussNum) }}
分享
适合人群
日常工作使用Excel较多,希望可以更好的使用Excel提升工作效率的职场人
你将会学到
通过学习VBA实现VLOOKUP查找匹配功能入门VBA宏语言。
- Excel函数
- Vlookup函数
- VBA编程实现VLOOKUP功能
课程简介
课程目标:通过学习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 Then | If Range("A1") = 1 Then Range("B1") = 2 End If | |
If Then Else | If Range("A1") = 1 Then Range("B1") = 2 Else Range("B1") = 3 End If | ||
If Then ElseIf Then | If Range("A1") = 1 Then Range("B1") = 2 ElseIf Range("A1") = 2 Then Range("B1") = 3 End If | ||
If Then ElseIf Then Else | If 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 |
展开更多
{{tips.text}}
{{ noteHeaderTitle }}
笔记{{ hasMyNote ? '我的笔记' : '记笔记' }}
{{ hasMyNote ? '我的笔记' : '记笔记' }}
优质笔记
更新于:{{ $dayjs.formate('YYYY-MM-DD HH:mm:ss', item.last_uptime*1000) }}
{{ detail.username }}
公开笔记对他人可见,有机会被管理员评为“优质笔记”
{{ noteEditor.content.length }}/2000
公开笔记
保存提问
讲师收到你的提问会尽快为你解答。若选择公开提问,可以获得更多学员的帮助。
记录时间点
记录提问时视频播放的时间点,便于后续查看
公开提问
提交课程大纲
自动连播
19课时
学习更多Excel函数之VLOOKUP查找匹配视频课程
45920人学习
孙忠
5.0
会员免费
6课时
EXCEL公式函数简易进销存系统的模板制作教程
13277人学习
孙忠
4.9
会员免费
11课时
学习更多EXCEL函数-count Countif countifs条件计数函视频课程
8170人学习
孙忠
4.9
会员免费
16课时
跟着网管学习EXCEL函数-IF逻辑判断从知道到学习视频课程
6875人学习
孙忠
5.0
会员免费
3课时
EXCEL函数,取最大值最小值四舍五入随机数max min round mod rand
5541人学习
孙忠
5.0
免费
5课时
学习更多EXCEL函数之index与offset引用函数的应用需求案例
5311人学习
孙忠
5.0
会员免费
7课时
学习更多Excel函数之left mid right字符串裁取函数应用视频课程
4767人学习
孙忠
5.0
会员免费
5课时
excel强大功能应用之查找定位 条件定位CTRL+G/F5功能应用视频课程
4726人学习
孙忠
5.0
会员免费