一些代码优化：
1.Range("B5:C6").Copy Destination:=Range("B8")
2.使用mid$函数而不是mid
3.把整个sheet保护，需要操作时，后台先关闭保护。
4.Excel中自带的Sum函数是将整个区域转换为数组，在内存中进行求和，速度快多了。
Dim result As Double
result = Application.WorksheetFunction.Sum(Range("A1:A10")) --自动过滤不是数字的单元格。
5.如果改变不了当前数组的中每个元素的数据类型，就应该开辟一个新的数组。。。。
6.Private Sub Worksheet_Change(ByVal Target As Range) 修改录入的内容格式
7.使用条件格式设置单元格格式 :
Set condition = rng.FormatConditions.Add(Type:=xlCellValue, Operator:=xlGreater, Formula1:="10")
condition.Interior.Color = RGB(255, 255, 0)
8.取余算法的使用 (ii + 1) Mod 3 + 1 => ii不断加1,对3取余结果就是不断0，1，2循环。
9.Excel工作表中 替换指定内容：Sheet5.UsedRange.Replace what:="小王", replacement:="特别的小王", lookAt:=xlPart, searchOrder:=xlByRows
标签：vba,记录,代码,Excel,Range,数组,格式,Sum,condition From： https://www.cnblogs.com/Insist-Y/p/17580192.html