数据类型

字符串

'截取字符串
mid(原始字符串,起始位序从1开始，截取长度)

'获取字符串中指定的子字符串的最后一次出现的位置序号
Private Sub GetLastPosition()
    Dim str As String
    Dim searchStr As String
    Dim lastPos As Long
    
    ' 原始字符串
    str = "0000017655AA0200000155AA200C120001370000017655AA02000001"
    
    ' 要查找的子字符串
    searchStr = "55AA20"
    
    ' 使用 InStrRev 函数查找最后一个子字符串的位置
    lastPos = InStrRev(str, searchStr)
    
    ' 输出结果
    If lastPos > 0 Then
        MsgBox "最后一个 '" & searchStr & "' 的位置序号是: " & lastPos
    Else
        MsgBox "未找到 '" & searchStr & "'"
    End If
End Sub

数组

' 定义数组aa，有6个元素，是integer类型，下标从0开始
' 下面定义的5是最后一个下标，所以数组长度应该使用该数组+1
Dim aa(5) As Integer
' 定义不限定数量的 Integer 类型的数组，实际无法使用
' 需要在使用前通过 ReDim b(length / 3 * 4) 重新定义数组的长度
' 如果不 ReDim 直接调用 Debug.Print UBound(aa)，会报错超过下标
Dim aa() As Integer
' 指定数组下标从3开始，到5结束。即总共3个元素
Dim c(3 to 5) as Integer
' 重新定义数组的长度
ReDim b(length / 3 * 4)
' 获取数组最后一个元素的下标，再+1即是数组的长度
UBound(arr)

数字

数据类型转换

// 字符串转Long
Clng(字符串)