求帮助

积木911

i = 2
    Cells(1, 3) = Cells(2, 7)
    ls11 = Cells(1, 3)
    Do While True
       str1 = Cells(i, 2)
       If Len(str1) = 0 Then Exit Do
       str1 = Left(str1, 18)
       strls1 = " "
       ls3 = 0
       For j = 2 To 6
       ls1 = Mid(str1, (j - 1) * 3 - 2, 2)
       ls2 = Mid(str1, j * 3 - 2, 2)
        If ls2 - ls1 = 1 Then
       If ls3 = 0 Then
       strls1 = strls1 & Format(ls1, "00") & " " & Format(ls2, "00") & " "
       Else
       strls1 = strls1 & Format(ls2, "00") & " "
       End If
       ls3 = ls3 + 1
       Else
       ls3 = 0
       End If
    Next j
    Cells(i, 3) = strls1
    Cells(i, 4) = Len(strls1) / 3
    i = i + 1
    Loop
   
    Range("J1").Select
    ActiveWorkbook.Save
End Sub
为什么会出现“类型不匹配”，怎么改？

maditate

楼主聪明人，提供了一段不完整的代码，让别人去帮你查错。

积木911

maditate 发表于 2019-3-15 11:39
楼主聪明人，提供了一段不完整的代码，让别人去帮你查错。

兄弟，的确完了 调试的时候卡在这里  If ls2 - ls1 = 1 Then。不知道怎么改

maditate

If ls2 - ls1 = 1 Then

就本句代码而言本身不出错。错在前项与后项是两个不同类型的数据。比如，前项是数值  100，后项是文字“小妹”，你怎么让100去减“小妹”？

积木911

那具体该怎么修改呢？大神