excel数据存放的位置：单元格和内存
如果数据存放再单元格中，系统计算需要两步：1，提取数据，加载到内存中；2、运算内存中的数据。而数据如直接在内存中，则可以直接进行运算，从而节省大量的时间，注意：是大量的时间。
数组：可以将一组数据存储在内存中，可以存放文本、数值、对象等。
VBA数组是以变量形式存放的一个空间。
数组分类：常量数组、静态数组和动态数组
常量数组：数组空间大小和元素均已确定
静态数组：数组空间大小已确定，但数组中的元素尚未确定
动态数组：数组的空间和元素都未确定
1、数组写入数据
1.1、一维数组写入数据
Sub test()
Dim arr(10), x!
For x = 0 To 10
arr(x) = x
Next x
End Sub
注意
arr(10) 的取值范围是[0,10]，一共11个数字，如果要指定从1到10，则指定具体的取值范围：arr(1 To 10)
一维数组即单行单列结构
1.2、二维数组写入数据
Sub test()
Dim arr(1 To 5, 1 To 3), x!, y!, i!
For x = 1 To 5
For y = 1 To 3
arr(x, y) = i
i = i + 1
Next y
Next x
End Sub
说明
二维数组即多行多列组成的区域
三维数组是工作表和区域共同组成的结构，如arr(工作表，行，列）
2、动态数组
动态数组使用需要两步
第一步：声明数组变量,不指定空间大小
[代码块]
第二步：ReDim 数组变量名（数组空间大小）
3、数组的批量写入
3.1、使用Array函数写入
Sub t()
Dim arr ' 不可以指定类型
arr = Array(1,2,3,"a")
End Sub
3.2、单元格区域写入
结果：arr是一个由B3:F5值组成的二维数组，如果由空单元格，值为空
Sub test()
Dim arr
arr = [b3:f5]
End Sub
结果：arr是一个由B3:F5值组成的二维数组，如果由空单元格，值为空
注意
如果Dim arr声明了一个数组，则此数组为二维数组，即使arr=[a1:a10]，该数组也是一个10行1列的二维数组
4、将数组写入到单元格
4.1、二维数组写入
Sub test()
Dim arr, arr1(1 To 5, 1 To 1) ' 务必注意arr1(5,1)的坑，其代表6行2列
Dim x!
arr = Range("b2:c6")
For x = 1 To 5
arr1(x, 1) = arr(x, 1) * arr(x, 2)
Next x
Range("d2").Resize(5) = arr1
End Sub
4.2、一维数组写入
Sub test()
Dim arr, arr1(1 To 5)
Dim x!
arr = Range("b2:c6")
For x = 1 To 5
arr1(x) = arr(x, 1) * arr(x, 2)
Next x
Range("d2").Resize(5) = Application.WorksheetFunction.Transpose(arr1)
End Sub
说明
一维数组默认是行结构，如果需要列结构，需要使用Transpose函数
4.3、数组部分写入
Sub test()
Dim arr, arr1(1 To 50)
Dim x!
arr = Range("b2:c6")
For x = 1 To 5
arr1(x) = arr(x, 1) * arr(x, 2)
Next x
Range("d2").Resize(5) = Application.WorksheetFunction.Transpose(arr1)
End Sub
说明
1、数组的有效数据不能少于存储单元格数量，如上例中，数组大小为50个，有效数据5个，所需要存储的单元格为5个，则可正常存入。
2、arr = range()，只会讲range的value属性赋值给数组arr，如果需要装载range对象本身，需使用set arr = range()语句。
5、数组的排序
数组使用编号排序的，可以通过Lbound方法和Ubound方法获取数组的上下限编号
Lbound(数组)可以获取数组的最小编号(下标)
Ubound(数组)可以获取数组的最大编号(上标)
Ubound(数组,1)获得二维数组的行上标
Ubound(数组,2)获得二维数组的列上标
Lbound反之
示例
Sub test()
Dim arr
Dim x!
arr = Range("a2:d5")
For x = 1 to Ubound(arr,1)
Next x
End Sub
6、动态数组的动态扩充
使用以下语句来扩充原先的数组，并且保留原来的数据
ReDim Preserve arr()
ReDim Preserve改变最末维的上界，且不能改变数组维数。如果改变下标，则出错。
一维数组动态扩充办法：直接扩充
多维数组动态扩充办法：逐个维度扩充，中间使用转置函数转换维度。
技巧
如果可以估算出动态数组的上界，则可以设定一个上界很大的数组，然后正常操作，最后截取有效数据部分。
7、强制声明数组下标
数组的下标除了在生命时规定下界（如dim arr(1 to 5)）之外，可以使用强制生命来改变数组下界不以0开始
Option Base 数字
示例
Option Base 1 ' 强制声明数组下界从1开始
8、循环速度
在循环数组时，使用for each循环结构比for next结构要快，但不足之处是for each不支持修改数组的元素（即修改语句无效）
示例
for each无法修改数组元素
Sub test()
Dim arr, element
arr = [a1:b12]
For Each element In arr
element = element - 1
Next element
End Sub
结果：a1:b12单元格值不变。
注意
无论数组是什么数据类型，for each的循环变量必须是Variant类型。
9、清空数组
Erase 方法
清空数组
语法
Erase 数组名称
10、函数与数组
10.1、可以使用VBA函数计算数组,如VBA.Filter函数
10.2、可以使用工作表函数计算数组，如Application.Max(arr1)
11、数组与单元格格式
取得单元格的地址，然后放入到Range中，然后设置Range的单元格属性
其中注意Range中的字符长度<=255。
技巧
因Range有255个字符限制，所以在获得单元格地址时，可以只获得单元格的行号（同一个Ragne可以放置更多的结果，提高运行速度），然后使用Application.Intersect()方法获取行列的交集，从而定位到目标单元格。
12、排序算法
12.1、冒泡排序
每一个数字与其位置之后的所有数字进行比较，如大于后面的数字，位置不变，如小于后面的数字，双方互换。
示例
Sub 冒泡排序()
Dim arr,temp,x,y,k
arr = Range("a1:a10")
For x = 1 To Ubound(arr) - 1
For y = x + 1 To Ubound(arr)
If arr(x,1) > arr(y,1) Then
temp = arr(x,1)
arr(x,1) = arr(y,1)
arr(y,1) = temp
End If
Next y
Next x
End Sub
12.2、选择排序
从后往前循环，每一个数字与位置之前的最大值进行比较互换。
选择排序比冒泡排序速度快
示例
Sub 选择排序()
Dim arr,temp,x,y,iMax,k,k1,k2
arr = Range("a1:a10)
For x = Ubound(arr) To 1+1 Step -1
iMax = 1
For y = 1 To x
If arr(y,1) > arr(iMax,1) Then iMax = y
Next y
temp = arr(iMax,1)
arr(iMax,1) = arr(x,1)
arr(x,1) = temp
Next x
End Sub
13.3、插入排序
从数组的第2个元素开始往后循环，每一个数字与它之前的数字比较，如果位置之前的数字大于其，则将该数字与其互换，放置其后，否则，位置不变。
13.4、希尔排序
引用“
希尔排序对 未排序数据的顺序 不敏感，虽然平均而言速度比快速排序慢一倍左右
但是却安全很多，没有快速排序的堆栈溢出问题，没有退化为O(n^2)的问题
而且对比较有序的输入数据，重复度高的数据，速度远远超过快速排序。
所以还是一个很不错的排序算法，尤其是还可以跟快速排序结合，大大降低快速排序的递归次数。
希尔排序实现起来比也非常简单。就是多重循环比较不好看而已。
附件的希尔排序已经做成一个子程序，在任何程序直接调用即可。
希尔排序的速度关键是：选择合适的h序列，也就是每次循环跳过多少个数据来交换
再啰嗦一下h序列的问题，假设已经知道希尔排序使用的h序列是怎么回事
那么比较常用的，已经经过计算机界的大师验证，绝对慢不到哪里去的h序列，有以下几种
1 h1=1, 然后往后每个h都等于 3h+1
2 h1=1, 然后往后每个h都等于 2.25h+1，取整
3 这个比较复杂, h1当然也是1，h2往后则用公式计算出来，假如
[n]是单数,那么 h[n] =82^n-62^((n+1)/2)+1
[n]是双数,那么 h[n] =92^n-92^(n/2)+1
也就是说 h序列 = {1,,5,19,41,109,209,505,929,........}
这一个序列已经被数学证明为O(n^1.25)的增长阶，证明过程则估计我完全看不懂。。。。。。
4 我自己的发现，由于h序列一般来说，前后两个h是互质的会比较好，而我又发现3号序列并不完全是质数
于是就把所有的非质数换为最接近的质数，结果发现又快了3%左右，yeah！ 这也是我的附件代码最终采用的h序列
论坛以前发过的希尔排序贴，貌似都是用 h[n] = 2^n - 1，或者干脆就是 h[n] = 2^n
前者貌似也是O(n^1.25)，但是明显比前面四个序列慢一大截
后者则是算法发明人希尔最早提出的序列，但是很快就被证明是个非常坏的h序列，速度慢而且很可能会退化到O(n^2)，所以不宜采用。
*************************************以下讨论堆排序
堆排序的速度，一般比希尔排序慢10%到20%
基本的堆排序，速度很慢，原因是每次交换最大的元素到数组末尾，这时候数组末尾的元素将交换到堆顶
再次把这个元素放进堆里面，就是把一个很小的元素压进堆，比较的次数将会很多，几乎必定是log(n)
所以采用Floyd的算法，先把这个很小的堆顶元素压到最底层，然后再上升到合适位置，这样就可以加快一倍
附件是四个堆排序算法：分别是最基本的堆排序，三元分叉的堆排序，最基本堆排序＋先沉底再上升（最佳版本），三元的堆排序+先沉底再上升
可以看出，基本三元堆比基本两元堆快，而且先沉底再上升的做法，对三元堆，两元堆都有效
而令人惊奇的是：两元堆先沉底再上升，比三元堆先沉底再上升更快，可能是三元堆提升三个叶子的最大元素，其比较次数太多
这倒是件好事，因为两元堆的代码比较简单，而且速度更快，好极了。
堆排序最大特点：可以迅速取出最大值（或者最小值），如果是求100万元素的前1万个，那么堆排序肯定是最快的。
因为只需要对1万个元素进行堆处理，而其它排序方法需要对100万个元素排序。
嗯。。。。。。也许快速排序也可以缩小排序的范围，如超过1万的部分就不再递归排序，也许还有可能比堆排序快。
*************************************以下讨论快速排序
作为一般而言最高速的排序算法，快速排序既让人高兴，又让人不放心
高兴的是：速度真的快多了
不放心的是：碰到某些序列，排序时间会恶化到无法接受的O(n^2)
附件是六个版本的快速排序，基本上包括了对快速排序进行优化的各种技巧
作为对比，第一个最慢速最不可靠的版本是从论坛帖“七种排序算法”抄过来的
其余五个版本是我自己的作品
简而言之，快速排序的弊端是
1 递归次数太多，会导致堆栈空间溢出。
解决办法：对小于一定数量的元素进行直接插入排序，希尔排序，而不是留给下一层的递归快速排序
2 每次划分的枢纽值选取不当，就会大大影响速度
解决办法：用平均值，随机值等等方式来决定枢纽值，但是无法保证一定不会出现速度退化的现象
进一步解决方法：先用快速排序，然后如果超过一定时间，或者递归一定次数后还没完成，就完全转为希尔排序。
综合而论，我个人觉得还是希尔排序最可靠，堆排序由于每次都取出最大值的特点，有些时候是非它不可！
快速排序单纯用原始版本，是一个又慢又危险的算法，完全没有任何价值
改良以后速度极好，但不能完全放心，辅以希尔排序才是王道。
补充汉字的排序方式：
Excel本身的sort方法，有两种汉字排序方式
名称 值 描述
xlPinYin 1 按字符的汉语拼音顺序排序。这是默认值。
xlStroke 2 按每个字符的笔划数排序。
VBA里面，字符串比大小也有两种方式
option compare binary 对应按笔画数排序（默认值）
option compare text 对应按拼音排序，速度大概慢一倍吧
