Range("1:3,6:8").Select或:Union(Range("1:3"), Range("6:8")).Select
Sub ss()Range("1:3,6:8").SelectEnd Sub