Перенос данных из одного листа одной таблицы в создаваемые листы другой таблицы

Posted by obzor under VBA

Подскажите пожалуйста как написать макрос в Excel для переноса данных из одного листа одной таблицы в создаваемые листы другой таблицы. Условия такие: есть таблица (Test), имеющая один лист (Лист1) с данными в трех столбцах, необходимо перенести информацию из ячеек столбцов «В» и «С» в другую таблицу (Nado), таким образом что ячейки первого столбца «А» первой таблицы (Test) должны стать названиями листов второй таблицы (Nado), при совпадении значений ячеек первого столбца «А» новая страница не должна создаваться, строки переносятся только на тот лист, который имеет название первой ячейки строки.

Aleksandr H.

вариант разноса по листам

Sub fa()
    Dim r As Long, rr As Long
    r = Range("A5000").End(xlUp).Row
    Dim i As Long
    Dim s As Worksheet
    For i = 1 To r
        If i = 1 Then
            Set s = Sheets.Add(After:=Sheets(Sheets.Count))
            s.Name = Sheets(1).Cells(i, 1)
            Sheets(1).Range("B" & i & ":C" & i).Copy
            s.Cells(1, 1).PasteSpecial
            rr = 2
        ElseIf Sheets(1).Cells(i - 1, 1) <> Sheets(1).Cells(i, 1) Then
            Set s = Sheets.Add(After:=Sheets(Sheets.Count))
            s.Name = Sheets(1).Cells(i, 1)
            Sheets(1).Range("B" & i & ":C" & i).Copy
            s.Cells(1, 1).PasteSpecial
            rr = 2
        Else
            Sheets(1).Range("B" & i & ":C" & i).Copy
            s.Cells(rr, 1).PasteSpecial
            rr = rr + 1
        End If
    Next
   Set s = Nothing
End Sub

тема на форуме

Похожие статьи

• Ping из VBA
• Progress bar или индикация выполнения макроса в Microsoft Office Excel
• Запретить ввод пробелов в ячейки Excel
• Массовое переименование label на форме
• Вынести часть текста из многострочной ячейки по условию (Excel)
• Копирование данных в Excel «отталкиваясь» от последней заполненой строки
• Вставка данных в Excel после последней заполненной ячейки
• Как в Excel посчитать количество дней, прошедших с заданного числа
• Копирование данных «отталкиваясь» от последней заполненной строки Excel
• Как вытащить URL адрес из формулы с гиперссылкой в Excel