объединение разного количества строк по условию

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » объединение разного количества строк по условию (Формулы/Formulas)

zagmag-1

Дата: Суббота, 17.10.2015, 12:49 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 22

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

День добрый!

Столкнулся с проблемой: программа автоматизации выгружает мне отчет по дисконтным картам, где данные представленны в порядке возрастания НОМЕРОВ КАРТ. Мне же нужно как-то отсортировать в порядке убывания суммы на каждой карте.

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

Прикрепляю фрагмент отчета.

Помогите, пожалуйста, моих знаний не хватает.

К сообщению приложен файл: _Microsoft_Exce.xlsx (16.7 Kb)

Ответить

МВТ

Дата: Суббота, 17.10.2015, 13:37 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 476

Репутация: 137 ±

Замечаний: 0% ±

Excel 2007

Максро подставляет в допостолбец общую суму по карте. Просто сортируете по этому столбцу[vba]

Код

Sub tt()
Dim LRow As Long: LRow = Cells(Rows.Count, 1).End(xlUp).Row - 3
Dim I As Long, S As String, J As Long, J1 As Long
For I = 7 To LRow
    If Cells(I, 1).Value Like "дисконтная карта: *" Then S = Replace(Cells(I, 1), "дисконтная карта: ", "")
    With Application.WorksheetFunction
        On Error Resume Next
        Cells(I, "J").Value = .Index(Range("H7:H" & LRow), .Match("Итого по дисконтной карте: " & S, Range("A7:A" & LRow), 0))
    End With
Next
End Sub

[/vba]

Ответить

zagmag-1

Дата: Суббота, 17.10.2015, 13:49 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 22

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

МВТ, спасибо!

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по Excel » объединение разного количества строк по условию (Формулы/Formulas)

Страница 1 из 1
1