wei1019的专栏

本期分享编程技能：利用正则表达式获取单位符号如“米2”，并通过font.Superscript将数字2自动设置成上标，即米²

本期分享编知识：利用日期函数DateDiff计算日期间隔问题

本期分享编程基础知识：利用Range对象属性Interior.Color按照单元格背景色统计数据

本期分享编程知识：利用VBA创建自定义函数，将复杂的Excel公式封装为简洁的函数，解决晦涩难懂的Excel公式嵌套问题

了解众数（WorksheetFunction.Mode）和中位数（WorksheetFunction.Median），以及在编程中如何使用它们获取对应数据

通常在调用Application.Selection时允许忽略父对象，因此实际编码时可以直接使用Selection另外需要注意，Selection 是动态的——Selection 指的是当前用户在 Excel 界面中选中的单元格、区域或对象等，如果用户在代码运行期间改变了选择，可能会导致代码行为不可预测如果想学习更多的编程知识，无论是用来提升自动化办公效率还是想着提升自我，都可以关注我的公众号“努力鸭是黑色的”，解锁更多的VBA技能。

应用Worksheet_Change这类事件时需要改变思维，平时常接触的普通函数需手动调用或被其他公式引用才会运行，然而事件是自动触发机制，在特定条件下自动执行另外，使用Worksheet_Change事件适用场合非常多，如数据验证、数据更新、数据提醒等，后续记得好好利用哦如果想学习更多的编程知识，无论是用来提升自动化办公效率还是想着提升自我，都可以关注我的公众号“努力鸭是黑色的”，解锁更多的VBA技能。

Range 方法通过分而治之和原生字符串操作，在特定场景下能以更低成本实现正则 80% 的常见需求，例如固定关键词、分段搜索、简单逻辑组合等优先选择Range但涉及到复杂模式、动态规则、高度灵活的文本处理，还是要考虑使用正则如果想学习更多的编程知识，无论是用来提升自动化办公效率还是想着提升自我，都可以关注我的公众号“努力鸭是黑色的”，解锁更多的VBA技能。

贪婪匹配使用 .* 或 .+ 等量词，默认情况下，使正则表达式引擎会尽可能多地匹配字符惰性匹配在量词后添加?，如 .*?或 .+?，使正则表达式引擎尽可能少地匹配字符，一旦满足条件就停止在实际应用中，我们一定要根据具体需求选择合适的匹配方式，以避免错误匹配或遗漏匹配项如果想学习更多的编程知识，无论是用来提升自动化办公效率还是想着提升自我，都可以关注我的公众号“努力鸭是黑色的”，解锁更多的VBA技能。

为了避免代码过长不方便阅读，文中源代码仅仅展示了功能实现，未增加用户使用体验。大家可以利用Application.InputBox自行增加功能：支持用户鼠标选择要拆分的列，以及拆分后数据保存位置，这样就无需频繁修改代码中的数据了，体验会更好如果想学习更多的编程知识，无论是用来提升自动化办公效率还是想着提升自我，都可以关注我的公众号“努力鸭是黑色的”，解锁更多的VBA技能。

利用VBA实现随机分组

关于多列合并问题，无论是使用 公式法（& + CHAR(10)）还是 VBA宏，都能快速将多列数据合并为一列大幅提升数据处理效率要怎么区分使用场合呢？如果需求固定，直接使用公式法比较简单快捷；如果需求中要灵活调整或涉及到自定义合并逻辑等，使用VBA宏如果想学习更多的编程知识，无论是用来提升自动化办公效率还是想着提升自我，都可以关注我的公众号“努力鸭是黑色的”，解锁更多的VBA技能。

利用数据字典在 Excel 中进行表格数据的核对，该表格含有多行多列，并且行和列顺序是打乱的，批量核对数据后将差异输出

如果只是简单两列数据对比，文中提供的代码已经足够。也可以根据需求适当调整代码，使其更符合你的使用场景最后，再提醒一下大家，如果你有需求但因为各种问题搁置，可以把你的问题反馈给我，一起帮你出谋划策哦！搜索公众号“努力鸭是黑色的”，关注我的公众号能够更加及时沟通反馈哦！

本期内容巩固Excel表格操作，按列全复制以及按区域仅选择复制数据，另外表格一些属性设置，如字体加粗、加边框、加底色等。这类操作在批量数据迁移、刷数据格式或样式时都很实用分享就到这里了，你学会了吗如果想学习更多的编程知识，无论是用来提升自动化办公效率还是想着提升自我，都可以关注我的公众号，解锁更多的VBA技能最后，再提醒一下大家，如果你有需求但因为各种问题搁置，可以把你的问题反馈给我，一起帮你出谋划策哦！搜索公众号“

在处理Excel数据时，我们经常会遇到某些列存在不连续的空白单元格的情况。为了保持数据的完整性，我们需要将这些空白单元格填充为上方最近的非空值

在 Excel 中，当工作表较多时，快速定位特定工作表可能会变得困难。本期就教大家如何使用 VBA 宏自动创建一个工作表目录

按照以上步骤一步步操作，你就会得到一个超级好用的自动化工具了，赶快试一下吧除了文中提到的加点分割年月日的数据，你还遇到过哪些非日期格式的数据哦？评论区留言分享一下吧如果想学习更多的编程知识，无论是用来提升自动化办公效率还是想着提升自我，都可以关注我的公众号，解锁更多的VBA技能最后，再提醒一下大家，如果你有需求但因为各种问题搁置，可以把你的问题反馈给我，一起帮你出谋划策哦！搜索公众号“努力鸭是黑色的”，关注我的公众号能够更加及时沟通反馈哦！

经过本期的分享我们学会了标准日期与月份、星期的转换，那么一定有朋友会问，如果不是标准的日期，如2025.3.5或是20250305等，又要怎么处理呢？别急，咱们下一期接着讲如果想学习更多的编程知识，无论是用来提升自动化办公效率还是想着提升自我，都可以关注我的公众号，解锁更多的VBA技能最后，再提醒一下大家，如果你有需求但因为各种问题搁置，可以把你的问题反馈给我，一起帮你出谋划策哦！搜索公众号“努力鸭是黑色的”，关注我的公众号能够更加及时沟通反馈哦！

一起来看看是如何操作的吧，或许有一天你也会遇到这类问题，收藏以备不时之需

'判断是否为整数，整数返回True，小数返回False'正则判断VBA-工具-引用中勾选Microsoft VBScript Regular Expressions 5.5。Function IsInteger(myNumber As Double) As Boolean '返回Boolean 变量，Set regx = New RegExp '初始化Dim myMatch As Object '万能Objectregx.Pattern = "(\.\d+)" '匹配规则，获取小数。

工作中为了方便查看和数据分析，我们经常会将很多Excel中的表格合并到一起，手动操作特别的麻烦，这个时候VBA就派上用场了，它可以帮助我们自动合并Excel内容

到这里本期的分享也就要结束了，大家都学会了吗？一定要跟上进度，每天坚持输出和练习哦我的公众号也在不间断地分享的编程案例，如果想学习更多的编程知识，无论是用来提升自动化办公效率还是想着提升自我，都可以关注我的公众号，解锁更多的VBA技能最后，再提醒一下大家，如果你有需求但因为各种问题搁置，可以把你的问题反馈给我，一起帮你出谋划策哦！搜索公众号“努力鸭是黑色的”，关注我的公众号能够更加及时沟通反馈哦！

现在就教大家一招，即使是再多的数据也不怕，一键搞定，还不用求人，更不需要一次记住复杂的步骤和繁琐的Excel公式，关键是能学到编程知识还FOR^-^ FREE，你心动了吗

使用不同颜色的数据条显示完成百分比，并根据数据条的长短直观的显示目前完成的一个状态。（备注：数据条就是“|||||||||||||||”，其中"|"个数不固定）

不需要使用数据透视，不需要人工干预，一键全程自动实现表格内数据汇总

在表格中生成进度条，进度条需要自适应单元格的宽度，根据不同进度区间变换颜色，并且按照进度数据大小显示其长短

去掉多余的空格、字符、字母等，每列数据显示格式统一并且按列固定对齐方式，让表格变得干净、整齐、赏心悦目

一张是薪资表在Sheet1中，一张是核对表在Sheet2中，而且两张表格中员工显示的顺序也不相同。本期的需求就是按照员工信息核对两张表中的基本工资和绩效，将有差异的数据找出来

工作中经常会遇到表格中存在很多的空行的情况，不利于查看和操作表格，如果又快又准的将这些空行删除呢？

使用不同颜色的进度条显示是否到期，并根据进度条的长短直观的显示多久到期或过期多长时间

有这样一张员工考核明细表格，考核分数在C列，现在需要不改变员工显示顺序的前提下，按照分数进行排名，并将排名输出到D列

根据身份证号码，自动输出年龄、出生日期和性别，分别保存在C列、D列、E列中

工作生活中难免会遇到各种类型的投票，如下表格是投票明细表，现在需要统计每个作品投票次数，并且按照投票量降序排序

一批邮寄信息，里面的数据杂乱无章，我们本期的需求就是从这些邮寄信息中提取姓名和手机号码信息

现在就教你一招，用不一样的方法自动删除数据，全程不需要人工干预，也不需要输入繁琐的Excel公式，只需要点击一个按钮就能完成

本次的需求：按照姓名字段汇总报销金额 ，来看看使用VBA是如何做的吧

横向表格和竖向表格互相转换是最常用到的，将数据从横向（水平方向）转为竖向（垂直方向），或是竖向转横向，通常涉及到对单元格的操作。这种转换在处理Excel数据时非常有用

目前有两张表，一份是“2月份工资”表，一份是“3月份工资表”，现在的需求就是两个月份的薪资表做一个比对，查看3月份哪些员工的工资、绩效或是奖金提升了

还有一种数据，格式同上，只是会计账和出纳账明细不是一一对应（不在同一行），顺序是打乱的，同样两列数据存在3.1元的差额，需要核对是哪些数据出现了偏差导致的