Мне необходимо макросом переименовать все листы одного файла на цифры, начиная с 1...В итоге названия листов должны быть следующие "1", "2", "3" и т.д...
В инете нашел только массовое переименование листов с заданным на листе условием....
Добрый день!
Мне необходимо макросом переименовать все листы одного файла на цифры, начиная с 1...В итоге названия листов должны быть следующие "1", "2", "3" и т.д...
В инете нашел только массовое переименование листов с заданным на листе условием....Влад777
Sub НазваниеЛиста_Номер() Dim sheet As Worksheet For Each sheet In ActiveWorkbook.Worksheets sheet.Name = sheet.Index Next End Sub
[/vba] Но если у Вас уже будет лист = цифрой, при котором может быть совпадение по имени, то будет ошибка. А по первому макросу может быть ошибка, если имя у Вас длинное, потому что он сначало изменяет наименование, добавляя "1_" вначале имени листа, чтобы исключить совпадения листа по номеру. Так вот если у Вас наименование листа +2 будет выходить >31 (вродебы) символа, то будет ошибка.
Влад777, НЗ, можно даже так: [vba]
Код
Sub НазваниеЛиста_Номер() Dim sheet As Worksheet For Each sheet In ActiveWorkbook.Worksheets sheet.Name = sheet.Index Next End Sub
[/vba] Но если у Вас уже будет лист = цифрой, при котором может быть совпадение по имени, то будет ошибка. А по первому макросу может быть ошибка, если имя у Вас длинное, потому что он сначало изменяет наименование, добавляя "1_" вначале имени листа, чтобы исключить совпадения листа по номеру. Так вот если у Вас наименование листа +2 будет выходить >31 (вродебы) символа, то будет ошибка.Roman777
как сделать, чтобы переименование шло со второго листа и до конца [moder]Читаем Правила форума, создаём свою тему, прикладываем файл с примером. Эта тема закрыта[/moder]
как сделать, чтобы переименование шло со второго листа и до конца [moder]Читаем Правила форума, создаём свою тему, прикладываем файл с примером. Эта тема закрыта[/moder]Аналитик2012
Сообщение отредактировал Pelena - Воскресенье, 28.02.2016, 08:38