Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 След.
Пустые строки после работы макроса, Пустые строки после работы макроса
 
asesja, Все правильно поняли. Все отлично работает. Огромное спасибо за помощь.
Слияние текстовых данных, сборка уникальных строк и подсчет их
 
tolikt,  Огромное спасибо. То что нужно. все работает как надо.
Пустые строки после работы макроса, Пустые строки после работы макроса
 
Здравствуйте, есть вот такой макрос

Код
Sub test2()
    Dim i%, j&, n&
    Dim a, k&
    a = Selection.Value
    With CreateObject("Scripting.Dictionary")
        On Error Resume Next
        For i = 1 To UBound(a)
              If .exists(a(i, 2) + a(i, 3)) Then
                 n = .Item(a(i, 2) + a(i, 3))
                 For j = 4 To 8
                    a(n, j) = a(n, j) + a(i, j)
                Next
              Else
                k = k + 1
                .Item((a(i, 2) + a(i, 3))) = k
                For j = 1 To 9
                a(k, j) = a(i, j)
              Next
            End If
        Next i
    End With
    Selection.ClearContents
    Selection(1).Resize(k, 9) = a
    a = Empty
    End Sub


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

Код
Sub test2()
    Dim i%, j&, n&
    Dim a, k&
    a = Selection.Value
    With CreateObject("Scripting.Dictionary")
        On Error Resume Next
        For i = 1 To UBound(a)
             If .exists(a(i, 2) + a(i, 3)) Then
                 n = .Item(a(i, 2) + a(i, 3))
                 For j = 4 To 8
                    a(n, j) = a(n, j) + a(i, j)
                Next
              Else
                k = k + 1
                .Item((a(i, 2) + a(i, 3))) = k
                For j = 1 To 9: a(k, j) = a(i, j): Next
            End If
        Next i
    End With
    Selection.ClearContents
    Selection(1).Resize(k, 9) = a
    a = Empty
    End Sub


Но еще один момент. исходная таблица содержит оформление. когда объединяется строка то она поднимается и нарушается оформление. можно ли при объединении строки или оставлять ее пустой или удалять с оформлением.
файл примера во вложении.  
Изменено: white_angel13 - 22.10.2023 16:33:24
Слияние текстовых данных, сборка уникальных строк и подсчет их
 
Спасибо за ответы.  PQ не очень знаком. Да и Excel 2007, хотелось бы попроще решить.
Макросом что то не получилось.
В примере действительно ошибка с ценой не обратил внимание.
Сортировкой получилось сгруппировать по возрастанию кода.

Нужно одинаковые строки с наименованием товара сложить. чтобы были
1 строка с наименованием.
далее строки с артикулом.

Вообщем если простыми словами нужно
объединить повторяющиеся строки и суммировать их значения, при чем суммировать только по столбцу наименование.  
Слияние текстовых данных, сборка уникальных строк и подсчет их
 
Здравствуйте. Подскажите как проще решить задачу по сбору и подсчету текстовых строк. не как не могу решить по какому пути решать вопрос. Вроде и Power Query и сводными таблицами и макросами можно. Что проще всего. таблицы большие и разные по размерам. хочется попроще решение. данные из 3х книг нужно свести в одну и правильно разобрать. Пример во вложении. Направьте в нужном направлении.  
Отбор уникальных повторяющихся значений, Отбор уникальных повторяющихся значений
 
Да. то что надо. Огромное спасибо!!!!!
Буду разбираться.  
Отбор уникальных повторяющихся значений, Отбор уникальных повторяющихся значений
 
лист 1 содержит
столбец 1   столбец 2
1234             товар 1
5555             товар 1
99999           товар 1

лист 2 содержит
столбец 1    столбец 2
7777             товар 1
4532             товар 1
54545            товар 2

как на листе 3 получить
столбец 1    столбец 2
1234            товар 1
5555            товар 1

т.е. чтобы взять количество товар 1 из второго листа. ровно столько сколько нужно. т.е например в данном случае берем первые 2 строки. а строку
99999 товар 1 не трогаем.
а по хорошему еще и удалить.
известными мне способами я нахожу товар 1 но все время в подборе ставлю только значение 1234 т.е.

столбец 1    столбец 2
1234            товар 1
1234            товар 1
А как следующее значение подставить не могу понять.  
Отбор уникальных повторяющихся значений, Отбор уникальных повторяющихся значений
 
Да объяснять не мой конек.
уникальные - ячейки которые содержат уникальное значение на листе.
а не уникальные - это ячейки которые имеют повторяющееся значения на листе.  
Отбор уникальных повторяющихся значений, Отбор уникальных повторяющихся значений
 
Попробую сам ответить.
Добавил подсчет одинаковых позиций. затем сцепил их. добавив уникальность. и далее уже делал отбор.
т.е.
никальная ячейка (1) - неуникальная (1)
уникальная ячейка (2)- неуникальная (1)

=СЧЁТЕСЛИ($I$1:$I1;I1)

получил неуникальная 1
              неуникальная 2
              неуникальная 3

затем =СЦЕПИТЬ(H1;I1)
и вместо неуникальных появились уникальные с подсчетом

но решение не красивое. Может можно как то красиво без сцепить решить вопрос чтобы сравнивать два столбца не по одному столбцу а по паре.
то. есть

столбец 1         столбец 2  сравнение  столбец 3                  столбец 4
неуникальная       1                    =           неуникальная                   1
неуникальная       2                    =           неуникальная                  2
Отбор уникальных повторяющихся значений, Отбор уникальных повторяющихся значений
 
сложно объяснить.  :)
таблица 1
уникальная ячейка (1) - неуникальная (1)
уникальная ячейка (2)- неуникальная (1)

таблица 2

уникальная ячейка(3) - неуникальная (1)
уникальная ячейка(4) - неуникальная (1)
поиск
результат
уникальная ячейка(3) - неуникальная (1)
уникальная ячейка(4) - неуникальная (1)
вот такое нужно решение а пока получается вот так

уникальная ячейка(3) - неуникальная (1)
уникальная ячейка(3) - неуникальная (1)

может так понятнее будет.  :)  
Отбор уникальных повторяющихся значений, Отбор уникальных повторяющихся значений
 
Здравствуйте.
Подскажите есть ли способ отбора уникальных значений при поиске где встречаются одинаковые поля.
Значение нахожу Индекс и поискпоз.
А как можно включить уникальность. т.е. если совпадение при поиске было, чтобы поиск пропускал это значение, и искал следующее совпадение.
нужно сравнить 2 таблицы и при совпадении наименования скопировать значение полей найденной строки на другой лист. но. поиск должен отбирать уникальные значения.  
Протяжка формулы со ссылками с разным шагом
 
Сам спросил сам отвечу. все намного проще. после протяжки посмотрел и поставил отсчет с цифры где пошли правильные значения.
В моем случае это A28.

=ИНДЕКС(A:A;СТРОКА(A28)/4+4)
28/4+4=11
29/4+4=11,25
30/4+4=11,5
31/4+4=11,75
32/4+4=12
Протяжка формулы со ссылками с разным шагом
 
Огромное спасибо. На примере все работает.
Как можно сделать чтобы начало отчета было с ячейки А11.
=ИНДЕКС(A:A;СТРОКА(A4)/4+4)
4/4+4=5
5/4+4=5,25
6/4+4=5,5
7/4+4=5,75
8/4+4=6

а вот как с 11 начать ума не приложу
11/?+?=11
12/?+?=11,25
13/?+?=11,5
14/?+?=11,75

Посмотрел примеры с Индекс но применить все равно не получается.  
Протяжка формулы со ссылками с разным шагом
 
Здравствуйте.
Есть большая таблица со значениями  вот такого вида.
04.03.2020100200300300название1
можно ли протяжкой добиться чтобы на другом листе брались значения из первого и последнего столбца.
а значения из определенных столбцов были на каждой строке.  всего 4 столбца. постоянные.
имя имеет определенный шаблон и повторяется каждый раз 4 раза.
04.03.2020имя+наименование1100
04.03.2020имя+наименование1200
04.03.2020имя+наименование1300
04.03.2020имя+наименование1300
вот такого вида. и чтобы это делалось протяжкой.
Пробовал и выделением цвета и через индекс.
может быть трансп тут будет кстати.
но что то целый день не могу ума дать.
Подскажите кто что. приложу пример.
в VB не силен. большая таблица получается выгрузкой, но нужные столбцы всегда на одних и тех же местах.  
Выборка перекрестного значения
 
Посмотрел пример, это немножко не то.
В моей задаче нужны просто фильтры с грамотно построенным запросом
пример
наименование  остаток            склад1    склад2      склад3
название1         100
склад 1              20
склад 2              30                             20    
склад 3              50                        
название2        200
склад 1              120                                     50
склад 2              30                                
склад 3              50                                                     20                
после применения фильтра для первого столбца  (наименование) фильтр по наименованию и склад2 видим таблицу в таком виде

наименование  остаток             склад1    склад2      склад3
название1         100
склад 2              30                             20    
название2        200
склад 2              30                                
а дальше хочется сделать фильтр по столбцу склад 1 или склад 2 или склад 3 для того чтобы видеть соответствие
например хочу убрать лишние строки где нет данных чтобы видеть только перекрестие по склад 2 складу 1.
вижу
наименование  остаток             склад1    склад2      склад3
название1         100
склад 2              30                             20    

таблица достаточно объемная и лишних строк очень много.
грубо говоря хочется в выжимке увидеть выделенное красным
при применении фильтра на первом столбце наименование и склад 2 и после этого применение фильтра на полученных значениях в столбце склад1
           
наименование остаток склад1 склад2   склад3
название1         100
склад 1 20
склад 2 30 20
склад 3               50
название2         200
склад 1                120  
склад 1               120
склад 2               30
склад 3               50
Сейчас не могу решить появление избыточных строк названия.
Выборка перекрестного значения
 
Не очень хорошо получается описание писать. Поэтому сразу пример вложил. В примере в первом листе есть исходная таблица. А на втором то что получается, вернее нужный результат и описал способы решения. Описал как решаю проблему - и то, что это решение считаю сложным и не совсем удобным. Думаю, что есть более правильные или легкие решения. Поэтому прошу помощи силы Planetaexcel.
Смысл сортировки чтобы из перечня значений попробовать вычленить перекрестные значения по нужному формату (значений больше 0).
Или может подскажите как такие задачи решать, Своими силами дошел только до применения формулы =ПРОМЕЖУТОЧНЫЕ.ИТОГИ.  
Выборка перекрестного значения
 
Здравствуйте Гуру Excel подскажите можно ли как то добиться красивой и быстрой выборки перекрестных значений в таблице. Сейчас решение есть но очень мудреное.
Пользуемся протяжкой =ПРОМЕЖУТОЧНЫЕ.ИТОГИ 9 и установкой сортировок. Более подробно есть во вложении. Буду рад любой идее.  
Условие для Автофильтра, с несколькими условиями
 
может быть Я все таки не могу правильно сформулировать, что хочу. попробую еще раз в пример нарисовать.  
Условие для Автофильтра, с несколькими условиями
 
Если описываемое мной требования невозможно решить какими то простыми средствами и приемами то наверное да, нужен макрос увы в них не силен. Поначалу думал все решается более просто, все представленные решения увы в той или иной мере не могут решить поставленную задачу. т.к.  с помощью стандартных фильтров добивался примерно такого же решения.  :) Мне виделось решение этой проблемы добавлением доп столбца или промежуточных  вычислений.  
Изменено: white_angel13 - 10.10.2017 13:12:51 (дополнения)
Условие для Автофильтра, с несколькими условиями
 
Почти почти. Сложно однако все это получается. нужна дополнительная  выборка по значению в строке. т.к. опят таки получаем избыточные пустые строки. В примере выделил.  
Изменено: white_angel13 - 09.10.2017 23:56:08 (не добавился файл)
Условие для Автофильтра, с несколькими условиями
 
Все предложенные варианты решений дают результат для всех столбцов. Нужно чтобы при наложении второго фильтра на столбец отображались только непустые строки по выделенному столбцу и скрывались пустые желтые строки но при этом желтая строка под которой есть данные отображалась.  :)  Более подробно еще раз во вложении. с примерами того что получается и что хочется видеть.  можно ли убрать фильтром ничем не отличающиеся друг от друга желтые строки в выбранном столбце в которых нет данных.
Условие для Автофильтра, с несколькими условиями
 
Попробую разобраться с предложенным Вами вариантом. Пока склоняюсь к =ПРОМЕЖУТОЧНЫЕ.ИТОГИ(109;$B4:$B5) посмотрите дам больше пояснений. может что то будет яснее. Или скажите можно ли реализовать таким вариантом.  
Условие для Автофильтра, с несколькими условиями
 
не совсем разобрался в предложенном Вами варианте решения. В желтых строках названия действительно не одинаковые но все начинаются всегда с (
Равномерно распределить остатки по складам
 
В предложенном Вами варианте автоматизируется проверка все того же ручного разделения.Плюс получаем избыточные  столбцы. Для сравнительного подсчета, при количестве редактируемых столбцов 10 избыточных столбцов будет уже 20 а это очень  не удобно.  Хотелось бы чтобы программа сама делила, опять таки насколько это вообще возможно.  
Равномерно распределить остатки по складам
 
А есть ли варианты автоматического расчета остатка? Т.е в поля убыло и прибыло не вручную ставить цифры а чтобы логически распределять например если расхождение есть больше 2 шт. то перемещалось бы в поле убыло где меньше всего количество ну и т.д.  
Условие для Автофильтра, с несколькими условиями
 
Не получается сделать что хочу, в желтых полях все равно остается ЛОЖЬ. и при установке фильтра теряются желтые строки. Нужно именно чтобы остались желтые строки и после них строки если есть данные. Я делал аналогичную фильтрацию путем добавления в желтые строки какого нибудь символа. Но эффект получался такой же, не могу отсортировать чтобы были наименования и значения. Или получается большая избыточность или удаляются желтые строки.  
Условие для Автофильтра, с несколькими условиями
 
Здравствуйте, помогите создать условие для Автофильтра при котором будут отображаться непустые значения. Нужно фильтровать прайс и набивать накладные по таблице, никак не могу привести к наиболее приемлемому виду.  Думаю решается достаточно просто но не как не могу найти что нибудь подобное.  
Изменено: white_angel13 - 07.10.2017 01:06:04
Равномерно распределить остатки по складам
 
Расписал подробнее и в таблице привел более подробное описание.  
Страницы: 1 2 След.
Наверх