Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Создать 1000 копий листов
 
#1
10.09.2018 12:32:26
доброго времени суток уважаемые форумчане
как быстро создать 1000 копию(клон) одного листа ?
 
 
 
#2
10.09.2018 12:37:42
Написать макрос, в котором циклом повторить 1000 раз операцию копирования.
А как Вы собираетесь работать с таким количеством листов? Да и хватит ли памяти на такое количество...
 
 
 
#3
10.09.2018 12:39:28
Записать макрорекордером копирование листа и завернуть получившийся код в цикл на 1000 интераций. Вот только зачем Вам 1000 одинаковых листов? Может задача решается другим, более рациональным, способом?
Согласие есть продукт при полном непротивлении сторон
 
 
 
#4
10.09.2018 12:44:50
Цитата
Юрий М написал: Написать макрос
а можно макрос позаимствовать у Вас ? памяти думаю хватит (пока не попробую не узнаю ))) )

Цитата
Sanja написал: Вот только зачем Вам 1000 одинаковых листов?
задача простая....ввести учет дебиторов
на крайний случай можно не 1000 а 100
 
 
 
#5
10.09.2018 12:54:25
Цитата
max-aziat написал: ввести учет дебиторов
Учет ведите в ОДНОЙ, плоской таблице (1 млн. строк Вам хватит?), а вот отчеты по каждому (или по нескольким) составляйте Сводными таблицами, PQ, макросами и прочими инструментами Excel
Согласие есть продукт при полном непротивлении сторон
 
 
 
#6
10.09.2018 12:55:02
Добрый день!
В модуль
Код
Sub copyws()
For i = 1 To 1000
    Sheets("Лист1").Copy After:=Sheets(1)
    Next
End Sub
 
 
 
#7
10.09.2018 13:08:04
спасибо огромное
модуль/макрос работает, но можно его немного усовершенствовать ?
при выполнение макроса листы дублируются , но вот имена ( получаются  1(2),  1(3),  1(4), ......,1(101)  )
можно сделать так, что бы имена были по возрастанию (1,2,3,..., 100) ?  

заранее благодарен
 
 
 
#8
10.09.2018 13:09:25
Код
Sub copyws()
For i = 1 To 1000
    Sheets("Лист1").Copy After:=Sheets(Sheets.Count)
    Next
End Sub
 
 
 
#9
10.09.2018 13:09:50
Цитата
Sanja написал: Может задача решается другим, более рациональным, способом?...
Учет ведите в ОДНОЙ, плоской таблице
прислушайтесь.
 
 
 
#10
10.09.2018 13:12:27
Код
Sub СopySheets()
    Application.ScreenUpdating = False
    For i = 1 To 10 ' Вместо 10 напишите нужное количество
        Sheets("Лист1").Copy After:=Sheets(Sheets.Count)
        ActiveSheet.Name = i
    Next
    Application.ScreenUpdating = True
End Sub
 
 
 
#11
10.09.2018 13:14:00
Цитата
vikttur написал: прислушайтесь.
готов выслушать  Ваше предложение/идеи
 
 
 
#12
10.09.2018 13:17:23
В другой теме, где опишете задачу. А в общем Вам предложили - вести учет  в одной таблице
 
 
 
#13
10.09.2018 13:20:29
Для количеств кратных 2, здесь для 32. С именами, правда, беда :)
Код
Sub hh()
Dim i&
  For i = 0 To 4
    Sheets(Evaluate("TRANSPOSE(ROW(R1:R" & 2 ^ i & "))")).Copy , Sheets(2 ^ i)
  Next
End Sub
Изменено: Казанский - 10.09.2018 13:20:43
 
 
 
#14
10.09.2018 13:25:34
Цитата
Юрий М написал:
Sub СopyShets()    
Application.ScreenUpdating = False    
For i = 1 To 10 ' Вместо 10 напишите нужное количество        
Sheets("Лист1").Copy After:=Sheets(Sheets.Count)        
ActiveSheet.Name = i    
Next    
Application.ScreenUpdating = TrueEnd Sub

спасибо работает на все 100%

всем большое спасибо за помощь
Изменено: max-aziat - 10.09.2018 13:26:36
 
 
 
#15
10.09.2018 13:27:19
Горе-цитата зачем?
 
 
 
#16
10.09.2018 13:27:45
max-aziat, не нужно цитировать - я помню свой код )
 
 
 
#17
10.09.2018 13:28:30
Казанский,

извините, не понял
 
 
 
#18
10.09.2018 13:30:35
vikttur,
Юрий М,
извините
 
 
 
#19
10.09.2018 14:18:17
Цитата
max-aziat написал: готов выслушать  Ваше предложение/идеи
vikttur, Вам советует прислушаться к моему совету (извините за тавтологию) из сообщения 5
Согласие есть продукт при полном непротивлении сторон
 
 
 
Страницы: 1
Наверх