' 添加引号 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
12-21
09-20
377
08-23
1961
09-20
“相关推荐”对你有帮助么?
-
非常没帮助
-
没帮助
-
一般
-
有帮助
-
非常有帮助
提交