Sub test ()Dim i as IntegerDim range1 as Rangefor i = 1 to 6Set range1 = Range( "C" & i + 3 & ":T" & i + 9)range1.SelectNext i End sub試了好久還是不行,請高手 ...
tw.knowledge.yahoo.com