а так смешнее
[vba]Код
Sub u_59()
u = Cells(Rows.Count, 1).End(xlUp).Row
Range("A2:A" & u).Replace What:="0", Replacement:="", LookAt:=xlWhole
Range("A2:A" & u).SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
f = Cells(Rows.Count, 1).End(xlUp).Row
Range("B" & f & ":B" & u).Clear
Range("B2" & ":B" & f).Merge
With Range("B2" & ":B" & f)
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
Range("B2" & ":B" & f).Borders(xlEdgeRight).LineStyle = xlContinuous
Range("B2" & ":B" & f).Borders(xlEdgeBottom).LineStyle = xlContinuous
End Sub
[/vba]