如果字符长度大于某个数字，则删除Excel中的前两位数字

Sub DeleteDigits()
    Dim rng As Range
    Dim cell As Range
    Dim str As String
    Dim lenThreshold As Integer
    
    '设置字符长度阈值
    lenThreshold = 10
    
    '选择需要处理的数据范围
    Set rng = Selection
    
    '遍历每个单元格
    For Each cell In rng
        '判断单元格中的字符串长度是否大于阈值
        If Len(cell.Value) > lenThreshold Then
            '将字符串转换为字符数组
            str = cell.Value
            Dim charArray() As Char
            charArray = str.ToCharArray()
            
            '删除前两位数字
            str = ""
            For i = 2 To UBound(charArray)
                str = str & charArray(i)
            Next i
            
            '将处理后的字符串赋值给单元格
            cell.Value = str
        End If
    Next cell
End Sub