Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Транспонирование ячеек строк в столбцы со смещением
Gjlhzl Дата: Воскресенье, 08.10.2023, 22:13 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 117
Репутация: 0 ±
Замечаний: 0% ±

Требуется значения с четных строк столбцов D и E перенести в столбцы F и G соответственно чтоб получилось как на листе 2
все в примере
К сообщению приложен файл: kniga1.xlsb (9.9 Kb)
 
Ответить
СообщениеТребуется значения с четных строк столбцов D и E перенести в столбцы F и G соответственно чтоб получилось как на листе 2
все в примере

Автор - Gjlhzl
Дата добавления - 08.10.2023 в 22:13
Nic70y Дата: Понедельник, 09.10.2023, 08:29 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 8821
Репутация: 2298 ±
Замечаний: 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
 
Ответить
Сообщение[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]

Автор - Nic70y
Дата добавления - 09.10.2023 в 08:29
Gjlhzl Дата: Понедельник, 09.10.2023, 12:32 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 117
Репутация: 0 ±
Замечаний: 0% ±

Nic70y, спасибо, все работает!
 
Ответить
СообщениеNic70y, спасибо, все работает!

Автор - Gjlhzl
Дата добавления - 09.10.2023 в 12:32
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!