Существует код для перевертывания столбца или строки?

[Estilla]

Пример:
1
3
2
4
нужно сделать
4
2
3
1
у меня получилось так:

Код: Выделить всё


Sub reverse()
endrow = ActiveCell.row
For Each r1 In Selection
    r1.Offset(0, 1) = Cells(endrow, r1.Column)
    endrow = endrow - 1
Next r1
End Sub


правда в моем случае выделять нужно снизу вверх, чтобы активная ячейка указывала на последнюю строку. ну вообще лажа полная. Есть что получше?

[GSerg]

Код: Выделить всё

Sub reverse()
  Dim a As Excel.Range, i As Long, t As Long
 
  If Not Selection Is Nothing Then
    If TypeOf Selection Is Excel.Range Then
      For Each a In Selection.Areas
        If a.Columns.Count = 1 Then
          t = a.Cells.Count
          For i = 1 To t
            a.Cells(i).Offset(0, 1).Value = a.Cells(t - i + 1).Value
          Next
        End If
      Next
    End If
  End If
End Sub

[Estilla]

[quote="GSerg"][/quote]
ага, спасибо.

[Genyaa]

Можно еще так:

Код: Выделить всё

Sub ReverseRangeSelection()
    Dim dd As Variant, cc As Range, ss As Range
    Set ss = ActiveWindow.RangeSelection
    dd = ss
    For Each cc In ActiveWindow.RangeSelection.Cells
        cc = dd(UBound(dd, 1) - (cc.Row - ss.Row), UBound(dd, 2) - (cc.Column - ss.Column))
    Next cc
End Sub

Будет работать как для выделенной области одной колонки или одной строки, так и для любой выделенной области на листе (несколько строк и несколько колонок).