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

Вход

Регистрация

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

 

= Мир MS Excel/автокопирование строк с нескольких листов на один - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » автокопирование строк с нескольких листов на один (Формулы/Formulas)
автокопирование строк с нескольких листов на один
shatl1977 Дата: Пятница, 09.07.2021, 16:00 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Здравствуйте. Есть таблица с тремя листами, на которые вносят данные. Лист "сводная" собирает все данные с трех листов и сортирует по времени столбца "В". Подскажите пожалуйста как реализовать?
К сообщению приложен файл: 5668471.xlsm (18.2 Kb)
 
Ответить
СообщениеЗдравствуйте. Есть таблица с тремя листами, на которые вносят данные. Лист "сводная" собирает все данные с трех листов и сортирует по времени столбца "В". Подскажите пожалуйста как реализовать?

Автор - shatl1977
Дата добавления - 09.07.2021 в 16:00
shatl1977 Дата: Пятница, 09.07.2021, 16:12 | Сообщение № 2
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

поправка. при сортировке конечно должна учитываться дата столбца "А"
 
Ответить
Сообщениепоправка. при сортировке конечно должна учитываться дата столбца "А"

Автор - shatl1977
Дата добавления - 09.07.2021 в 16:12
Pelena Дата: Пятница, 09.07.2021, 16:45 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 19162
Репутация: 4412 ±
Замечаний: ±

Excel 365 & Mac Excel
Здравствуйте.
А что означает вторая дата и второе время? Их как-то надо учитывать?


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеЗдравствуйте.
А что означает вторая дата и второе время? Их как-то надо учитывать?

Автор - Pelena
Дата добавления - 09.07.2021 в 16:45
shatl1977 Дата: Пятница, 09.07.2021, 16:48 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

нет, остальные столбцы просто копируются как есть
 
Ответить
Сообщениенет, остальные столбцы просто копируются как есть

Автор - shatl1977
Дата добавления - 09.07.2021 в 16:48
Nic70y Дата: Пятница, 09.07.2021, 16:55 | Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 8705
Репутация: 2260 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
Sub u_727()
    Application.ScreenUpdating = False
    Sheets(1).Range("a2:j" & Sheets(1).Cells(Rows.Count, "a").End(xlUp).Row + 1).Clear
    For i = 2 To Sheets.Count
        Sheets(i).Range("a2:j" & Application.Max(2, Sheets(i).Cells(Rows.Count, "a").End(xlUp).Row)).Copy _
        Sheets(1).Range("a" & Sheets(1).Cells(Rows.Count, "a").End(xlUp).Row + 1)
    Next
    Sheets(1).Range("a2:j" & Sheets(1).Cells(Rows.Count, "a").End(xlUp).Row + 1).Sort _
    key1:=Sheets(1).Range("a2:a" & Sheets(1).Cells(Rows.Count, "a").End(xlUp).Row + 1), _
                order1:=xlAscending, Header:=xlNo
    Application.ScreenUpdating = True
End Sub
[/vba]


ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Пятница, 09.07.2021, 16:57
 
Ответить
Сообщение[vba]
Код
Sub u_727()
    Application.ScreenUpdating = False
    Sheets(1).Range("a2:j" & Sheets(1).Cells(Rows.Count, "a").End(xlUp).Row + 1).Clear
    For i = 2 To Sheets.Count
        Sheets(i).Range("a2:j" & Application.Max(2, Sheets(i).Cells(Rows.Count, "a").End(xlUp).Row)).Copy _
        Sheets(1).Range("a" & Sheets(1).Cells(Rows.Count, "a").End(xlUp).Row + 1)
    Next
    Sheets(1).Range("a2:j" & Sheets(1).Cells(Rows.Count, "a").End(xlUp).Row + 1).Sort _
    key1:=Sheets(1).Range("a2:a" & Sheets(1).Cells(Rows.Count, "a").End(xlUp).Row + 1), _
                order1:=xlAscending, Header:=xlNo
    Application.ScreenUpdating = True
End Sub
[/vba]

Автор - Nic70y
Дата добавления - 09.07.2021 в 16:55
Pelena Дата: Пятница, 09.07.2021, 16:56 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 19162
Репутация: 4412 ±
Замечаний: ±

Excel 365 & Mac Excel
Как-то так
К сообщению приложен файл: 6179736.xlsm (25.7 Kb)


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеКак-то так

Автор - Pelena
Дата добавления - 09.07.2021 в 16:56
shatl1977 Дата: Пятница, 09.07.2021, 17:10 | Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

огромное Вам спасибо. буду на Ваших примерах оттачивать свои умения
 
Ответить
Сообщениеогромное Вам спасибо. буду на Ваших примерах оттачивать свои умения

Автор - shatl1977
Дата добавления - 09.07.2021 в 17:10
Мир MS Excel » Вопросы и решения » Вопросы по Excel » автокопирование строк с нескольких листов на один (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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