Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 10.12.2014
Сообщений: 11
1

Создание макроса new!

18.12.2014, 08:18. Показов 991. Ответов 7
Метки нет (Все метки)

Нужно с помощью макроса отсортировать данные так, чтобы ФИО не повторялось, а код (столбец:код) записывался в одну строку разделяясь через запятую.

Список примерно такой:

сам файл не загружается ((



ФИО Код
Виктор Федорович 04
Виктор Федорович 26
Вика 04
Мария Федоровна 01
Федор 04
Серега 28
Серега 74
Серега 49
Яна 65

т.е. надо чтобы макрос отработал так:

ФИО Код
Виктор Федорович 04, 26
Вика 04
Мария Федоровна 01
Федор 04
Серега 28, 74
Серега 49
Яна 65


помогите плиз!
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.12.2014, 08:18
Ответы с готовыми решениями:

Создание макроса
Здравствуйте! Помогите пожалуйста. Создаю макрос , а при выполнении макроса выдает: запрашиваемый...

Создание макроса
Добрый день! Нужно создать такой макрос: - есть 3 файла эксель из одной программы...

Создание макроса
Нужен макрос, который будет из определенной папки переименовывать файл excel удалением сначала 16...

Создание макроса
Доброго времени суток! Помогите автоматизировать процесс! Есть две книги : книга1.xlsx и...

7
Заблокирован
18.12.2014, 08:29 2
Почему так
Цитата Сообщение от Dindin1014 Посмотреть сообщение
Серега 28, 74
Серега 49
?
Цитата Сообщение от Dindin1014 Посмотреть сообщение
сам файл не загружается ((
https://www.cyberforum.ru/abou... 03521.html - второе сообщение.
1
0 / 0 / 0
Регистрация: 10.12.2014
Сообщений: 11
18.12.2014, 08:32  [ТС] 3
сорри, так:


ФИО Код
Виктор Федорович 04, 26
Вика 04
Мария Федоровна 01
Федор 04
Серега 28, 74, 49
Яна 65
0
3997 / 1393 / 383
Регистрация: 07.08.2013
Сообщений: 3,494
18.12.2014, 09:12 4
в какой программе делать-то в Аксе в Excel

Добавлено через 11 минут
Dindin1014,
в какой программе делать пример?
или выкладывайте свой файл- пример
и будем его изучать
1
0 / 0 / 0
Регистрация: 10.12.2014
Сообщений: 11
18.12.2014, 09:16  [ТС] 5
Я бы с удовольствием )
файлы сюда не прикрепляются у меня ((

сама таблица в экселе, надо макросом (VBA) делать изменения.
0
1581 / 656 / 223
Регистрация: 09.06.2011
Сообщений: 1,328
18.12.2014, 09:24 6
Лучший ответ Сообщение было отмечено Dindin1014 как решение

Решение

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub sss()
  Dim Dic As Object, M, row&
    Set Dic = CreateObject("Scripting.Dictionary")
    Dic.comparemode = 0
    Application.ScreenUpdating = False
    With Range(Cells(2, 1), Cells(Rows.Count, 2).End(xlUp))
        M = .Value
        .ClearContents
    End With
    For row = 1 To UBound(M)
        If Dic.exists(M(row, 1)) Then
            Dic(M(row, 1)) = Dic(M(row, 1)) & ", " & M(row, 2)
        Else
            Dic(M(row, 1)) = M(row, 2)
        End If
    Next
    With Cells(2, 1).Resize(Dic.Count)
        .Value = WorksheetFunction.Transpose(Dic.keys)
        .Offset(0, 1).Value = WorksheetFunction.Transpose(Dic.items)
    End With
    Application.ScreenUpdating = True
End Sub
1
Заблокирован
18.12.2014, 09:26 7
Цитата Сообщение от Dindin1014 Посмотреть сообщение
файлы сюда не прикрепляются у меня
Файлы в архив и читайте внимательно - https://www.cyberforum.ru/abou... post594251
Кнопку [Загрузить] не забудьте нажать после выбора файлов.
0
0 / 0 / 0
Регистрация: 10.12.2014
Сообщений: 11
18.12.2014, 11:11  [ТС] 8
загрузку то вижу, это у нас файлы режет антивирусная программа.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.12.2014, 11:11

Создание макроса
Помогите. Нужно чтобы при нажатии кнопки "Узнать результат" он переходил на страницу с результатами...

Создание макроса
Добрый вечер! Такое задание. Создать макрос, изменяющий шрифт выделенного текста на Arial 16,...

Создание макроса
Доброго времени суток господа. Помогите решить проблему. Есть информация в текстовом виде такого...

создание макроса
Всем привет! Ребят, прошу помощи. Такое у меня задание: Создайте макрос Надпись для решения...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru