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

Вход

Регистрация

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

 

= Мир MS Excel/Копирование (добавление) списков из разных столбцов в один - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование (добавление) списков из разных столбцов в один (Макросы/Sub)
Копирование (добавление) списков из разных столбцов в один
Leviven Дата: Понедельник, 20.07.2020, 14:43 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 38
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Добрый день! Помогите, пожалуйста, с макросом, который бы копировал данные из столбцов С (Поступило всего), V (Из кардиологии), W (Из неврологии), X (Из Травматологии-ортопедии), Y (Из хирургии) в нижнюю строку столбца O (Промежуточные итоги-свод). Причем, количество записей в нем (столбце O) будет каждый раз разное. Пробовал макрорекордером, но не получается определить последнюю строчку в столбце O. Пример с макросом во вложении.
К сообщению приложен файл: 5940394.xls(61.0 Kb)
 
Ответить
СообщениеДобрый день! Помогите, пожалуйста, с макросом, который бы копировал данные из столбцов С (Поступило всего), V (Из кардиологии), W (Из неврологии), X (Из Травматологии-ортопедии), Y (Из хирургии) в нижнюю строку столбца O (Промежуточные итоги-свод). Причем, количество записей в нем (столбце O) будет каждый раз разное. Пробовал макрорекордером, но не получается определить последнюю строчку в столбце O. Пример с макросом во вложении.

Автор - Leviven
Дата добавления - 20.07.2020 в 14:43
Nic70y Дата: Понедельник, 20.07.2020, 15:23 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 6584
Репутация: 1449 ±
Замечаний: 0% ±

ru13;10;03
у Вас в столбце O фигня какая-то (сотрите ее всю)
и далее:
[vba]
Код
    uc = Cells(Rows.Count, "c").End(xlUp).Row
    uo = Cells(Rows.Count, "o").End(xlUp).Row + 1
    If uc > 4 Then Range("c5:c" & uc).Copy Range("o" & uo)

    uv = Cells(Rows.Count, "v").End(xlUp).Row
    uo = Cells(Rows.Count, "o").End(xlUp).Row + 1
    If uv > 4 Then Range("v5:v" & uv).Copy Range("o" & uo)
[/vba]и т.д.


Яндекс Деньги 41001841029809
 
Ответить
Сообщениеу Вас в столбце O фигня какая-то (сотрите ее всю)
и далее:
[vba]
Код
    uc = Cells(Rows.Count, "c").End(xlUp).Row
    uo = Cells(Rows.Count, "o").End(xlUp).Row + 1
    If uc > 4 Then Range("c5:c" & uc).Copy Range("o" & uo)

    uv = Cells(Rows.Count, "v").End(xlUp).Row
    uo = Cells(Rows.Count, "o").End(xlUp).Row + 1
    If uv > 4 Then Range("v5:v" & uv).Copy Range("o" & uo)
[/vba]и т.д.

Автор - Nic70y
Дата добавления - 20.07.2020 в 15:23
Leviven Дата: Понедельник, 20.07.2020, 17:08 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 38
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Nic70y, Leviven, Уважаемый, Nic70y! Спасибо, работает. Но только в столбцах V,W,X,Y на самом деле есть формулы, ссылающиеся на другие листы. Вот макрос и ссылки в столбец O копирует. Можно как-то копировать только текст из этих столбцов, а ссылки на пустые ячейки других листов - нет? Пример прикрепил
К сообщению приложен файл: -1.xls(108.5 Kb)
 
Ответить
СообщениеNic70y, Leviven, Уважаемый, Nic70y! Спасибо, работает. Но только в столбцах V,W,X,Y на самом деле есть формулы, ссылающиеся на другие листы. Вот макрос и ссылки в столбец O копирует. Можно как-то копировать только текст из этих столбцов, а ссылки на пустые ячейки других листов - нет? Пример прикрепил

Автор - Leviven
Дата добавления - 20.07.2020 в 17:08
Nic70y Дата: Вторник, 21.07.2020, 08:36 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 6584
Репутация: 1449 ±
Замечаний: 0% ±

ru13;10;03
[vba]
Код
Sub MMM()
    uc = Application.Match("яя", Range("c:c"), 1)
    uo = Cells(Rows.Count, "o").End(xlUp).Row + 1
    If uc > 4 Then
        Range("c5:c" & uc).Copy
        Range("o" & uo).PasteSpecial Paste:=xlPasteValues
    End If
    'и аналогично далее
End Sub
[/vba]


Яндекс Деньги 41001841029809
 
Ответить
Сообщение[vba]
Код
Sub MMM()
    uc = Application.Match("яя", Range("c:c"), 1)
    uo = Cells(Rows.Count, "o").End(xlUp).Row + 1
    If uc > 4 Then
        Range("c5:c" & uc).Copy
        Range("o" & uo).PasteSpecial Paste:=xlPasteValues
    End If
    'и аналогично далее
End Sub
[/vba]

Автор - Nic70y
Дата добавления - 21.07.2020 в 08:36
Leviven Дата: Вторник, 21.07.2020, 09:49 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 38
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Nic70y, СПАСИБО!!! Работает!
 
Ответить
СообщениеNic70y, СПАСИБО!!! Работает!

Автор - Leviven
Дата добавления - 21.07.2020 в 09:49
Leviven Дата: Вторник, 21.07.2020, 11:29 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 38
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Еще одна проблема с этим файлом у медика. Макросы в Модуле2 производят сравнение списка из столбца "B" поочередно со столбцами "I", "J" и "K" и убирают одинаковые фамилии, выводя поочередно списки в дополнительные столбцы: "L", "M" и "N". Затем результат заносится в итоговый столбец "Z" (Состоит больных).
В принципе, все работает, макросы поочередно запускают друг друга, но...как-то громоздко получается. Идет сравнение только двух списков. По-другому у меня не получилось.
В связи с этим вопрос: можно ли обойтись без дополнительных столбцов и кучи макросов и выполнить напрямую сравнение списка из столбца "B" со столбцами "I", "J" и "K" и занести результат сразу в итоговый столбец "Z" одним макросом? Пример прилагаю.
К сообщению приложен файл: 9730456.xls(97.5 Kb)
 
Ответить
СообщениеЕще одна проблема с этим файлом у медика. Макросы в Модуле2 производят сравнение списка из столбца "B" поочередно со столбцами "I", "J" и "K" и убирают одинаковые фамилии, выводя поочередно списки в дополнительные столбцы: "L", "M" и "N". Затем результат заносится в итоговый столбец "Z" (Состоит больных).
В принципе, все работает, макросы поочередно запускают друг друга, но...как-то громоздко получается. Идет сравнение только двух списков. По-другому у меня не получилось.
В связи с этим вопрос: можно ли обойтись без дополнительных столбцов и кучи макросов и выполнить напрямую сравнение списка из столбца "B" со столбцами "I", "J" и "K" и занести результат сразу в итоговый столбец "Z" одним макросом? Пример прилагаю.

Автор - Leviven
Дата добавления - 21.07.2020 в 11:29
Nic70y Дата: Вторник, 21.07.2020, 11:31 | Сообщение № 7
Группа: Друзья
Ранг: Экселист
Сообщений: 6584
Репутация: 1449 ±
Замечаний: 0% ±

ru13;10;03
Leviven, Вам нужно создавать новую тему.


Яндекс Деньги 41001841029809
 
Ответить
СообщениеLeviven, Вам нужно создавать новую тему.

Автор - Nic70y
Дата добавления - 21.07.2020 в 11:31
Leviven Дата: Вторник, 21.07.2020, 12:22 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 38
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007


Сообщение отредактировал Leviven - Вторник, 21.07.2020, 12:26
 
Ответить
СообщениеNic70y, благодарю. Тему создал: Макрос, сравнивающий списки в разных столбцах на совпадение

Автор - Leviven
Дата добавления - 21.07.2020 в 12:22
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование (добавление) списков из разных столбцов в один (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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