Нужен макрос объединения одинаковых ячеек и...

[lakcin]

Всем привет! Каждый день осуществляю выгрузку из 1С отчета в виде таблицы в формате Excel 2007. Расположение столбиков в отчете стандартное, а вот число строк в таблице всякий раз разное (1 и 2 строка всегда одинаковые)
Нужен макрос который проводит:

1. В столбце «Получатель» объединяет рядом стоящих одинаковых получателей (только вместе стоящих), то есть применяет команду «Объединить и поместить в центре»;

2. После этого действия подписать к каждому получателю (пробел и количество, которое к нему относится) из столбика «Количество», то есть там где получатель был объединен – нужно подписать общее его количество.

Прилагаю архив - начальный пример и как должно стать

Заранее большое спасибо за помощь!

[IgorGO]

выполните этот

Sub Union5Column()
  Dim r As Long, c As Long, DAsetting As Boolean
  r = 3: DAsetting = Application.DisplayAlerts:  Application.DisplayAlerts = False
  Do
    c = 1
    Do While Cells(r, 5) = Cells(r + c, 5)
      c = c + 1
    Loop
    If c > 1 Then
      With Cells(r, 5).Resize(c, 3)
        .WrapText = True
        .MergeCells = True
      End With
    End If
    Cells(r, 5) = Cells(r, 5) & " " & WorksheetFunction.Sum(Cells(r, 11).Resize(c, 2))
    r = r + c
  Loop Until IsEmpty(Cells(r, 5))
  Application.DisplayAlerts = DAsetting
End Sub

[lakcin]

Большое тебе СПАСИБО!
Пожалуйста просьба - напиши пожалуйста код, который объединяет ячейки с одинаковыми данными в таблице именно в столбике "№ заявки". Это не лень просто для меня данные коды сплошной лес.
Благодарю!!!

[IgorGO]

сделал, как показано в примере.

для меня код понятен, а вот задача теперь - нет!
у заявки Ш00021024 два разных получателя, заявка теперь должна выглядеть так: Ш00021024 16
так?
подозреваю, что теперь не я один не понимаю что надо сделать))

[lakcin]

IgorGO - спасибо твой код то что надо!

Задача проста - в столбике "№ заявки" объединить рядом стоящие ячейки с одинаковыми данными, то есть применить команду «Объединить и поместить в центре», и больше ничего не делать (не надо ничего добавлять и обращать внимание на получателя).

Спасибо!

[gling]

Может сводная таблица поможет? Сортируйте в ней и объединяйте по любым параметрам и код писать не надо.

[IgorGO]

Sub Union23Column()
  Dim r As Long, c As Long, DAsetting As Boolean
  r = 3: DAsetting = Application.DisplayAlerts:  Application.DisplayAlerts = False
  Do
    c = 1
    Do While Cells(r, 23) = Cells(r + c, 23)
      c = c + 1
    Loop
    If c > 1 Then
      With Cells(r, 23).Resize(c, 1)
        .WrapText = True
        .MergeCells = True
      End With
    End If
    r = r + c
  Loop Until IsEmpty(Cells(r, 23))
  Application.DisplayAlerts = DAsetting
End Sub

[lakcin]

СПАСИБО! ОЧЕНЬ ПОМОГ!!!

[IgorGO]

пожалуйста!
"эх, теряю былую легкость"
раньше бывало пишут "обьединить по получателю", а я-то сразу догадывался, что обьединять надо по заявкам и... сумма не нужна

при описании задачи "тщательнее надо" (С) М.Жванецкий

ЗЫ:
всем не скучной пятницы!!!

[lakcin]

IgorGO - )))

Столкнулся с проблемкой(( Как правильно объединить эти 2 макроса в один???