如何提高自己写VBA代码的效率

对于VBA的语句的常用写法，要多看，多思考，多应用。看过了，就可以有一个印象，在实际使用的时候，就可以依照影响写出自己的代码，这就是依葫芦画瓢，也是不错的方法。我在写代码的时候总是要大段的抄袭我之前写过的代码，这确实可以提高写代码的效率。

211 Application.OperatingSystem 返回所使用的操作系统的名称和版本

212 Application.OrganizationName 返回Excel产品登记使用的组织机构的名称

213 Application.FindFormat 查找的格式种类

214 Application.ReplaceFormat 替换查找到的内容的格式种类

215 ActiveSheet.Cells.Replace What:=" ",Replacement:="",SearchFormat:=True,ReplaceFormat:=True 替换查找到的格式

216 Application.Interactive=False 忽略键盘或鼠标的输入

217 Application.OnUndo "Undo Option","Undo Procedure" 选择UndoOption后，将执行Undo Procedure过程

218 Range(A1:A10).value="/Application.WorksheetFunction.Transpose(MyArray)" 将一个含有10个元素的数组转置成垂直方向的工作表单元格区域(A1至A10)

注：因为当把一维数组的内容传递给某个单元格区域时，该单元格区域中的单元格必须是水平方向的，即含有多列的一行。若必须使用垂直方向的单元格区域，则必须先将数组进行转置，成为垂直的。

219 Range("A65536").End(xlUp).Row+1 返回A列最后一行的下一行

220 rng.Range("A1") 返回区域左上角的单元格

221 cell.Parent.Parent.Worksheets 访问当前单元格所在的工作簿

222 Selection.Font.Bold=Not Selection.Font.Bold 切换所选单元格是否加粗

223 ActiveSheet.Range("A:B").SortKey1:=Columns("B"), Key2:=Columns("A"), _

Header:=xlYes 两个关键字排序，相邻两列，B列为主关键字，A列为次关键字，升序排列

224 cell.Range("A1").NumberFormat 显示单元格或单元格区域中的第一个单元格的数字格式

225 cell.Range("A1").HasFormula 检查单元格或单元格区域中的第一个单元格是否含有公式

226 cell.HasFormula 工作表中单元格是否含有公式

227 Cell.EntireColumn 单元格所在的整列

228 Cell.EntireRow 单元格所在的整行

229 rng.Name.Name 显示rng区域的名称

230 rng.Address 返回rng区域的地址

231 cell.Range("A1").Formula 返回包含在rng区域中左上角单元格中的公式。

注：若在一个由多个单元格组成的范围内使用Formula属性，会得到错误；若单元格中没有公式，会得到一个字符串，在公式栏中显示该单元格的值。

232 Range("D5:D10").Cells(1,1) '返回单元格区域D5:D10中左上角单元格

233 ActiveCell.Row 活动单元格所在的行数

234 ActiveCell.Column 活动单元格所在的列数

235 Range("A1:B1").HorizontalAlignment = xlLeft 当前工作表中的单元格区域数据设置为左对齐

236 ActiveSheet.Range("A2:A10").NumberFormat="#,##0" '设置单元格区域A2至A10中数值格式

237 rng.Replace " ","0" 用0替换单元格区域中的空单元格

238 Dim colMySheets As New Collection 声明新的集合变量

239 Public colMySheets As New Collection 声明新的集合变量

240 Set MyRange=Range("A1:A5") 创建一个名为MyRange的对象变量