union中必须是对象.所以这种写法必须先让一个变量定义为具体的对象
Set ran = Rows(cc(1))
For i = 2 To ySet ran = Application.Union(ran, Rows(cc(i)))Next iran.Select