vba中布尔类型、字符串操作

在vba中，bool类型数据可以参与数学运算，true为-1，false为0

 1 Sub mysub()
 2 Dim mybool As Boolean
 3 Debug.Print
 4 Debug.Print
 5 mybool = (3 > 4) Or (3 < 6)
 6 Debug.Print mybool
 7 Debug.Print mybool + 1 'true 为-1
 8 
 9 mybool2 = (3 > 4) And (3 < 6)
10 Debug.Print mybool2
11 Debug.Print mybool2 + 1 'False 为0
12 End Sub

另外发现视图-本地窗口十分有用，调试程序时不必把数组什么的输出也能看变量在每一步的值了。特别方便。

http://club.excelhome.net/thread-1040387-1-1.html

数组中去除空值（VBA）

1 Public Sub ww() '
2 Dim ar, arr
3 ar = [a1:a10] '是一个10行一列的二维数组
4 arr = Application.Transpose(ar) 'arr变为了一个一维数组（行向量而非列向量）
5 arr = Join(Application.Transpose(ar)) '省略了分隔符那么返回一个元素，这个元素是字符串，字符串以空格分隔
6 arr = Application.Trim(Join(Application.Transpose(ar))) '将字符串最前和最后的空白删掉
7 arr = Split(Application.Trim(Join(Application.Transpose(ar)))) '返回一个下标从零开始的一维数组，它包含指定数目的子字符串。默认字符串以空格分隔
8 Debug.Print Join(arr)
9 End Sub