Создать строки в новых книгах

[Bocul]

Подскажите пожалуйста:

Есть документ excel.
В нем 300 книг (т.е. Лист1 Лист2 - Лист300)

Требуется макрос - который сможет зайти в каждую книгу и создать 3 пустые строчки сверху (именно создать, а не очистить имеющиеся), и в ячейки прописать нужные данные.

Есть вот такие книги (Листы)

Снимок_1.JPG

Требуется автоматом на всех сделать вот так

Снимок_2.JPG

[nilem]

вот

Sub ert()
Dim wsh As Worksheet
For Each wsh In ThisWorkbook.Worksheets
    With wsh
        .Rows("1:3").Insert: .Range("A1:C1").Value = [{"Название","кол-во","цвет"}]
        .Range("B2").FormulaR1C1 = "=SUM(R[2]C:R" & .Cells(Rows.Count, 2).End(xlUp).Row & "C)"
    End With
Next wsh
End Sub

[Hugo121]

Макрорекордер в помощь (и немного доработать полученное):

Sub Макрос1()

    Dim sh As Worksheet
    For Each sh In Worksheets
        With sh
            .Rows("1:3").Insert Shift:=xlDown
            .Range("A1") = "Название"
            .Range("B1") = "кол-во"
            .Range("C1") = "цвет"
            With .Range("A1:C1").Font
                .Color = -16776961
                .TintAndShade = 0
            End With
            .Range("B2") = "формула суммы"
        End With
    Next
End Sub

Ну "формула суммы" конечно требует коррекции, ну какой пример...

[Bocul]

Спасибо Вам за ваше потраченное время на меня!!

Подскажите еще:

Sub Макрос1()

    Dim sh As Worksheet
    For Each sh In Worksheets
        With sh
            .Rows("1:3").Insert Shift:=xlDown
            .Range("A1") = "Название"
            .Range("B1") = "кол-во"
            .Range("C1") = "цвет"
            With .Range("A1:C1").Font
                .Color = -16776961
                .TintAndShade = 0
            End With
            .Range("A2") = "=ВПР("название";A1:B20;2;0)"
                             
        End With
    Next
End Sub

Не срабатывает формула

.Range("A2") = "=ВПР("название";A1:B20;2;0)"

Ругается на русский язык - как обойти это?


Просьба модератора исправить название темы на «Макрос для создание строк с данными в книгах (листах)»

[Hugo121]

У nilem'а пропустили одно слово:

.Range("B2").FormulaR1C1 =

Далее - если пишите ВПР(), тогда пишите FormulaLocal, но лучше

.Range("A2").Formula = "=VLOOKUP(""название"",A1:B20,2,0)"

т.е два варианта:
.Range("A2").Formula = "=VLOOKUP(""название"",A1:B20,2,0)"
.Range("A3").FormulaLocal = "=ВПР(""название"";A1:B20;2;0)"

[Bocul]

Спасибо Вам Hugo121, nilem!!!

Все получилось, так как я хотел!!!!!

[Bocul]

Сообщение от Hugo121

У nilem'а пропустили одно слово:

.Range("B2").FormulaR1C1 =

Далее - если пишите ВПР(), тогда пишите FormulaLocal, но лучше

.Range("A2").Formula = "=VLOOKUP(""название"",A1:B20,2,0)"

т.е два варианта:
.Range("A2").Formula = "=VLOOKUP(""название"",A1:B20,2,0)"
.Range("A3").FormulaLocal = "=ВПР(""название"";A1:B20;2;0)"

Подскажите пожалуйста, как сделать так, что бы был еще один столбец и в нем было название листа.

к пример столбец с название Страница:
и далее будет Лист1

на Листе2 - будет Написано в этом столбце Лист2 и так до 300 или более