vba 常用工具函数

' 添加引号 Chr(34)双引号
Function quot(val As String) As String
    quot = Chr(34) & val & Chr(34)
End Function

' 获取数组长度 上界-下界+1
Function length(arr As Variant) As Long
    length = UBound(arr) - LBound(arr) + 1
End Function