在for范围内运行for循环时编译时出错

Question

我有以下代码试图获取动态范围并打印范围中每个单元格的值。

Sub Macro3() 

' 
    Range("D10").Select 
    x = Range(Selection, Selection.End(xlDown)).Select 


    For Each cell In x 
     MsgBox (cell) 
    Next x 

End Sub 

如果我运行它，但它会得到一个编译错误...有什么想法在这里出了什么问题？

Answer 1

试试这个：（使用Set和删除.Select）

Set x = Range(Selection, Selection.End(xlDown)) 

和Next或Next cell代替Next x

Answer 2

Option Explicit 

Sub Macro3() 

    Dim x  As Range 
    Dim cell As Range 


    Range("D10").Select 

    Set x = Range(Selection, Selection.End(xlDown)).Select 
    For Each cell In x 
     MsgBox (cell) 
    Next cell 

End Sub 

嗨。你需要下一个单元格而不是下一个x。请享用！ ：D