Вы действительно не объяснили свой вопрос или почему вы хотите это сделать, но основываясь на тегах, я предполагаю, что это в vba. Так что если у вас 30 ячеек, то что-то вроде:
Sub selectThirds()
Union(Range("A1:A10"), Range("A20:A30")).Select
End Sub
Если число в ячейках было динамическим, вы можете посчитать количество строк и разделить на три.