Доброго дня,
Подскажите пожалуйста что не так...? Задача собарть все данные в одну таблицу. Усолвие, сбор данных если цвет листа RGB(238, 236, 225), серый. Фаил прикреплен.
Спасибо всем кто отзовется.
Хорошего дня.
Подскажите пожалуйста что не так...? Задача собарть все данные в одну таблицу. Усолвие, сбор данных если цвет листа RGB(238, 236, 225), серый. Фаил прикреплен.
Спасибо всем кто отзовется.
Хорошего дня.
Код |
---|
Sub all_data() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets If ws.Tab.Color = RGB(238, 236, 225) Then ws.Activate 'lastrow = ThisWorkbook.ActiveSheet.Cells(Row.Count, 1).End(xlUp).Row lastrow = ThisWorkbook.ActiveSheet.Cells(Row.Count, 1).End(xlUp).Row For J = 5 To lastrow ThisWorkbook.ActiveSheet.Activate ThisWorkbook.ActiveSheet.Row(J).Select Selection.Copy Worksheets("Upload_V8xx").Activate Worksheets("Upload_V8xx").Activate lastrow = Worksheets("Upload_V8xx").Cells(Rows.Count, 1).End(xlUp).Row Worksheets("Upload_V8xx").Activate.Cells(lastrow + 1, 1).Select ActiveSheet.Paste Next End If Next ws End Sub |