Расстановка данных через НЕРАВНЫЕ промежутки
Тормозяка
Дата: Пятница, 19.02.2016, 12:58 |
Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 103
Репутация:
0
±
Замечаний:
0% ±
Excel 2007
В одном столбце находятся данные промежутков, необходимо в другом столбце расставить другие данные, через эти промежутки.
В одном столбце находятся данные промежутков, необходимо в другом столбце расставить другие данные, через эти промежутки. Тормозяка
Эвольвенты одной эволюты- эквидистантны!
Ответить
Сообщение В одном столбце находятся данные промежутков, необходимо в другом столбце расставить другие данные, через эти промежутки. Автор - Тормозяка Дата добавления - 19.02.2016 в 12:58
Manyasha
Дата: Пятница, 19.02.2016, 13:41 |
Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация:
898
±
Замечаний:
0% ±
Excel 2010, 2016
Тормозяка , с доп.столбцом подойдет?Код
=ЕСЛИОШИБКА(ПОИСКПОЗ(СТРОКА()-1;$D$2:$D$3002;0)^0;"")
Тормозяка , с доп.столбцом подойдет?Код
=ЕСЛИОШИБКА(ПОИСКПОЗ(СТРОКА()-1;$D$2:$D$3002;0)^0;"")
Manyasha
ЯД: 410013299366744 WM: R193491431804
Ответить
Сообщение Тормозяка , с доп.столбцом подойдет?Код
=ЕСЛИОШИБКА(ПОИСКПОЗ(СТРОКА()-1;$D$2:$D$3002;0)^0;"")
Автор - Manyasha Дата добавления - 19.02.2016 в 13:41
Тормозяка
Дата: Пятница, 19.02.2016, 14:01 |
Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 103
Репутация:
0
±
Замечаний:
0% ±
Excel 2007
Manyasha, Доп. столбец не проблема. Все получилось Спасибо! С меня причитается.
Manyasha, Доп. столбец не проблема. Все получилось Спасибо! С меня причитается. Тормозяка
Эвольвенты одной эволюты- эквидистантны!
Ответить
Сообщение Manyasha, Доп. столбец не проблема. Все получилось Спасибо! С меня причитается. Автор - Тормозяка Дата добавления - 19.02.2016 в 14:01
Тормозяка
Дата: Пятница, 19.02.2016, 15:58 |
Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 103
Репутация:
0
±
Замечаний:
0% ±
Excel 2007
Manyasha, Караул!!! В Вашем файле все работает прекрасно. Ввел Вашу формулу в свой файл, показывает только первые 2 нуля (у меня их 2) и тишина. (В бубен стучал) [moder]У меня-то нет Вашего файла. Я не знаю в чем проблема.[/moder]
Manyasha, Караул!!! В Вашем файле все работает прекрасно. Ввел Вашу формулу в свой файл, показывает только первые 2 нуля (у меня их 2) и тишина. (В бубен стучал) [moder]У меня-то нет Вашего файла. Я не знаю в чем проблема.[/moder] Тормозяка
Эвольвенты одной эволюты- эквидистантны!
Сообщение отредактировал Manyasha - Пятница, 19.02.2016, 16:13
Ответить
Сообщение Manyasha, Караул!!! В Вашем файле все работает прекрасно. Ввел Вашу формулу в свой файл, показывает только первые 2 нуля (у меня их 2) и тишина. (В бубен стучал) [moder]У меня-то нет Вашего файла. Я не знаю в чем проблема.[/moder] Автор - Тормозяка Дата добавления - 19.02.2016 в 15:58
Тормозяка
Дата: Пятница, 19.02.2016, 16:19 |
Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 103
Репутация:
0
±
Замечаний:
0% ±
Excel 2007
Manyasha, Однако виноват. Шлю. Вообще вылезли все единицы.
Manyasha, Однако виноват. Шлю. Вообще вылезли все единицы. Тормозяка
Эвольвенты одной эволюты- эквидистантны!
Ответить
Сообщение Manyasha, Однако виноват. Шлю. Вообще вылезли все единицы. Автор - Тормозяка Дата добавления - 19.02.2016 в 16:19
Тормозяка
Дата: Пятница, 19.02.2016, 16:28 |
Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 103
Репутация:
0
±
Замечаний:
0% ±
Excel 2007
Manyasha, Тяжелый был файл. Немного подрезал и значения изменились
Manyasha, Тяжелый был файл. Немного подрезал и значения изменились Тормозяка
Эвольвенты одной эволюты- эквидистантны!
Ответить
Сообщение Manyasha, Тяжелый был файл. Немного подрезал и значения изменились Автор - Тормозяка Дата добавления - 19.02.2016 в 16:28
Manyasha
Дата: Пятница, 19.02.2016, 16:40 |
Сообщение № 7
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация:
898
±
Замечаний:
0% ±
Excel 2010, 2016
Тормозяка , не поняла, где неправильно-то? Обратите внимание на то, что формула не отслеживает конец столбца С, т.е. столбец Е д.б. на 1 ячейку длиннее столбца С. И столбец D тоже будет длиннее, причем намного (см в файле). Если, конечно, Вам по всему столбцу С заполнить нужно
Тормозяка , не поняла, где неправильно-то? Обратите внимание на то, что формула не отслеживает конец столбца С, т.е. столбец Е д.б. на 1 ячейку длиннее столбца С. И столбец D тоже будет длиннее, причем намного (см в файле). Если, конечно, Вам по всему столбцу С заполнить нужноManyasha
ЯД: 410013299366744 WM: R193491431804
Ответить
Сообщение Тормозяка , не поняла, где неправильно-то? Обратите внимание на то, что формула не отслеживает конец столбца С, т.е. столбец Е д.б. на 1 ячейку длиннее столбца С. И столбец D тоже будет длиннее, причем намного (см в файле). Если, конечно, Вам по всему столбцу С заполнить нужноАвтор - Manyasha Дата добавления - 19.02.2016 в 16:40
dima_dan2012
Дата: Пятница, 19.02.2016, 16:44 |
Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 38
Репутация:
8
±
Замечаний:
0% ±
Excel 2003,2007
Напротив 1 значение интервала в ячейке в через который ставится следующая 1 [vba]Код
Sub a1() x = Range("a" & Rows.Count).End(xlUp).Row b = Range("b" & 2).Value For i = 2 To x Step b If Not Not Range("b" & i).Value = 0 And i = 2 Then b = 1 ElseIf Range("b" & i).Value = 0 And i <> 2 Then b = 1 Range("c" & i).Value = 1 Else b = Range("b" & i).Value + 1 Range("c" & i).Value = 1 End If i = i + b Next End Sub
[/vba] [moder]Коды нужно обтягивать кнопкой #. Поправила на первый раз.[/moder]
Напротив 1 значение интервала в ячейке в через который ставится следующая 1 [vba]Код
Sub a1() x = Range("a" & Rows.Count).End(xlUp).Row b = Range("b" & 2).Value For i = 2 To x Step b If Not Not Range("b" & i).Value = 0 And i = 2 Then b = 1 ElseIf Range("b" & i).Value = 0 And i <> 2 Then b = 1 Range("c" & i).Value = 1 Else b = Range("b" & i).Value + 1 Range("c" & i).Value = 1 End If i = i + b Next End Sub
[/vba] [moder]Коды нужно обтягивать кнопкой #. Поправила на первый раз.[/moder] dima_dan2012
WM :Z116994103939
Сообщение отредактировал Manyasha - Пятница, 19.02.2016, 16:48
Ответить
Сообщение Напротив 1 значение интервала в ячейке в через который ставится следующая 1 [vba]Код
Sub a1() x = Range("a" & Rows.Count).End(xlUp).Row b = Range("b" & 2).Value For i = 2 To x Step b If Not Not Range("b" & i).Value = 0 And i = 2 Then b = 1 ElseIf Range("b" & i).Value = 0 And i <> 2 Then b = 1 Range("c" & i).Value = 1 Else b = Range("b" & i).Value + 1 Range("c" & i).Value = 1 End If i = i + b Next End Sub
[/vba] [moder]Коды нужно обтягивать кнопкой #. Поправила на первый раз.[/moder] Автор - dima_dan2012 Дата добавления - 19.02.2016 в 16:44
Тормозяка
Дата: Пятница, 19.02.2016, 16:54 |
Сообщение № 9
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 103
Репутация:
0
±
Замечаний:
0% ±
Excel 2007
Manyasha, Сейчас все встало на свои места. Но почему, только после того как я удалил (для облегчения файла) сверху 1584 строк?
Manyasha, Сейчас все встало на свои места. Но почему, только после того как я удалил (для облегчения файла) сверху 1584 строк? Тормозяка
Эвольвенты одной эволюты- эквидистантны!
Ответить
Сообщение Manyasha, Сейчас все встало на свои места. Но почему, только после того как я удалил (для облегчения файла) сверху 1584 строк? Автор - Тормозяка Дата добавления - 19.02.2016 в 16:54
Тормозяка
Дата: Пятница, 19.02.2016, 16:58 |
Сообщение № 10
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 103
Репутация:
0
±
Замечаний:
0% ±
Excel 2007
dima_dan2012, Спасибо! Однако чукча в VBA не соображает
dima_dan2012, Спасибо! Однако чукча в VBA не соображает Тормозяка
Эвольвенты одной эволюты- эквидистантны!
Ответить
Сообщение dima_dan2012, Спасибо! Однако чукча в VBA не соображает Автор - Тормозяка Дата добавления - 19.02.2016 в 16:58