Привет всем, еще раз!
Зациклился с функциями и способами решения.
У меня есть две таблицы:
Показания счетчика по трем зонам
Название | Т0 | Т1 | Т2 |
База 1 | 121 | 22 | 11 |
База 2 | 1 | 5 | 10 |
Нужно получить обратную таблицу
Название | Зона | Показания |
База 1 | Т0 | 121 |
База 1 | Т1 | 22 |
База 1 | Т2 | 11 |
База 2 | Т0 | 1 |
База 2 | Т1 | 5 |
База 2 | Т2 | 10 |
И так, таких объектов более 100 шт.
Мне нужно придумать макрос, который открывал первую таблицу и копировал данные в открывшуюся с макросом таблицу. Макрос открытия и выбора таблицы я написал. Вот как написать функцию выборки с первой таблицы->копировал->выборка во второй таблицы->вставить???
Код |
---|
last = Workbooks(sh).Worksheets(1).Range("A65536").End(xlUp).Row 'показывает сколько строк в таблице Pokaz заполнено
For i = 1 To last - 6
Range("D" & i + 6 & "").Select 'Выборка наз. объктов с таблицы Pokaz
Selection.Copy ' Копирование
Windows("CSV.xlsm").Activate 'Активируем вторую таблицу CSV
Sheets("Лист1").Select 'Активируем во второй таблице лист "Лист1"
Range("C" & last + 1 & "":C" & last + 3 &"").Select ' указываем диапазон ячеек, должно быть 3 Как здесь написать условие чтобы начинал вставлять диапазон ячеек с тремя названиями???
ActiveSheet.Paste ' Ставим
Next i |