For循环上的运行时错误13

Question

我正在尝试在我的用户界面中使用组合框，但如果没有一个选项对用户有好处，他们可以输入它，但如果他们输入了某些内容，我想保存它，以便下次它出现在列表。我尝试了以下方法：

For i = Range("O3") To Range("O3").End(xlDown)
    If Not i.Value = ComboType.Value Then
        Range("O3").End(xlDown) = ComboType.Value
    End If
Next i

但这在第一行给出了上述错误。我对 VBA 中的 For 循环不是很熟悉，所以我希望有人能帮助我。

Answer 1

这是使for-each从O3循环到O3之后值的最后一个单元格的方法：

Public Sub TestMe()    
    Dim myCell  As Range  
    Dim ws      As Worksheet

    Set ws = Worsheets(1)
    With ws
        For Each myCell In .Range("O3", .Range("O3").End(xlDown))
            Debug.Print myCell.Address
        Next myCell    
    End with

End Sub

声明工作表也是一个好习惯，否则您将始终使用ActiveWorkbook 的ActiveSheet。