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

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

 Sub mysub()
 Dim mybool As Boolean
 Debug.Print
 Debug.Print
 mybool = ( > ) Or ( < )
 Debug.Print mybool
 Debug.Print mybool +  'true 为-1

 mybool2 = ( > ) And ( < )
 Debug.Print mybool2
 Debug.Print mybool2 +  'False 为0
 End Sub

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

---

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

数组中去除空值（VBA）

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