копирование содержимого каждого листа в книги в одну таблицу

[skapitan]

добрый день!

спасибо большое этому форуму.
что получилось сделать : получается копировать различные xls листы в одну книгу. что не получается:

с каждого листа нужно скопировать содержимое на лист Analysis:


- с листа 1 скопировать колонки A B C без пустых строк начиная со строки 1
- вставить на лист Analysis
- название листа 1 скопировать в колонку D для всех вставленных строк

- с листа 2 скопировать колонки A B C без пустых строк начиная со строки 2
- вставить на лист Analysis
- название листа 1 скопировать в колонку D для всех вставленных только что строк

- повторить то же самое что для листа 2 для всех остальных листов в книге

во вложении файл. помогите, пожалуйста

[pme]

Привет!
Ваши хотелки реализуемы.
Но в Вашем файле нет "лист 1", "лист 2".
Sheet1 пуст.

[IgorGO]

Sub JoinSheetsData()
  Const shnm$ = "Analysis"
  Dim sht As Worksheet:  Worksheets("Analysis").Activate
  For Each sht In Worksheets
    If sht.Name <> "Analysis" Then
      sht.UsedRange.Copy Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
      Cells(Rows.Count, 4).End(xlUp).Offset(1, 0).Resize(sht.UsedRange.Rows.Count, 1).Value = sht.Name
    End If
  Next
End Sub

[skapitan]

спасибо огромное! можно пожалуйста дописать код, чтобы

1. первую строчку с данными копировал только с самого первого листа. со второго, третьего,..., листа n - копировал все кроме первой строчки.


2. c листа 1, 2,... n - ячейку B1 копировал в столбец E для каждой строки листа с которого взяты данные.
например,
шаг 1: копирование данных с листа 2 на лист анализ. копируем все содержимое с листа 2 (кроме первой строки) , далее для 4 строк скопированных с листа 2 ставим в столбец E на листе Analysis значение ячейки B1 Лист 2 для всех скопированных строк


большое спасибо за помощь!!!