Здравствуйте!
Николай Павлов выкладывал макрос ниже:
Подскажите пожалуйста, как сделать так, чтобы он еще и строки переворачивал?
Николай Павлов выкладывал макрос ниже:
Код |
---|
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 |