Borders for every n'th number of cells

[mikec82]

I've got a sheet with three columns. Data for one individual takes up 10 rows and 3 columns, then it skips 2 lines, and then the next person. I'd like to put "outside borders" around each individuals data and have no borders in between, in order to create more of a gap between each record. Is this possible? It will always be every 10 rows, skip 2, then the next 10 rows, etc.

 

[Rick Rothstein]

If all of your data are constants (that is, no formulas), then you can use this macro (I assumed Column B:D - change as needed)...

Sub PutBordersAroundCells()
  Dim Ar As Range
  For Each Ar In Columns("[COLOR="#0000FF"][B]B:D[/B][/COLOR]").SpecialCells(xlConstants).Areas
    Ar.BorderAround xlContinuous, xlThick
  Next
End Sub

EDIT NOTE
------------------------------
Actually, as long as each individual section has at least one cell containing a constant, then this should work...

Sub PutBordersAroundCells()
  Dim Ar As Range
  For Each Ar In Columns("[B][COLOR="#0000FF"]B:D[/COLOR][/B]").SpecialCells(xlConstants).Areas
    Ar.CurrentRegion.BorderAround xlContinuous, xlThick
  Next
End Sub