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

Вход

Регистрация

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

 

= Мир MS Excel/Взять значения через строчку и скопировать в ячейку - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Взять значения через строчку и скопировать в ячейку (Формулы/Formulas)
Взять значения через строчку и скопировать в ячейку
byte32 Дата: Понедельник, 06.02.2017, 16:17 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 72
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Господа. подскажите, пожалуйста. если не сложно.

Есть массив состоящий из названия кампании, а под ней ID этой кампании

Как взять все ID и перенести в новую ячейку, напротив названия кампании.

Пример во вложении

Спасибо большое
К сообщению приложен файл: Excel-word.xlsx (8.2 Kb)
 
Ответить
СообщениеГоспода. подскажите, пожалуйста. если не сложно.

Есть массив состоящий из названия кампании, а под ней ID этой кампании

Как взять все ID и перенести в новую ячейку, напротив названия кампании.

Пример во вложении

Спасибо большое
Автор - byte32
Дата добавления - 06.02.2017 в 16:17
sboy Дата: Понедельник, 06.02.2017, 16:22 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
Добрый день.
Вариант формулой
Код
=ЕСЛИ(ЕЧЁТН(СТРОКА());A3;"")

потом фильтром удалить пустые строки

[p.s.] Не забудьте сохранить значения перед удалением строк!
К сообщению приложен файл: 2665842.xlsx (8.6 Kb)

Яндекс: 410016850021169

Сообщение отредактировал sboy - Понедельник, 06.02.2017, 16:24
 
Ответить
СообщениеДобрый день.
Вариант формулой
Код
=ЕСЛИ(ЕЧЁТН(СТРОКА());A3;"")

потом фильтром удалить пустые строки

[p.s.] Не забудьте сохранить значения перед удалением строк!
Автор - sboy
Дата добавления - 06.02.2017 в 16:22
byte32 Дата: Понедельник, 06.02.2017, 16:27 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 72
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
sboy Спасибо Вам!
 
Ответить
Сообщение sboy Спасибо Вам!
Автор - byte32
Дата добавления - 06.02.2017 в 16:27
AlexM Дата: Понедельник, 06.02.2017, 16:32 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4517
Репутация: 1130 ±
Замечаний: 0% ±

Excel 2003
sboy, можно в В2 вставить формулу
Код
=A3
выделить В2 и В3 и протянуть за маркер вниз.


Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.
 
Ответить
Сообщениеsboy, можно в В2 вставить формулу
Код
=A3
выделить В2 и В3 и протянуть за маркер вниз.
Автор - AlexM
Дата добавления - 06.02.2017 в 16:32
sboy Дата: Понедельник, 06.02.2017, 17:08 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
AlexM, Вы правы) заработался видимо...

Яндекс: 410016850021169
 
Ответить
СообщениеAlexM, Вы правы) заработался видимо...
Автор - sboy
Дата добавления - 06.02.2017 в 17:08
Wasilich Дата: Вторник, 07.02.2017, 10:07 | Сообщение № 6
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
Цитата byte32, 06.02.2017 в 16:17, в сообщении № 1 ()
Взять значения через строчку и скопировать в ячейку
Цитата byte32, 06.02.2017 в 16:17, в сообщении № 1 ()
взять все ID и перенести в новую ячейку
Так и все-таки :) Скопировать или перенести? Если перенести то, пустые строки скрыть или удалить?
[vba]
Код
Sub перенос()
  Dim ps&, i&
  ps = Range("A" & Rows.Count).End(xlUp).Row
  For i = ps To 2 Step -2
    Cells(i - 1, 2) = Cells(i, 1)
    Cells(i, 1) = ""
    'Rows(i).EntireRow.Hidden = True
    'Rows(i).Delete
  Next
End Sub
[/vba]
К сообщению приложен файл: byte32.xls (33.0 Kb)


Сообщение отредактировал Wasilich - Вторник, 07.02.2017, 10:11
 
Ответить
Сообщение
Цитата byte32, 06.02.2017 в 16:17, в сообщении № 1 ()
Взять значения через строчку и скопировать в ячейку
Цитата byte32, 06.02.2017 в 16:17, в сообщении № 1 ()
взять все ID и перенести в новую ячейку
Так и все-таки :) Скопировать или перенести? Если перенести то, пустые строки скрыть или удалить?
[vba]
Код
Sub перенос()
  Dim ps&, i&
  ps = Range("A" & Rows.Count).End(xlUp).Row
  For i = ps To 2 Step -2
    Cells(i - 1, 2) = Cells(i, 1)
    Cells(i, 1) = ""
    'Rows(i).EntireRow.Hidden = True
    'Rows(i).Delete
  Next
End Sub
[/vba]
Автор - Wasilich
Дата добавления - 07.02.2017 в 10:07
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Взять значения через строчку и скопировать в ячейку (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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