сцепка текста

[destic]

Привет всем, еще раз)
Подскажите возможно ли макросом сцепить таблицу (учитывая столбец №) и вывести на новый лист в книге, учитывая то, что столбцов в таблице около 50-ти? Если возможно, покажите макет макроса, а то я сам не дойду никак

[Скрипт]

destic, вот такой алгоритм правильный?

1. Макрос двигается по листу "Дано" по столбцу "B";
2. запоминает текущее число в столбце "B";
3. макрос двигается дальше по столбцу "B", пока встречается запомненное число, и запоминает номера строк листа Excel, где встречается запомненное число;
4. когда запомненное число не встречается, макрос объединяет данные из строк, которые он запомнил. Эти данные переносятся на другой лист;
5. макрос продолжает двигаться по столбцу "B" и анализирует другие числа в столбце "B", как указано в пунктах выше.

[nerv]

Если возможно, покажите макет макроса

не вижу ваших попыток

[destic]

Сообщение от nerv

не вижу ваших попыток

пожалуйста.. больше одной строки у меня не сцепляется..

[destic]

Сообщение от Скрипт

destic, вот такой алгоритм правильный?

1. Макрос двигается по листу "Дано" по столбцу "B";
2. запоминает текущее число в столбце "B";
3. макрос двигается дальше по столбцу "B", пока встречается запомненное число, и запоминает номера строк листа Excel, где встречается запомненное число;
4. когда запомненное число не встречается, макрос объединяет данные из строк, которые он запомнил. Эти данные переносятся на другой лист;
5. макрос продолжает двигаться по столбцу "B" и анализирует другие числа в столбце "B", как указано в пунктах выше.

да все верно, только

Сообщение от Скрипт

1. макрос двигается дальше по столбцу "B", пока встречается запомненное число, и запоминает номера строк листа Excel, где встречается запомненное число;

если в столбце B нашлись одинаковые числа, то последовательно сцепить строки соответствующие этим числам до определенной ячейки (g) в одну ячейку; столбцы h,j,i суммировать также по столбцу B, как в примере.

[Скрипт]

destic: если в столбце B нашлись одинаковые числа,

по всему столбцу искать или сразу после числа?

На примере вашей книги из сообщения #1. Сначала в столбце "B" встретилось число "1". Коду двигаться до конца столбца "B" в поисках числа "1" или двигаться пока не начнётся другое число, в вашем примере другое число - это число "2".

[destic]

Сообщение от Скрипт

по всему столбцу искать или сразу после числа?

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

[RAN.]

Для первого файла

Sub www()
    Dim arr(), arr1(), b(), a$, aa(), bb(), i&
    Dim sh As Worksheet, odict As Object
    Set sh = Sheets("Дано")
    With sh
        arr = .[B2].CurrentRegion.Offset(1).Value
    End With
    Set odict = CreateObject("Scripting.Dictionary")
    With odict
        For i = 1 To UBound(arr) - 1
            If Len(arr(i, 2)) Then
                a = arr(i, 2) & " " & arr(i, 3) & " " & arr(i, 4) _
                  & " " & arr(i, 5) & ", " & arr(i, 6)
            Else
                a = arr(i, 3) & " " & arr(i, 4) & " " & arr(i, 5) & ", " & arr(i, 6)
            End If
            b = Array(a, arr(i, 7), arr(i, 8), arr(i, 9), arr(i, 10), arr(i, 11))

            If .exists(arr(i, 1)) Then
                b(0) = .Item(arr(i, 1))(0) & " " & b(0)
                b(1) = .Item(arr(i, 1))(1) + b(1)
                b(2) = .Item(arr(i, 1))(2) + b(2)
                b(3) = .Item(arr(i, 1))(3) + b(3)
            End If
            .Item(arr(i, 1)) = b
        Next
        aa = .keys: bb = .items
        ReDim arr(1 To .Count, 1 To 2)
        ReDim arr1(1 To .Count, 1 To 5)
        For i = 1 To .Count
            arr(i, 1) = aa(i - 1)
            arr(i, 2) = bb(i - 1)(0)

            arr1(i, 1) = bb(i - 1)(1)
            arr1(i, 2) = bb(i - 1)(2)
            arr1(i, 3) = bb(i - 1)(3)
            arr1(i, 4) = bb(i - 1)(4)
            arr1(i, 5) = bb(i - 1)(5)
        Next
        i = .Count
    End With
    Sheets(3).Range("B3").Resize(i, 2) = arr
    Sheets(3).Range("F3").Resize(i, 5) = arr1

End Sub

[The_Prist]

А это не подойдет?
Как сцепить несколько значений в одну ячейку по критерию? СцепитьЕсли