如何通过一系列

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