如何通過一系列

Question

Dim FromRang As Range, ToRang As Range 
Dim UserCell As Range 
'Ask the user to input the cell Range in which to search for the sub strings 
    Set FromRang = Application.InputBox(Prompt:="Enter Search Range From:", Type:=8) 
    Set ToRang = Application.InputBox(Prompt:="Enter Search Range To:", Type:=8) 

For each UserCell in ("FromRang:ToRang") 

for循環提供可變的循環給類型不匹配錯誤

請幫助..

Answer 1

說完看着你前面的問題，你不需要兩個獨立變量來捕捉範圍。

Set fullRange = Application.InputBox(Prompt:="Enter Search Range:", Type:=8)
即您可以在輸入框處於活動狀態時選擇範圍。此外，您還可以在A1:A10

類型，然後，你可以做

For each UserCell in fullRange 
    ... 
Next