Как сформировать новую таблицу из старой, исключив записи с нулевым итогом

[PhilAT]

Например:

В столбце "Оплата" - только положительные числа
В столбце "Долг" - только отрицательные числа.
*Под чертой – это пример новой таблицы, которая должна быть в новом файле.

Вот "Коля" в сроке 2 имеет значение 20, а в строке 6 -20. Этот "Коля" нам в новой таблице не нужен.
"Вася" - наоборот, сначала -30, потом 30. Тоже не нужен в новой таблице.
"Петя" -50+40=-10 – переносим данные строки "Петя" в новую таблицу со значением -10. И так далее.
Причем значение "дата" должно копироваться с той строки, в которой возникла разница. Например, у "Пети" и "Миши" все ясно, а вот у "Саши": долг, оплата и снова долг. Если долг будет увеличиваться, то сумма долга возрастет, а дата останется той, когда этот долг возник - 12.01.10.

Вообще не могу сообразить в какую сторону двигаться. Спасибо за любую помощь.

[brans]

Под чертой у Вас сформираованна табличка окончательная с доглгами и оплатой. не плохо бы было добавить к ней шапку и провести фильтрацию с критерием долг меньше нуля. (Вам нужно средствами Excel или на VBA?)... это как вариант, если я Вас правильно поняла, то может подойти, а если нет, то извините(((

[vikttur]

Два варианта - отдельной таблицей и автофильтром. Отслеживается не дата возникновения долга, а последняя дата.

[PhilAT]

2 brans
Под чертой – это пример новой таблицы. VBA, скорее всего, лучше подойдет для этой задачи.

2 vikttur
Дело в том, что реальная таблица имеет несколько десятков тысяч строк и несколько VBA-скриптов, поэтому нужно не фильтровать,а перенести в новую таблицу, в другой файл. Но Ваш подход я препарирую, возможно что-нибудь найду там полезное. Спасибо!

[nilem]

Вот так попробуйте.

[PhilAT]

2 nilem
Спасибо, это работает как следует!
Только почему-то не могу понять как адаптировать к своей таблице, в которой Оплата и Долг не в 3-м и 4-м столбцах, а в 13-м и 14-м. Промежуточные столбцы имеют данные, которые тоже надо копировать, если по критериям (ну, которые в примере: Оплата и Долг) строка выбрана для копирования в другую таблицу.
Казалось бы, надо просто заменить 3 на 13 и 4 на 14, но не понимая что и как - не получается. И разобраться не смог.
Можно немножко прокомментировать текст VBA?

[nilem]

Писать комментарии неинтересно. Лучше напишу еще вариант кода. См. файл.
Если таблицы большие, попробуйте сравнить варианты по скорости выполнения.

[PhilAT]

2 nilem
Спасибо, дружище!
Проблема оказалась в другом: если в сравниваемой ячейке (13-й или 14-й) нет цифры, но вдруг оказывается пробел или формула - скрипт вываливается.

Еще интересная ситуация с первым столбцом, с датой. Дату почему-то коробит интересным способом: после переноса число и месяц меняются местами. Причём не важен формат или локаль исходной ячейки.

И, кстати, работает молниеносно! Так, что я не стал сравнивать скорость. Просто подчистил пробелы, формат ячеек с датой преобразовал в число, а потом в целевой таблице преобразовал обратно.
Еще раз спасибо!!!

[nilem]

----------
Ну, чтобы была какая-то завершенность. Вот так учитывает пробелы и заодно точки вместо запятых в дробных числах (тоже часто бывает).

[PhilAT]

2 nilem
Я тоже люблю завершенность, но не всегда могу её добиться.)

Да, так еще лучше. Только с датой – все равно не понятно??? Тут уже "спортивный" интерес, что ли. Потому, что не уверен, что мне этот скрипт еще раз понадобится.