Если руками, то можно так: Выделяете F2:G60, Данные - Промежуточные итоги - ОК - снимаете галку "Итоги под данными" - ОК. Убиваете третью строку и меняете через Контрл h "Итог" на "- номер карты" Получается как в файле
Если руками, то можно так: Выделяете F2:G60, Данные - Промежуточные итоги - ОК - снимаете галку "Итоги под данными" - ОК. Убиваете третью строку и меняете через Контрл h "Итог" на "- номер карты" Получается как в файле_Boroda_
Sub isertRows() Application.ScreenUpdating = False lr = Cells(Rows.Count, 1).End(xlUp).Row For i = lr To 3 Step -1 If (Cells(i, "f") <> Cells(i - 1, "f")) Then _ Rows(i).Insert xlDown: Cells(i, "f") = "Дисконтная карта: " & Cells(i + 1, "f") Next i Application.ScreenUpdating = True End Sub
[/vba]
zagmag-1, вариант с макросом [vba]
Код
Sub isertRows() Application.ScreenUpdating = False lr = Cells(Rows.Count, 1).End(xlUp).Row For i = lr To 3 Step -1 If (Cells(i, "f") <> Cells(i - 1, "f")) Then _ Rows(i).Insert xlDown: Cells(i, "f") = "Дисконтная карта: " & Cells(i + 1, "f") Next i Application.ScreenUpdating = True End Sub
У Вас неразрывные пробелы в конце чисел. Контрл h В "Найти" при нажатом Альт набираете на цифровой клавиатуре 0160 В "Заменить на" ничего Потом выделяете F:K и делаете Промитог, поставив нужные галки
У Вас неразрывные пробелы в конце чисел. Контрл h В "Найти" при нажатом Альт набираете на цифровой клавиатуре 0160 В "Заменить на" ничего Потом выделяете F:K и делаете Промитог, поставив нужные галки_Boroda_
_Boroda_, если Вы еще и подскажете, как выделить итог по каждой карте (цена,кол-во,сумма) жирным или цветом, то будет вообще фантастика! :yes: [moder]Не надо складывать все вопросы в одну тему. Читаем Правила форума[/moder]
_Boroda_, если Вы еще и подскажете, как выделить итог по каждой карте (цена,кол-во,сумма) жирным или цветом, то будет вообще фантастика! :yes: [moder]Не надо складывать все вопросы в одну тему. Читаем Правила форума[/moder]zagmag-1
Сообщение отредактировал Pelena - Четверг, 17.12.2015, 10:08