Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/объединить ячейки для каждого субъекта в отдельности - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по Excel » объединить ячейки для каждого субъекта в отдельности (Формулы/Formulas)
объединить ячейки для каждого субъекта в отдельности
АЛЕКСАНДР1986 Дата: Вторник, 23.08.2016, 17:22 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 121
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Всем привет!
Не подскажите можно ли для каждого субъекта в отдельности (колонка E) объединять наименования из колонки G при условии что у них одинаковые значения если не найдено аналогичного абсолютного значения то просто записывать наименование в отдельной строке
если несколько районов то перед районами ставить слово "район" если несколько городских округов то перед городскими округами ставить "городские округа"!
самая последняя строчка в колонке G для соответствующего субъекта где написано допустим "18 муниципальных образований" должно всегда идти отдельно без объединений с другими ячейками
как это должно выглядеть представлено в столбце M и N!
заранее спасибо за помощь!

конечно же можно добавлять любое количество промежуточных столбцов!
К сообщению приложен файл: __--.xlsx(32Kb)


Сообщение отредактировал АЛЕКСАНДР1986 - Вторник, 23.08.2016, 17:23
 
Ответить
СообщениеВсем привет!
Не подскажите можно ли для каждого субъекта в отдельности (колонка E) объединять наименования из колонки G при условии что у них одинаковые значения если не найдено аналогичного абсолютного значения то просто записывать наименование в отдельной строке
если несколько районов то перед районами ставить слово "район" если несколько городских округов то перед городскими округами ставить "городские округа"!
самая последняя строчка в колонке G для соответствующего субъекта где написано допустим "18 муниципальных образований" должно всегда идти отдельно без объединений с другими ячейками
как это должно выглядеть представлено в столбце M и N!
заранее спасибо за помощь!

конечно же можно добавлять любое количество промежуточных столбцов!

Автор - АЛЕКСАНДР1986
Дата добавления - 23.08.2016 в 17:22
Roman777 Дата: Вторник, 23.08.2016, 17:49 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 703
Репутация: 75 ±
Замечаний: 0% ±

Excel 2007, Excel 2013
АЛЕКСАНДР1986,
Цитата АЛЕКСАНДР1986, 23.08.2016 в 17:22, в сообщении № 1
одинаковые значения
вы имеете в виду одиннаковые значения по колонке "кол-во"?


Много чего не знаю!!!!
 
Ответить
СообщениеАЛЕКСАНДР1986,
Цитата АЛЕКСАНДР1986, 23.08.2016 в 17:22, в сообщении № 1
одинаковые значения
вы имеете в виду одиннаковые значения по колонке "кол-во"?

Автор - Roman777
Дата добавления - 23.08.2016 в 17:49
АЛЕКСАНДР1986 Дата: Вторник, 23.08.2016, 17:50 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 121
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
да имеется ввиду кол-во в столбце H!


Сообщение отредактировал АЛЕКСАНДР1986 - Вторник, 23.08.2016, 18:00
 
Ответить
Сообщениеда имеется ввиду кол-во в столбце H!

Автор - АЛЕКСАНДР1986
Дата добавления - 23.08.2016 в 17:50
Manyasha Дата: Вторник, 23.08.2016, 18:02 | Сообщение № 4
Группа: Модераторы
Ранг: Старожил
Сообщений: 1589
Репутация: 669 ±
Замечаний: 0% ±

Excel 2007, 2010
АЛЕКСАНДР1986, примерно так можно:
[vba]
Код
Sub test()
    Application.ScreenUpdating = False
    lr = Cells(Rows.Count, "g").End(xlUp).Row
    Range("m4:n" & Cells(Rows.Count, "n").End(xlUp).Row).ClearContents
    With CreateObject("scripting.dictionary")
        For i = 4 To lr
            If Cells(i, "g") <> 0 Then
                If .Exists(Trim(Cells(i, "e") & "|" & Cells(i, "h"))) Then
                    .Item(Trim(Cells(i, "e") & "|" & Cells(i, "h"))) = .Item(Trim(Cells(i, "e") & "|" & Cells(i, "h"))) & _
                        ", " & vbLf & Cells(i, "g")
                Else
                    .Add Trim(Cells(i, "e") & "|" & Cells(i, "h")), Cells(i, "g")
                End If
            End If
        Next i
        arrKeys = .keys
        arrItems = .items
        For i = 0 To UBound(arrItems)
            Cells(i + 4, "m") = Split(arrKeys(i), "|")(0)
            Cells(i + 4, "n") = arrItems(i)
        Next i
    End With
End Sub
[/vba]
с районами и округами уже некогда разбираться, может кто-то доделает.


marinamorozova_box@mail.ru
ЯД: 410013299366744 WM: R193491431804
 
Ответить
СообщениеАЛЕКСАНДР1986, примерно так можно:
[vba]
Код
Sub test()
    Application.ScreenUpdating = False
    lr = Cells(Rows.Count, "g").End(xlUp).Row
    Range("m4:n" & Cells(Rows.Count, "n").End(xlUp).Row).ClearContents
    With CreateObject("scripting.dictionary")
        For i = 4 To lr
            If Cells(i, "g") <> 0 Then
                If .Exists(Trim(Cells(i, "e") & "|" & Cells(i, "h"))) Then
                    .Item(Trim(Cells(i, "e") & "|" & Cells(i, "h"))) = .Item(Trim(Cells(i, "e") & "|" & Cells(i, "h"))) & _
                        ", " & vbLf & Cells(i, "g")
                Else
                    .Add Trim(Cells(i, "e") & "|" & Cells(i, "h")), Cells(i, "g")
                End If
            End If
        Next i
        arrKeys = .keys
        arrItems = .items
        For i = 0 To UBound(arrItems)
            Cells(i + 4, "m") = Split(arrKeys(i), "|")(0)
            Cells(i + 4, "n") = arrItems(i)
        Next i
    End With
End Sub
[/vba]
с районами и округами уже некогда разбираться, может кто-то доделает.

Автор - Manyasha
Дата добавления - 23.08.2016 в 18:02
АЛЕКСАНДР1986 Дата: Вторник, 23.08.2016, 18:05 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 121
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
ну да а формулами наверное такое никак не написать?
 
Ответить
Сообщениену да а формулами наверное такое никак не написать?

Автор - АЛЕКСАНДР1986
Дата добавления - 23.08.2016 в 18:05
Pelena Дата: Вторник, 23.08.2016, 18:10 | Сообщение № 6
Группа: Модераторы
Ранг: Экселист
Сообщений: 9871
Репутация: 2263 ±
Замечаний: 0% ±

Excel 2010 & Mac Excel 2011
Может, сводная подойдёт?
К сообщению приложен файл: 1321243.xlsx(53Kb)


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеМожет, сводная подойдёт?

Автор - Pelena
Дата добавления - 23.08.2016 в 18:10
АЛЕКСАНДР1986 Дата: Вторник, 23.08.2016, 18:15 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 121
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
это да!
можно наверное использовать в качестве промежуточного расчета?


Сообщение отредактировал АЛЕКСАНДР1986 - Вторник, 23.08.2016, 18:15
 
Ответить
Сообщениеэто да!
можно наверное использовать в качестве промежуточного расчета?

Автор - АЛЕКСАНДР1986
Дата добавления - 23.08.2016 в 18:15
Мир MS Excel » Вопросы и решения » Вопросы по Excel » объединить ячейки для каждого субъекта в отдельности (Формулы/Formulas)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!