Непростое решение простой проблемы

[Disa]

В поиске к сожалению ничего не нашел
Имеется таблица в экселе с ключевым столбцом. Например код товара, а остальные столбцы это значения для этих кодов.

Код товара иногда повторяется, нужно сделать так чтобы он не повторялся причем чтобы в других столбцах значения суммировались по этим кодам товара. Можно чтобы это была уже новая таблица.
В аксцессе это все стандартными средствами решается, но нужно в экселе.
Стандартными формулами как то не получается. Алгоритм в принципе понятен сделать все с помощью циклов, но не знаю как "привязаться" к ячейкам.

Зараннее спасибо

[inq]

но не знаю как "привязаться" к ячейкам.

cells(i,j) ?

[Disa]

Если правильно понял i - это номер столбца, а j - это номер ячейки

[inq]

Нет. i - номер строки, j -номер столбца.
А вообще можно справку почитать, книжку по экселевскому ВБА...

[HandKot]

а если запросик сделать?
Тем более это для Вас в Акцессе проблем не вызывает

[Disa]

Запрос это все понятно если не получится так и сделаю
Но требуется в экселе, неужели не станартных средств.

[I10]

Сводную таблицу (PivotTable) пробовал?

[RayShade]

Блин. Есть стандартная фича в Excel, я не помню как она называется, что то типа Итоги или как то так.

[GAGArin]

Мне кажется задача решается стандартными формулами. Если будет пример таблички, то скажу точно, а пока не очень понятно.

[uhm]

СУММЕСЛИ

[Disa]

:shock:

СУММЕСЛИ

Подразумевалось что одинаковые ячейки не будут располагаться рядом, а все будет вразнобой.

Помойму тут одиними формулами не разрулишь
Только с помощью сводной таблицы

Или может поподробнее объяснишь?

[uhm]

Хелп посмотри по функции, а?
Если я правильно понял твои условия, это все, что тебе нужно.

[Disa]

Ну вроде разобрался

Но тут появилась более сложная задача
Имеется таблица с ключевым столбцом и другими столбцами.
К ней справа пристыковывается вторая таблица, тоже с ключевым столбцом и другими столбцами. Нужно сделать так чтобы во второй таблице строки переставились таким образом когда одно и тоже значение в ключевой столбце 2-й таблици находится напротив такого же значения в ключевом столбце из 1-й таблицы

В экселевском файле можете посмотреть весит мало
Думаю там более понятно
Зараннее сапибо всем кто откликается

[I10]

Количество строк у таблиц и значения ключевых полей одинаковые?

[Disa]

да

[I10]

Сортировать нельзя?

[Disa]

увы нельзя

[Disa]

в перспективе в новых таблицах может быть меньше строк чем главной таблице

[uhm]

Теперь смотрим хелп по функции ВПР (или ГПР).

[Disa]

ГРП?
как расшифровывается?

[I10]

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

таб 3

Код
=INDEX($C$6:$D$12; MATCH( A6 ;$C$6:$C$12;0); 1 )
=INDEX($C$6:$D$12; MATCH( A7 ;$C$6:$C$12;0); 1 )
...

данные2
=INDEX($C$6:$D$12;MATCH( A6 ;$C$6:$C$12;0); 2 )
=INDEX($C$7:$D$12;MATCH( A7 ;$C$6:$C$12;0); 2 )
...

[uhm]

Вертикальный просмотр, или горизонтальный просмотр. VLOOKUP и HLOOKUP в английской версии.

Вариант с индексом, предложенный I10
, кстати, тоже видимо покатит. Только нужно правильно обрабатывать ненайденные значения.

[Disa]

Вертикальный просмотр, или горизонтальный просмотр. VLOOKUP и HLOOKUP в английской версии.

Вариант с индексом, предложенный I10
, кстати, тоже видимо покатит. Только нужно правильно обрабатывать ненайденные значения.

Видимо и прокатит
Но выдает ошибку
Вы правы

[I10]

Если руссифицированный Excel, то используются русские аналоги этих функций

Если ошибка связана с тем, что значение не найдено, то можно проверять функцией iserror

[Disa]

хорошо попробую перевести функции на русский

[GAGArin]

Код: Выделить всё

=ВПР(A6;$C$6:$D$12;2;ЛОЖЬ)

Для первой строчки. У меня выдает как надо.

Главное указать интервальный просмотр в False иначе он считает таблицу отсортированной.

[Bagathur]

Код: Выделить всё

Private Sub Сравнить()
Row = Application.CountA(Sheets("ХХХХ").Columns(1)) 'находит последнюю незаполненную строку таблицы
With ActiveWorkbook.Sheets("лист1")
For i = 1 To Row
For j = 1 To Row
If .Cells(i, 1).Text = .Cells(j, 3).Text Then 'сравнивает коды
.Cells(i, 5).Value = .Cells(i, 1).Value 'делает новую таблицу вплотную с первой
.Cells(i, 6).Value = .Cells(i, 2).Value
.Cells(i, 7).Value = .Cells(j, 3).Value
.Cells(i, 8).Value = .Cells(j, 4).Value
End If
Next
Next
End With
End Sub

У меня вроде работает. Хотя если строк много на быстроту расчитывать не приходится.

[Disa]

Код: Выделить всё

=ВПР(A6;$C$6:$D$12;2;ЛОЖЬ)

Для первой строчки. У меня выдает как надо.

Главное указать интервальный просмотр в False иначе он считает таблицу отсортированной.

Работает
Ура!
Слушай а если еще куча столбцов с данными еще к ним это как "прикрутить"? Чтобы они тоже сортировались
Попробовал скопировать эту формулу не пашет для других столбцов

[Disa]

Код: Выделить всё

Private Sub Сравнить()
Row = Application.CountA(Sheets("ХХХХ").Columns(1)) 'находит последнюю незаполненную строку таблицы
With ActiveWorkbook.Sheets("лист1")
For i = 1 To Row
For j = 1 To Row
If .Cells(j, 1).Text = .Cells(j, 3).Text Then 'сравнивает коды
.Cells(i, 5).Value = .Cells(i, 1).Value 'делает новую таблицу вплотную с первой
.Cells(i, 6).Value = .Cells(i, 2).Value
.Cells(i, 7).Value = .Cells(j, 3).Value
.Cells(i, 8).Value = .Cells(j, 4).Value
End If
Next
Next
End With
End Sub

У меня вроде работает. Хотя если строк много на быстроту расчитывать не приходится.

Спасибо с быстротой нет проблем комп мощный и времени хватает
Только вопрос этот файл для наглядности, на самом деле будет несколько столбцов с данными и несколько тысяч строк.

Если много строк, то все строки придется руками прописывать?

[Disa]

To GAGARIN
Ступил разобрался сам все работает для нескольких столбцов СПАСИБО
Какие все тут умные.