Копирование (добавление) списков из разных столбцов в один

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Копирование (добавление) списков из разных столбцов в один (Макросы/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)

Ответить

Nic70y

Дата: Понедельник, 20.07.2020, 15:23 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 9005

Репутация: 2369 ±

Замечаний: 0% ±

Excel 2010

у Вас в столбце 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]и т.д.

ЮMoney 41001841029809

Ответить

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

Дата: Вторник, 21.07.2020, 08:36 | Сообщение № 4

Группа: Друзья

Ранг: Экселист

Сообщений: 9005

Репутация: 2369 ±

Замечаний: 0% ±

Excel 2010

[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]

ЮMoney 41001841029809

Ответить

Leviven

Дата: Вторник, 21.07.2020, 09:49 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 38

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Nic70y, СПАСИБО!!! Работает!

Ответить

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)