快速合并与拆分同值单元格

每当遇到查询数据输出成Excel格式时,发现有部分数据列是重复值,一行一行的实在看着花,就会想着手动合并下,但是遇到大数据我们不是要累死? 所以我们得求助VBA解决了一劳永逸。 合并代码: Sub hb() Application.DisplayAlerts = False Dim r() As Range Set d = CreateObject("Scripting.Dictionary") For Each cel In Range("A1:F10"

禁用菜单栏部分功能

有些Excel的菜单栏上的某些选项按钮我们不想别人使用。 那我们可以禁用那些选项。 比如禁用调整“单元格格式”的选项。 代码如下:   1 Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 2 Application.CommandBars(“Worksheet Menu Bar”).Controls(“格式(O)”).Controls(&#822

强制Excel接受指定小数位

平时表格输入数字都是输入什么数字表格接受什么数字。 除非在表格里设置了属性,比如保留2位小数。 但输入25,则自动显示0.25;500,则保留成5。 这种特殊效果在经常使用小数位的岗位很适用。 直接输入完整数字而不需要先按0再按小数点,大大加快了输入的速度。 特分享个代码: Sub 设置小数位()‘ 设置小数位 Macro‘ 宏由 Kael.Z 录制,时间: 2011/10/7Application.FixedDecimal = True ‘小数位开关Appl

VBA破解工作表密码

在日常工作中,难免忘记工作表的密码,眼巴巴的看着数据却不能改动。 前阶段分享过一个破解工作表密码的VBA,代码相当长。 今天分享个简短的代码。 原理是利用Excel的BUG破除密码。 新建模块并输入如下代码: Sub 清空密码()       ActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFiltering:=True &nbs

VBA实现密函特效

古装电视上通常有这么个场景—–当接收人看完密函后,信件自动销毁的场景! 突发奇想,Excel应该也能实现这样的特效功能。 比如给小丽写的情书,她看完后自动消失,是不是很搞啊? 哈哈~怎么实现呢? 代码如下:(VBA方式) Private Sub Workbook_BeforeClose(Cancel As Boolean)      ActiveWorkbook.ChangeFileAcces

VBA填充空单元格

通常很多人在输入数据时,在同一列中相同的数据都会选择不输(如A1输入X,一直空到A5,则A2~A4都是表示X),空白表示相同。偷懒的想法啊。 但为了输入方便偷懒了,能不能交给代码补全呢? 可以的! 分享代码吧:   Sub 填充单元格()    On Error Resume Next    Intersect([a:a], ActiveSheet.UsedRange).SpecialCells(