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
