Транспонирование ячеек строк в столбцы со смещением

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Транспонирование ячеек строк в столбцы со смещением - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Транспонирование ячеек строк в столбцы со смещением (Макросы/Sub)

Транспонирование ячеек строк в столбцы со смещением

Gjlhzl

Дата: Воскресенье, 08.10.2023, 22:13 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 138

Репутация: 0 ±

Замечаний: 0% ±

Требуется значения с четных строк столбцов D и E перенести в столбцы F и G соответственно чтоб получилось как на листе 2
все в примере

К сообщению приложен файл: kniga1.xlsb (9.9 Kb)

Ответить

Nic70y

Дата: Понедельник, 09.10.2023, 08:29 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 9005

Репутация: 2369 ±

Замечаний: 0% ±

Excel 2010

[vba]

Код

Sub U_725()
    Application.ScreenUpdating = False
    a = Cells(Rows.Count, "c").End(xlUp).Row
    Range("f1:g" & a).FormulaR1C1 = "=R[1]C[-2]"
    Range("f1:g" & a) = Range("f1:g" & a).Value
    Range("a1:a" & a).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    Application.ScreenUpdating = True
End Sub

[/vba]

ЮMoney 41001841029809

Ответить

Gjlhzl

Дата: Понедельник, 09.10.2023, 12:32 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 138

Репутация: 0 ±

Замечаний: 0% ±

Nic70y, спасибо, все работает!

Ответить

Транспонирование ячеек строк в столбцы со смещением (Макросы/Sub)

Страница 1 из 1
1