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

如何实现每次输入数据后总是定位于下一行的第一个空单元格避免键盘方向键左右移动呢？ 比较老实的办法是在常规里面设置方向，但是缺点是输入完成后始终朝某个方向前进，不会换行。 如何实现我们上面的需求？分享个代码： Private Sub Worksheet_Change(ByVal Target As Range)      If Target.Count = 1 Then

当一张数据表里有多种字体格式，比如有10号字体，11号，15号，那如何将10号字体转换成12号字体，并标记为红色。 也许有童鞋会说，那还不简单，一个个改就是了。 是的！这是一个方案。数据量少是很方便，倘若10号字体的数据有上千个，你会认为手动修改是最简便的吗？ 分享个宏代码： Sub 替换字体格式()      Application.FindFormat.Clear        Ap

        在实际进行开发时，很多工作表中的数据都是后台的，主要用来存储程度代码所需的数据。 为了保证整个过程的有效性，这些数据需要隐藏起来防止他人更改。 隐藏代码;   Sub 隐藏工作表()    ‘    ‘ 隐藏工作表 Macro    ‘ 宏由 Kael.Z&

在默认情况下，我们都能看到整个工作表的单元格范围。 但是有些特殊情况下，不想让其他人看到所有的范围。 那只有限制工作表的的滚动范围了。 宏代码如下： Sub Set_scrollarea_cells()    ‘    ‘ Set_scrollarea_cells Macro    ‘ 宏由 Kael.Z 录制，时间: 2011/6

今天比较郁闷，回家处理剩下的工作，打开Excel，一看悲剧了~！ 单击单元格右键想复制单元格一看，坑爹啊~灰色的？ 我以为中毒了，还把Excel重装了好几遍，发现依旧，才发现前几天我写过一篇关于禁止粘贴复制的文章，顿时恍然大悟~原来是这家伙搞的鬼~ 只能依样画葫芦了，上代码：   Private Sub Workbook_Open()        With Application  &

最近的VBA总是喜欢写些乱七八糟的东西，这不今天又想到个。 思路是这样的：特定单元格输入特定值清除特定区域内的数据！觉得有点自杀式的！不过只要不输那个真确值，数据都清空不了! 代码如下：   Private Sub Worksheet_Change(ByVal Target As Range)    If Target.AddressLocal = Range("B3&quot