Блог

 Dim wrk As Workbook
Dim sht As Worksheet 
Dim trg As Worksheet 'Master Worksheet
Dim rng As Range 
........
........
For Each sht In wrk.Worksheets          
         'Data range starts from 2nd row as 1st row are the headers
        Set rng = sht.Range(sht.Cells(2, 1), sht.Cells(65536, 1).End(xlUp).Resize(, colCount)) 
         'Put data into the Master worksheet
        trg.Cells(65536, 1).End(xlUp).Offset(1).Resize(rng.Rows.Count, rng.Columns.Count).Value = rng.Value 
    Next sht 
 

Файл, над которым я работаю, называется «Продажи 04/01». В нем есть рабочие листы с названиями «авто», «морской», «железнодорожный» и т. Д. Теперь я хочу добавить 2 столбца в целевой лист перед объединением всех этих — col A, чтобы показать «Продажи 04/01», и col B, чтобы показать имя wksheet, соответствующее данным.
Могу ли я получить, пожалуйста, помощь в этом?