[askr]

Извращаюсь зверски...



Sub inlining()

' Макрос написан 16.04.2006 (ASK'R)

'

start_row = 4

start_col = 1

counter = 100

delta_row = 4

delta_col = 0



For i = 1 To counter

Range(Cells(start_row, start_col), Cells(start_row, start_col)).Select ' Cells(4,1) = "A4"

Selection.Cut Destination:=Range(Cells(start_row - 1, start_col + 1), Cells(start_row - 1, start_col + 1)) '"B3"

Range(Cells(start_row + 1, start_col), Cells(start_row + 1, start_col)).Select '"A5"

Selection.Cut Destination:=Range(Cells(start_row - 1, start_col + 2), Cells(start_row - 1, start_col + 2)) '"C3"

start_row = start_row + delta_row

start_col = start_col + delta_col

Next

End Sub



Sub cutting()

counter = 100

For i = 1 To counter

If Cells(i, 1) = Empty Then

Rows(i).Select

Selection.Delete Shift:=xlUp

End If

Next

End Sub



Вот что значит делать нефиг!



-------------------------

Ожидание убивает!