Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Промежуточные итоги при создании отчета в Excel.  [new]
Дуб-дубом
Guest
На листе Excel столбец содержит список ФИО. Значения отсортированы по алфавиту, каждое ФИО встречается несколько раз. Нужно вставить пустую строку после каждой группы одинакового ФИО.
me1:
For j = ВтораяСтрокаСписка To ЧислоСтрокСписка + z 'начало поиска
 If .cells(j, 1).Value <> .cells(j - 1, 1).Value Then
    .rows(j).Insert Shift:=-4121 'вставить строку
     j = j + 2 'увеличить номер строки поиска
     z = z + 1 'увеличить общее число строк поиска
     GoTo me1 'вернуться к началу с новыми исх. данными
 End If
Next
Где-то я перемудрил, в последней группе списка возникает ошибка: пустая строка может вставиться посреди группы.
16 май 06, 17:39    [2670715]     Ответить | Цитировать Сообщить модератору
 Re: Промежуточные итоги при создании отчета в Excel.  [new]
MVS_L
Guest
Delete все и Paste вот это
For j = ЧислоСтрокСписка To ВтораяСтрокаСписка Step -1 'начало поиска
 If .Cells(j, 1).Value <> .Cells(j - 1, 1).Value Then .Rows(j).Insert Shift:=-4121 'вставить строку
Next
16 май 06, 21:56    [2671538]     Ответить | Цитировать Сообщить модератору
 Re: Промежуточные итоги при создании отчета в Excel.  [new]
Дуб-дубом
Guest
Вот только не получается вставить итоговую строку после самой последней строки списка. Т.е. самая последняя группа(даже из одной строки) остается без итога.
21 июн 06, 18:04    [2798659]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить