Страницы: 1
RSS
Повернуть строку или столбец в обратном порядке
 
Здравствуйте!
Николай Павлов выкладывал макрос ниже:
Код
Sub Reverse()
    Dim arrData(), n As Long
 
    arrData = Selection
    For Each cell In Selection
        cell.Value = arrData(UBound(arrData) - n, 1)
        n = n + 1
    Next cell
End Sub
Подскажите пожалуйста, как сделать так, чтобы он еще и строки переворачивал?
 
Развернуть по диагонали? Покажите пример.
 
vikttur,
прошу прощения, исправляюсь. Показалось, что пример не понадобится.
Изменено: evgeniygeo - 07.02.2020 06:13:01
 
по вертикали
Код
Sub main()
    Dim arr(), i&, j&
    arr = Selection.Value
    ReDim iarr(1 To UBound(arr), 0)
    For i = UBound(arr) To 1 Step -1
        j = j + 1
        iarr(j, 0) = arr(i, 1)
    Next i
    Selection.Value = iarr
End Sub
"Все гениальное просто, а все простое гениально!!!"
 
Nordheim,
круто, а как сделать 2в1 по вертикали и по горизонтали?
 
Как-то так?
Код
Sub main()
    Dim arr(), i&, j&, x&, y&
    arr = Selection.Value
    ReDim iarr(1 To UBound(arr), 1 To UBound(arr, 2))
    For i = UBound(arr) To 1 Step -1
        j = j + 1
        y = 0
        For x = UBound(arr, 2) To 1 Step -1
            y = y + 1
            iarr(j, y) = arr(i, x)
        Next x
    Next i
    Selection.Value = iarr
End Sub
"Все гениальное просто, а все простое гениально!!!"
 
evgeniygeo,  посмотрите в подборке функций пользователя есть функции по симметрии диапазона.
 
Nordheim,
супер, то что нужно!
Огромное спасибо!
Страницы: 1
Наверх