Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
agent_bond007
0 / 0 / 0
Регистрация: 27.11.2015
Сообщений: 7
#1

Создать дубль строки по значению в ячейке

20.04.2018, 11:35. Просмотров 213. Ответов 6
Метки нет (Все метки)

Добрый день, уважаемые знатоки Excel!

Подскажите, пожалуйста, как можно реализовать данную таблицу:
Исходная таблица:
Ст1 Ст2 Ст3
1 aaa 1,2,3,4,5,9
2 bbb 6
3 ccc 7
4 ddd 1
5 eee 2

Результат:
Ст1 Ст2 Ст3
1 aaa 1
1 aaa 2
1 aaa 3
1 aaa 4
1 aaa 5
1 aaa 9
2 bbb 6
3 ccc 7
4 ddd 1
5 eee 2

Дана таблица в Столбце №3 есть номера перечислены через запятую, если такая строка встретилась то требуется создать копию строки.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.04.2018, 11:35
Ответы с готовыми решениями:

Изменение строки формулы по значению в ячейке
Необходимо изменить формулу ссылки рисунка в зависимости от значения другой ячейки.Возможно ли...

Поисковый запрос по значению в ячейке
Подскажите пожалуйста. Есть таблица, в листе 001 находятся данные. На лисле 002 находится...

Окрас фигур по значению в ячейке
Добрый день, подскажите пожалуйста как окрасить фигуры в экселе по значению в ячейке, т.е. в...

Поиск в ячейке по определенному значению
Здравствуйте. помогите пожалуйста написать макрос, так как в этом не бум бум а только начинаю...

Скрытие вкладки по значению формулы в ячейке
Добрый день, уважаемые форумчане. Помогите реализовать следующую задачу: Имеется вкладка Ввод...

6
Казанский
14067 / 5790 / 1510
Регистрация: 24.09.2011
Сообщений: 9,080
20.04.2018, 12:15 #2
agent_bond007,
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Sub Ag()
Dim d$(), i&, n&
  For i = Cells(Rows.Count, 3).End(xlUp).Row To 2 Step -1
    d = Split(Cells(i, 3), ",")
    If UBound(d) Then
      n = UBound(d) + 1
      Rows(i + 1).Resize(n - 1).Insert
      Cells(i, 1).Resize(, 2).Copy Cells(i, 1).Resize(n, 2)
      Cells(i, 3).Resize(n) = WorksheetFunction.Transpose(d)
    End If
  Next
End Sub
1
agent_bond007
0 / 0 / 0
Регистрация: 27.11.2015
Сообщений: 7
20.04.2018, 12:45  [ТС] #3
Спасибо!
Я извиняюсь за наглость, но подскажите как пользоваться этим макросом?
Выделил исходную таблицу - > Макрос -> Выполнить -> Выдает ошибку на строку:
Rows(i + 1).Resize(n - 1).Insert
0
Казанский
14067 / 5790 / 1510
Регистрация: 24.09.2011
Сообщений: 9,080
20.04.2018, 19:59 #4
agent_bond007, приложите файл, на котором ошибка возникает.
0
agent_bond007
0 / 0 / 0
Регистрация: 27.11.2015
Сообщений: 7
23.04.2018, 09:13  [ТС] #5
Добрый день!
Открыл в чистом файле, создал таблицу, выделил её, запускаю макрос - ничего не происходит.Файл приложил.
0
Вложения
Тип файла: xls ДубльСтроки.xls (30.0 Кб, 4 просмотров)
Остап Бонд
591 / 390 / 187
Регистрация: 17.08.2017
Сообщений: 959
23.04.2018, 09:32 #6
agent_bond007, шапку из одной строки к таблице придумайте, как на вашей картинке было,
или строку кода исправьте - было
Цитата Сообщение от Казанский Посмотреть сообщение
For i = Cells(Rows.Count, 3).End(xlUp).Row To 2 Step -1
стало
Visual Basic
1
  For i = Cells(Rows.Count, 3).End(xlUp).Row To 1 Step -1
0
agent_bond007
0 / 0 / 0
Регистрация: 27.11.2015
Сообщений: 7
23.04.2018, 10:15  [ТС] #7
Огромное Вам спасибо, работает!!!
0
23.04.2018, 10:15
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.04.2018, 10:15

Сортировка столбцов с данными по значению в верхней ячейке
В общем есть таблица в которой каждый столбец начинается с числа а затем заполнен смешанной...

По значению в ячейке выделить определённым цветом всю строку
Добрый вечер! Ну, пожалуйста, необходим макрос: В определённом столбце(R) если значение в ячейке...

Создать имя файла, соответствующее ячейке
Здравствуйте! Задача следующая: в Книге excel есть ячейка, в которой данные постоянно меняются в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru