在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