Макрос, распределяющий значения одной таблицы по столбцам другой

@w1shmaster · Регистрация: 07.10.2012

Студворк — интернет-сервис помощи студентам

Доброе время суток, нужна ваша помощь, хотя бы что бы подсказали с чего начать). У меня стоит задача, создать макрос которые будет выбирать данные с одной таблицы, и создав другую вносить их туда.В первой таблице у меня есть два столбца, с которыми я буду работать, числа в одному из них изменяются от 1 до 10, нужно что бы в новой таблице (которую создаст макрос), елементы первого столбца стали заглавными, и что бы не повторялись. а Данные со второго столбца автоматичесски разносились по этим столбцам, в соответсвии с первой талицей. Немного не внятно написал, но как только посмотрите на пример все станет ясно. Спасибо

@w1shmaster · 04.09.2014, 11:46 **[ТС]**

подскажите хотя бы с чего начать(

Аксима · 04.09.2014, 13:18

Здравствуйте, w1shmaster,

Сводная таблица вас устроит?

Visual Basic

Sub Распределитель()
    Sheets("Лист1").Range("C4") = 1
    With Sheets.Add
        ActiveWorkbook.PivotCaches.Create(xlDatabase, Sheets("Лист1").Range("B4").CurrentRegion.Offset(1).Resize(Sheets("Лист1").Range("B4").CurrentRegion.Rows.Count - 1)).CreatePivotTable .Range("A3")
        With .PivotTables(1)
            .AddDataField ActiveSheet.PivotTables(1).PivotFields("кол-во"), "Sum of кол-во", xlSum
            .PivotFields("кол-во").Orientation = xlRowField
            .PivotFields("диреция").Orientation = xlColumnField
        End With
    End With
End Sub

С уважением,

Аксима

@w1shmaster 0 / 0 / 0 Регистрация: 07.10.2012 Сообщений: 85
	04.09.2014, 11:46 [ТС]	2
	подскажите хотя бы с чего начать( 0

Опции темы