平时在输入大量数据时，在同一列中自上往下输入，一不注意可能会输入重复项。 有没方案能提示输入重复呢？ 有2种方案：一个是函数countif在数据有效性中定义，另一个是VBA宏代码。 先来写写函数方法： 比如我们是在B列中输入数据的那范围就是B1~B65536，在数据有效性中使用自定义，在公式中输入：=COUNTIF($B$1:$B$65536,B1)=1,随之向下填充，当输入重复值会提示，并清空当前输入值。 VBA代码： Private Sub Workbook
标签： 宏
VBA锁定条件区域
今天看到一个锁定的例子，很不错，所以就折腾了下。 特定区域的锁定。比如将A列~D列的范围锁定起来~ 写个宏！ 代码如下： Sub 锁定() Dim a As Long a = Sheets(1).[b65536].End(xlUp).Row ActiveSheet.Unprotect &
判断工作簿是否存在
在windows的资源管理器中输入文件路径通常都能打开指定路径的程序？ 那么在excel里也能实现这样的效果吗？ 可以！宏代码伺候： Sub 判断工作簿是否存在() ‘ 宏由 Kael.Z 录制，时间: 2011/6/3 Dim str As String str = A
VBA调整文本的方向
好久没写VBA方面的了文章，今天无聊打开excel折腾了下，这两天总是在做表格。先来看看这样的。 141 41 14 14 41 如果要把上面的数字从水平抬升到自定义角度，如何实现？ 那就是宏啦~代码如下： Sub setorientation() Dim intorient As Integer intorient = Application.InputB