![](https://img-blog.csdnimg.cn/20190927151043371.png?x-oss-process=image/resize,m_fixed,h_224,w_224)
VBA
文章平均质量分 60
VBA
薛定谔_51
有问题直接问,不要问在不在
展开
-
Excel·VBA合并工作簿
1,合并文件夹下所有工作簿;2,合并工作簿中所有工作表;3,合并文件夹下所有工作簿中所有工作表;4,合并文件夹下所有工作簿中同名工作表;5,合并文件夹下所有工作簿中所有工作表,横向汇总数据;6,合并子文件夹所有工作簿中所有工作表,纵向汇总数据;7,合并子文件夹同名工作簿中同名工作表,纵向汇总数据;原创 2022-03-29 22:56:58 · 23278 阅读 · 48 评论 -
Excel·VBA按列拆分工作表、工作簿
1,工作表按列拆分为工作表;2,工作表按列拆分为工作簿;3,工作簿按列拆分;4,工作表按列拆分,支持多列关键值;5,工作表按列拆分,先拆分为工作簿再拆分为工作表原创 2022-01-10 17:03:33 · 16816 阅读 · 77 评论 -
Excel·VBA二维数组S形排列
将数组转为S形排列的二维数组,类似考场座位S形顺序原创 2024-04-11 10:26:49 · 1104 阅读 · 0 评论 -
Excel·VBA考勤打卡记录整理
看到一个帖子,每个人每天有4次打卡记录,需要整理出所有缺少的打卡记录。与之前的文章结果形式类似,与之前的文章查找上下班打卡时间的要求类似原创 2024-04-09 15:37:28 · 932 阅读 · 2 评论 -
Word·VBA文档合并
vba实现文档合并功能,将文件夹下所有文档合并为1个文档,可保留原文档格式原创 2024-04-05 14:14:21 · 1144 阅读 · 0 评论 -
Excel·VBA二维数组组合函数之穷举推理题
与之前《python穷举暴力破解《2018年刑侦推理题》用python穷举的推理题很类似,那么是否可以使用《Excel·VBA二维数组组合函数、组合求和》combin_arr2d函数,生成结果进行穷举呢?原创 2024-04-01 15:18:45 · 581 阅读 · 0 评论 -
Excel·VBA数组平均分组问题
一个数组内含n个元素,分成m组每组元素不重复,这m组一共包含该数组的n个元素,返回所有分组形式。计算所有分组形式的方差,获取方差值最小的分组形式原创 2024-03-25 15:53:29 · 773 阅读 · 0 评论 -
Excel·VBA数组分组问题
一个数组内含n个元素,分成m组每组元素不重复,这m组一共包含该数组的n个元素,返回所有分组形式原创 2024-03-25 15:12:21 · 1134 阅读 · 0 评论 -
Excel·VBA指定目标值切割分组
对1列数据按指定长度进行切割分组,获取每组的长度组成方式原创 2024-03-18 20:23:27 · 394 阅读 · 0 评论 -
Excel·VBA收益最大的运输路线
根据表中的起点和终点构成的路线,在一定的本金和时间限制下,获取收益最大的运输路线。采用类似《Excel·VBA数组排列函数》,尾数循环结束后,对之前的位置进位的方式,获取遍历所有可能路线,最终得到收益最大的运输路线原创 2024-02-10 21:58:19 · 774 阅读 · 0 评论 -
Excel·VBA时间范围筛选及批量删除整行
根据条件表中的开始时间和结束时间构成的时间范围,对数据表中的开始时间和结束时间范围内的数据进行筛选。以及Union批量删除整行存在的问题原创 2024-01-24 21:50:36 · 1756 阅读 · 0 评论 -
Excel·VBA合并工作簿2
8,合并文件夹下所有工作簿中所有工作表,按表头汇总原创 2024-01-20 21:16:29 · 1444 阅读 · 1 评论 -
Word·VBA实现邮件合并
之前写过的一篇使用《python实现word邮件合并》,本文为vba实现方法,可以按域名写入,也可按顺序写入原创 2024-01-11 20:33:57 · 1591 阅读 · 0 评论 -
Excel·VBA按指定顺序排序函数
与《Excel·VBA数组冒泡排序函数》不同,不是按照数值大小的升序/降序对数组进行排序,而是按照指定数组的顺序,对另一个数组进行排序。可使用开头匹配模式,字符串完全相同或开头相同时确定序号原创 2024-01-07 19:03:42 · 1932 阅读 · 0 评论 -
Excel·VBA二维数组组合函数的应用实例之概率计算
《李永乐老师的抖音 - 骰子概率问题》计算投出6个骰子恰好出现1、2、3、4、5、6这6个点数的概率原创 2024-01-03 17:01:19 · 759 阅读 · 0 评论 -
Excel·VBA下载URL链接网络文件
2种下载方式,可用于下载URL图片、网页等#If Win64 Then Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) A原创 2022-05-22 21:32:07 · 3563 阅读 · 0 评论 -
Excel·VBA单元格区域获取指定行列函数
office 365新增函数《CHOOSEROWS 函数》和《CHOOSECOLS 函数》可以获取单元格区域指定行、列,并返回一个单元格区域对于没有office 365又想使用这个函数,就只能自己写VBA代码自定义函数了num_arr参数:正数为行从上往下、列从左往右,1为最上/最左;负数则相反,-1为最下/最右,依次类推举例...原创 2022-06-11 17:25:15 · 7389 阅读 · 2 评论 -
Excel·VBA单元格区域按颜色求和等计算
1,单元格区域按颜色求和、计数、求平均值、最值2,单元格区域按颜色和值是否相等原创 2022-05-06 14:14:44 · 2719 阅读 · 1 评论 -
Excel·VBA文本按分隔获取函数
office 365新增函数《TEXTAFTER 函数》和《TEXTBEFORE 函数》可以对单元格文本,获取指定分隔符之前/之后文本对于没有office 365又想使用这个函数,就只能自己写VBA代码自定义函数了instance_num参数:正数为从左往右,1为最左;负数则相反,-1为最右举例......原创 2022-06-13 13:55:46 · 1340 阅读 · 0 评论 -
Excel·VBA读取文件信息shell
shell32可以方便的获取文件信息《用于脚本和 Microsoft Visual Basic的 Shell 对象》目录获取单个文件的所有信息获取音频、视频文件时长按视频时长移动至文件夹获取单个文件的所有信息Sub 获取文件信息() 'MsgBox弹出单个文件的所有信息,《注意文件名不能有空格》 filename = "D:\media\movie\飞驰人生.mp4" Dim fso As Object, shl As Object, shfd As Object, f As原创 2022-05-20 22:01:38 · 1525 阅读 · 0 评论 -
Excel·VBA单元格区域获取/删除连续行列函数
office 365新增函数《TAKE 函数》和《DROP 函数》可以获取/删除单元格区域开头或结尾连续行、列,并返回一个单元格区域对于没有office 365又想使用这个函数,就只能自己写VBA代码自定义函数了row和col参数:正数为行从上往下、列从左往右,1为最上/最左;负数则相反,-1为最下/最右,依次类推;参数为0时,mode为"+“则获取所有行/列,mode为”-"则删除所有行/列举例...原创 2022-06-12 17:20:45 · 1563 阅读 · 0 评论 -
Excel·VBA单元格重复值标记颜色
《excelhome提问-标记重复值的问题》,对同一行的多列内容都重复的标记颜色仅需选中要标记颜色的多列,即可运行代码;且不同的重复值标记不同颜色注意:由于使用了Union函数,故不支持单列;区分字母大小写选中列重复标记颜色原创 2022-04-12 17:24:10 · 4862 阅读 · 0 评论 -
Excel·VBA选中区域保存为txt文本
vba代码有3种写法,都可实现,适用单/多列选中、单/多列部分选中,选中区域内容保存为一个txt文件原创 2022-04-28 15:19:42 · 6392 阅读 · 1 评论 -
Excel·VBA单元格摘要备注内容提取
《excel吧提问-单元格摘要备注内容提取》,对单元格备注内容,分别提取姓名和金额注意:sub中的正则匹配局限性较大,小心使用,且仅支持操作英文括号()内的内容Private Function RE_STR(source_str As String, pat As String, Optional replace_str As String = "$1") '通用正则替换函数,函数定义RE(字符串,正则模式,替换值)对单元格返回正则替换后的字符串 With CreateObject("v原创 2022-04-02 16:28:10 · 1654 阅读 · 0 评论 -
Excel·VBA模板生成文件
不同于《python实现Excel邮件合并》,字符串内容替换生成文件,仅复制整行数据插入模板中生成工作表,单独保存为工作簿,但如果存在同名工作簿文件,则将工作表附加在该工作簿中Sub 模板生成工作薄() Application.Visible = False '后台运行,不显示界面 Application.DisplayAlerts = False '不显示警告信息 Dim arr, i, k, v, dict As Object, d As Object, fso As Ob原创 2022-04-24 22:54:00 · 1894 阅读 · 0 评论 -
Excel·VBA考勤打卡记录统计出勤小时
《excel吧提问-打卡记录统计出勤小时》,对上万行打卡记录进行统计,根据每人每日最早、最晚打卡记录得出当日出勤小时vba字典嵌套字典Sub 打卡记录转考勤表() Dim arr, name_dict, date_dict, ws, i, j, k tm = Now() arr = [a1].CurrentRegion.Value Set name_dict = CreateObject("scripting.dictionary") For i = 2 To U原创 2022-04-01 14:10:15 · 4358 阅读 · 0 评论 -
Excel·VBA一键计算每月合计
《vba吧提问-怎么写每月合计的代码》,对表格中每月合计的行进行计算Sub 选中列每月合计() '适用单/多列选中、单/多列部分选中 Dim rng As Range, first_row, last_row, first_col, last_col, col_add, sum_j, i month_total = Array(1, "本月合计") '每月合计所在列号 Set rng = Intersect(ActiveSheet.UsedRange, Selection原创 2022-04-03 15:19:35 · 2658 阅读 · 0 评论 -
Excel·VBA考勤打卡记录数据整理
《excel吧提问-转置打卡数据》,打卡记录进行数据整理,分别提取3个时间段的开始、结束时间。与之前写过的《Excel·VBA考勤打卡记录统计出勤小时》要求不同,仅需要提取打卡时间,特殊之处在于开始时间要最晚,而结束时间要最早将提取时间的特殊要求,定义为一个函数,后期调用时直接传参获取结果Private Function SEARCH_NUM(arr, target, Optional mode As String = "-") '函数定义SEARCH_NUM(数组,目标值,查找模式)按指定查原创 2022-04-08 10:58:27 · 3308 阅读 · 2 评论 -
Excel·VBA自定义函数判断单元格元素相同/重复
1,判断元素是否完全相同2,提取相同的元素3,提取重复的元素4,提取单元格区域重复/唯一的值原创 2022-04-04 22:57:32 · 4974 阅读 · 0 评论 -
Excel·VBA自定义函数获取单元格多数或少数值
《excel吧提问-单元格多数值》,返回多个单元格中出现最多次数的单元格的值适用多个单元格和单元格区域Function majority(mode, ParamArray args()) '函数定义majority(单元格1,单元格2,...)返回多个单元格出现次数最多/少的单元格的值 '适用多个单元格、单元格区域;2种查找模式,"+"即多数、"-"即少数原创 2022-04-22 16:56:12 · 1460 阅读 · 0 评论 -
Excel·VBA二维数组按行列拆分
Sub 二维数组按行列拆分() Dim arr, arr1, arr2, arr3 arr = [a1].CurrentRegion.Value '按行拆分 arr1 = Application.index(arr, 2) [f1].Resize(1, UBound(arr1)) = arr1 '按列拆分 arr2 = Application.index(arr, , 2) [f2].Resize(UBound(arr2), 1) = arr2 '原创 2022-04-04 14:20:27 · 2120 阅读 · 0 评论 -
Excel·VBA自定义函数扩展VLOOKUP
VLOOKUP函数功能是按列查找、最终返回该列所需查询所对应的值,是Excel中广泛应用的查找、核对的函数。但局限性在于,只能返回匹配到第1个值,如果需要返回指定第N个值,就需要编写自定义函数进行扩展Function VLOOKUP_INDEX(lookup_value As String, table_array As Range, Optional col_index As Integer = 2, Optional index As Integer = 1) As String '函数定义V原创 2022-02-18 23:01:20 · 2742 阅读 · 0 评论 -
Excel·VBA多个日期期间是否重叠、连续
多个日期期间是否重叠多个日期期间是否连续原创 2022-02-14 14:47:08 · 2680 阅读 · 1 评论 -
Excel·VBA自定义函数筛选单元格区域重复值
贴吧提问,Excel内置函数使用比较麻烦,VBA字典实现比较直观自定义函数UNIQUE_IF筛选单元格区域中的值,可以选择返回其中的唯一值或重复值,并用分隔符分隔。原创 2022-03-09 16:15:37 · 2641 阅读 · 0 评论 -
Excel·VBA按日期汇总数据(字典嵌套数组)
贴吧提问《求助 按周期在日期数据里提取最大值最小值,以及周一周天的数据》,使用字典嵌套数组可以很方便的获取数据注意:对于字典嵌套的数组,不可以像python一样直接对数组元素进行赋值修改,而应该对整个数组重新赋值如第12行代码如果是 If Weekday(rq) = 2 Then dict(nz)(2) = sj 则会报错Sub 按日期汇总数据() '字典嵌套数组,键为“**年**周”,值为Array(最大值, 最小值, 周一值, 周五值) Dim arr, i, rq, nz, sj原创 2022-02-20 18:37:01 · 3406 阅读 · 0 评论 -
Excel·VBA工作表导出为图片
Excel转图片,选中区域导出为图片,工作簿所有工作表导出为图片原创 2023-11-05 18:58:28 · 3201 阅读 · 4 评论 -
Excel·VBA统计表生成函数及应用实例
数值汇总:1,汇总多行多列数据,生成二维横纵统计表;2,对二维横纵统计表,拆分为多行多列数据字符串汇总:3,汇总多行多列数据,生成二维横纵统计表原创 2022-04-08 15:44:15 · 2493 阅读 · 0 评论 -
Excel·VBA按行拆分工作表
按照固定行数拆分工作表:1,工作表按行拆分为工作表;2,工作表按行拆分为工作薄;3,工作表按行拆分原创 2022-02-28 21:41:24 · 7464 阅读 · 8 评论 -
Excel·VBA单元格区域数据对比差异标记颜色
按行对比2个单元格区域的数据,并对有差异的区域(一个单元格区域有的,而另一个单元格区域没有的)标记颜色,且只要存在任意1个字符不同的,则标记颜色;或对相同的区域标记颜色原创 2023-10-18 20:22:44 · 1807 阅读 · 0 评论 -
Excel·VBA制作工资条
看到一篇博客,使用排序功能、函数制作工资条。但如果需要经常制作工资条,显然使用VBA更加方便原创 2023-10-18 11:49:51 · 1008 阅读 · 0 评论