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

 

= Мир MS Excel/Как автоматически выделить две строки и пропустить десять? - Мир MS Excel

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

Excel 2007
Здравствуйте, в файле овер мильярд строк в столбце А, но нужные строки всего 2 через 10.
То есть, в ячейке А1, А2 нужные данные, а в А3-12 не нужные, затем опять, А13, А14 нужные, А15-24 не нужные.
Можно ли как-то по-быстрому сделать копипаст нужных ячеек? Благодарю за помощь.
К сообщению приложен файл: _-.xlsx (9.3 Kb)
 
Ответить
СообщениеЗдравствуйте, в файле овер мильярд строк в столбце А, но нужные строки всего 2 через 10.
То есть, в ячейке А1, А2 нужные данные, а в А3-12 не нужные, затем опять, А13, А14 нужные, А15-24 не нужные.
Можно ли как-то по-быстрому сделать копипаст нужных ячеек? Благодарю за помощь.
Автор - AdwordsDirect
Дата добавления - 22.05.2018 в 12:13
_Boroda_ Дата: Вторник, 22.05.2018, 12:23 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16901
Репутация: 6613 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Так нужно?
=ИНДЕКС(A:A;2-ОСТАТ(СТРОКА();2)+12*ОТБР((СТРОКА()-1)/2))
К сообщению приложен файл: -1-1.xlsx (10.7 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТак нужно?
=ИНДЕКС(A:A;2-ОСТАТ(СТРОКА();2)+12*ОТБР((СТРОКА()-1)/2))
Автор - _Boroda_
Дата добавления - 22.05.2018 в 12:23
abtextime Дата: Вторник, 22.05.2018, 12:26 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 828
Репутация: 117 ±
Замечаний: 0% ±

Excel 2010
альтернативный вариант

=СМЕЩ(Лист2!$A$1;(СТРОКА()-1)*6;0)&""

=СМЕЩ(Лист2!$A$2;(СТРОКА()-2)*6;0)&""
К сообщению приложен файл: -1-.xlsx (14.9 Kb)
 
Ответить
Сообщениеальтернативный вариант

=СМЕЩ(Лист2!$A$1;(СТРОКА()-1)*6;0)&""

=СМЕЩ(Лист2!$A$2;(СТРОКА()-2)*6;0)&""
Автор - abtextime
Дата добавления - 22.05.2018 в 12:26
AdwordsDirect Дата: Вторник, 22.05.2018, 12:27 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 148
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Именно, спасибо!
Если не сложно, не могли бы такую же формулу написать, если нужна ячейка 1 через 11.
То есть А1 - нужна, А2-12 - не нужны, А13 - нужна, А14-24 - не нужны.
 
Ответить
СообщениеИменно, спасибо!
Если не сложно, не могли бы такую же формулу написать, если нужна ячейка 1 через 11.
То есть А1 - нужна, А2-12 - не нужны, А13 - нужна, А14-24 - не нужны.
Автор - AdwordsDirect
Дата добавления - 22.05.2018 в 12:27
Karataev Дата: Вторник, 22.05.2018, 12:29 | Сообщение № 5
Группа: Проверенные
Ранг: Старожил
Сообщений: 1336
Репутация: 533 ±
Замечаний: 0% ±

Excel
Макрос копирует данные из активного листа (это лист, который Вы видите на мониторе) на новый лист (макрос создает новый лист).
Если в группе 11 строк, то измените Step 12 на Step 11.


Сообщение отредактировал Karataev - Вторник, 22.05.2018, 12:32
 
Ответить
СообщениеМакрос копирует данные из активного листа (это лист, который Вы видите на мониторе) на новый лист (макрос создает новый лист).
Если в группе 11 строк, то измените Step 12 на Step 11.
Автор - Karataev
Дата добавления - 22.05.2018 в 12:29
abtextime Дата: Вторник, 22.05.2018, 12:29 | Сообщение № 6
Группа: Проверенные
Ранг: Ветеран
Сообщений: 828
Репутация: 117 ±
Замечаний: 0% ±

Excel 2010
AdwordsDirect, макрос нужен? в этой задаче он, имхо, удобнее формул. Встал на пустой лист, кнопку нажал и там уже и нужный столбец, и Селешен выполнен, только копируй
 
Ответить
СообщениеAdwordsDirect, макрос нужен? в этой задаче он, имхо, удобнее формул. Встал на пустой лист, кнопку нажал и там уже и нужный столбец, и Селешен выполнен, только копируй
Автор - abtextime
Дата добавления - 22.05.2018 в 12:29
abtextime Дата: Вторник, 22.05.2018, 12:30 | Сообщение № 7
Группа: Проверенные
Ранг: Ветеран
Сообщений: 828
Репутация: 117 ±
Замечаний: 0% ±

Excel 2010
Karataev, hands
 
Ответить
СообщениеKarataev, hands
Автор - abtextime
Дата добавления - 22.05.2018 в 12:30
_Boroda_ Дата: Вторник, 22.05.2018, 12:36 | Сообщение № 8
Группа: Админы
Ранг: Местный житель
Сообщений: 16901
Репутация: 6613 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Цитата AdwordsDirect, 22.05.2018 в 12:27, в сообщении № 4 ( писал(а)):
если нужна ячейка 1 через 11.

=ИНДЕКС(J:J;1+12*ОТБР((СТРОКА()-1)))

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение
Цитата AdwordsDirect, 22.05.2018 в 12:27, в сообщении № 4 ( писал(а)):
если нужна ячейка 1 через 11.

=ИНДЕКС(J:J;1+12*ОТБР((СТРОКА()-1)))
Автор - _Boroda_
Дата добавления - 22.05.2018 в 12:36
SLAVICK Дата: Вторник, 22.05.2018, 12:36 | Сообщение № 9
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
ну вы и шустрые - пока сочинял макрос понакидали уже ответов.
Раз уж сделал - то и мой вариант выделения по параметрам.
Ввел для начальных параметров константы - но удобнее их поменять на закомментированный текст.:

Sub SelRO()
Start = 1 'InputBox("StartRO", , Selection.Row)
finish = 999 'InputBox("FinishRO", , ActiveSheet.UsedRange.Rows.Count)
StepSelect = 2 'InputBox("StepSelect", , 2)
StepSkip = 10 'InputBox("StepSkip", , 10)

i = Start
Set UnionRange = Rows(i & ":" & i + StepSelect - 1)
Do While i < finish
    Set UnionRange = Union(UnionRange, Rows(i & ":" & i + StepSelect - 1))
    i = i + StepSelect + StepSkip
Loop

UnionRange.Select
End Sub

К сообщению приложен файл: SelRowWithStep.xlsm (18.6 Kb)

Иногда все проще чем кажется с первого взгляда.
 
Ответить
Сообщениену вы и шустрые - пока сочинял макрос понакидали уже ответов.
Раз уж сделал - то и мой вариант выделения по параметрам.
Ввел для начальных параметров константы - но удобнее их поменять на закомментированный текст.:
[vba]
Sub SelRO()Start = 1 'InputBox("StartRO", , Selection.Row)finish = 999 'InputBox("FinishRO", , ActiveSheet.UsedRange.Rows.Count)StepSelect = 2 'InputBox("StepSelect", , 2)StepSkip = 10 'InputBox("StepSkip", , 10)i = StartSet UnionRange = Rows(i & ":" & i + StepSelect - 1)Do While i < finish    Set UnionRange = Union(UnionRange, Rows(i & ":" & i + StepSelect - 1))    i = i + StepSelect + StepSkipLoopUnionRange.SelectEnd Sub
[/vba]
Автор - SLAVICK
Дата добавления - 22.05.2018 в 12:36
AdwordsDirect Дата: Вторник, 22.05.2018, 12:36 | Сообщение № 10
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 148
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Спасибо, уже не надо, интуитивно получилось формулу поменять под другое количество строк.
Тем для меня формулы и хороши, они понятнее лично мне. Благодарю всех неравнодушных за помощь :))
 
Ответить
СообщениеСпасибо, уже не надо, интуитивно получилось формулу поменять под другое количество строк.
Тем для меня формулы и хороши, они понятнее лично мне. Благодарю всех неравнодушных за помощь :))
Автор - AdwordsDirect
Дата добавления - 22.05.2018 в 12:36
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как автоматически выделить две строки и пропустить десять? (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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