Страницы: Пред. 1 2
RSS
Разнесение данных по отдельным листам
 
Вариант без макроса. Файл поместить в папку С:\1,на лист данные поместить исходные данные, протянуть формулы в первом столбце для строка и значения в первой строке для столбцов.  На листе 1 в серой ячейке указать номер индекса - таблица обновится автоматом, либо на таблице ПКМ - Обновить. копируете лист ставите требуемый индекс.
Неизлечимых болезней нет, есть неизлечимые люди.
 
Цитата
StoTisteg написал:
Ну знаете ли, какой пример, такое и решение,  Kuzmich  всё в точности по Вашему примеру сделал
Так я же не в претензии))
Не учел этот момент сразу

Цитата
StoTisteg написал:
я Вам лучше принудительную вставку строк сделаю
Что-то не выходит каменный цветок
Изменено: valex470 - 06.09.2018 06:25:06
 
Цитата
TheBestOfTheBest написал:
Вариант без макроса
В принципе тоже вариант, но тут привязан к конкретному файлу
С макросом всё же несколько удобнее в том плане что просто новый документ создал и в нём макросом всё разнёс
 
Цитата
Что-то не выходит каменный цветок Compile Error
Надо написать Cells
Второй путь: после нахождения метки START искать конец этого блока END
 
Всем добрый день!
Еще раз хочу поблагодарить сообщество форума за помощь (и моё сэкономленное время))
Макрос из данной темы успешно мной используется, но вот хотел попросить подсказки в небольшом нюансе - он работает только если лист имеет имя "Лист1"
Полагаю, что это указано в этой строке:
  Set List1 = ActiveWorkbook.Worksheets("Лист1")

Вопрос - как изменить это условие, что бы макрос отрабатывал независимо от имени на текущем листе где он запускается
Ну и как следствие наверное также надо изменить и предпоследнюю строку кода ( Sheets("Лист1").Delete ), которая удаляла тот лист с исходными данными, то есть что бы команда также удаляла именно тот лист на котором запускался макрос без привязки к имени (не удаляя другие листы в данной книге)
Скрытый текст
Изменено: valex470 - 03.04.2019 13:21:22
 
Код
...
Set List1 = ActiveSheet
...
List1.Delete
...
Неизлечимых болезней нет, есть неизлечимые люди.
 
Цитата
TheBestOfTheBest написал:
Set List1 = ActiveSheet...List1.Delete
Спасибо!
Страницы: Пред. 1 2
Наверх