获取值的长度时，键入Mismatch错误13

Question

Dim mm As String
Dim lstRow As Integer
Set ws1 = ast.Sheets("Exit")
lstRow = ws1.Range("S" & ws1.Rows.Count).End(xlUp).Row
Dim i As Integer
For i = 2 To lstRow
    **If Len(ws1.Range("S" & i).Value) = 6 Then**
        mm = Left(ws1.Range("s" & i).Value, 3)
        ws1.Range("T" & i).Value = mm
        ws1.Range("T" & i).Interior.Color = vbRed
    End If
Next

我将采用S列值的3个字母表，并将这些字母表带出红色的T列。但我在**行面临类型不匹配错误。 ast是文件名，ws1是工作表名称。

Answer 1

嗯，我想这可能与它有一些关系吗？

 Dim lstRow As Integer

VS

 lstRow = ws1.Range("S" & ws1.Rows.Count).End(xlUp).Row

是范围还是整数？线路调试你b / c它被告知以一种方式看它但你以另一种方式使用它