Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Как перенести данные с одного листа на несколько последующих
 
#1
08.08.2018 15:57:29
Добрый день. Нужно чтобы данные из 1-го столбца листа "СВОД" являлись названиями последующих листов, а данные 2-го столбца - попадали в ячейку А3 соответствующих листов. Заранее благодарен. Файл с примером прикладываю. Количество данных в каждом столбце <= 1000
Изменено: Zgigalov - 08.08.2018 16:01:35
 
 
 
#2
08.08.2018 17:07:21
Например:
Код
Option Explicit

Sub aaaaaa()
    Dim r As Integer: r = 1
    Do Until Trim(Sheets("СВОД").Cells(r, 1).Value) = ""
        ThisWorkbook.Sheets.Add(After:=Sheets(Sheets.Count), Count:=1, Type:=xlWorksheet).Name = Trim(Sheets("СВОД").Cells(r, 1).Value)
        Range("a3").Value = Sheets("СВОД").Cells(r, 2).Value
        r = r + 1
    Loop
End Sub
Изменено: ocet p - 08.08.2018 17:09:13
 
 
 
#3
08.08.2018 18:06:03
Цитата
ocet p написал:
Например:Код ? 12345678910Option Explicit Sub aaaaaa()    Dim r As Integer: r = 1    Do Until Trim(Sheets("СВОД").Cells(r, 1).Value) = ""        ThisWorkbook.Sheets.Add(After:=Sheets(Sheets.Count), Count:=1, Type:=xlWorksheet).Name = Trim(Sheets("СВОД").Cells(r, 1).Value)        Range("a3").Value = Sheets("СВОД").Cells(r, 2).Value        r = r + 1    LoopEnd Sub

Изменено: ocet p  - 8 Авг 2018 17:09:13
Run-time error '1004':
Method 'Add' of Object 'Sheets' failed

Добавлю то, что макрос не должен добавлять листы. Только переименовывать. Извиняюсь за неполноту сведений
Изменено: Zgigalov - 08.08.2018 18:17:05
 
 
 
Страницы: 1
Наверх