循環訪問列時Excel宏「類型不匹配」錯誤

Question

每次調用此函數都會導致運行時錯誤「13」類型不匹配。爲什麼會發生？

Public Function VersionExists(versionId As String) 

    VersionExists = False 

    For Each cell In Tabelle2.Columns(1) 
     If cell.Value = versionId Then 
     VersionExists = True 
     End If 
    Next 

End Function 

Answer 1

這裏是一個選擇，因爲我在評論

Public Function VersionExists(versionId As String) As Boolean 
    Dim aCell As Range, rng As Range 

    Set rng = Tabelle2.Columns(1) 

    Set aCell = rng.Find(What:=versionId, LookIn:=xlValues, _ 
    LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ 
    MatchCase:=False, SearchFormat:=False) 

    If Not aCell Is Nothing Then VersionExists = True 
End Function 

Answer 2

不能從.Columns(1)訪問cell.value因爲它返回一個包含範圍內整列，代替;

For Each cell In Sheet1.Columns(1).Rows '//or .cells 

也許是一個好主意，在比賽結束後退出for循環。