类型不匹配

不二周助

程序如下，为什么If cel.Value = ke Then这句代码会显示类型不匹配，查找了很久都没查到问题所在，求指教

Sub Result()
    Dim cel As Range, rng As Range, ke As String, k As Integer, sep As String, Hebin As String
    Set rng = Range("A1:C12")
    ke = "张大亮"
    k = 3
    sep = "-"
        For Each cel In rng.Columns(1)
            If Len(Hebin) > 0 Then
                If cel.Value = ke Then Hebin = Hebin & sep & cel.Offset(k - 1, 0).Value
            Else
               If cel.Value = ke Then Hebin = cel.Offset(k - 1, 0).Value
            End If
        Next cel
    MsgBox Hebin
End Sub

砂海

中断时测试
debug.print cel.Address
$A$1:$A$12

----------------------------------------
这样 cel 是一个单元格 于 rng 的第一列 循环
For Each cel In Application.Index(rng, , 1)