摘要： 今天来分享一段有用而简单的excel编程代码。目的就是这个工作簿所有的工作表自动批量加页码。会计亲们有福啦。
我们按快捷键alt F11，进入vba的编辑器里。点插入模块。然后在这输入以下代码
Sub 加页码() Dim i%
For i = 1 To Sheets.Count ‘表示工作表数量
Sheets(i).Range("d1") = i ‘固定在i1添加页码，i1代表你要的单元格位置。
Next
End Sub
Excel VBA下标越界原因和方法详解
文章介绍excelVBA下标越界的原因，以及下标越界的解决方法。 VBA初学者，常常会遇到下标越界问题。 尽管出现下标越界的原因是多种多样，但终究是因为对象不存在或者超出范围，就会出现下标越界的提示框，如下图所示： Microsoft Visual Basic ~运行时错误’9’~
效果就是
Excel vba给所有的工作表自动批量加页码，会计的有福啦
Excel利用自定义函数提取字符串中的重复字符
有时需要将Excel单元格内字符串中的重复字符提取出来，例如提取字符串“abcdeAbcDe”中重复的几个字符“bce”，如图所示，可以用自定义函数实现。 1.按Alt F11，打开VBA编辑器。 2.单击菜单“插入→模块”，在代码窗口
