Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Копирование ячейки только с четных листов в сводную таблицу
 
#1
28.03.2024 17:19:52
Добрый день.

Подскажите пожалуйста.

Задача (также наглядно описана в приложенном файле Excel):
  1. Имеем 6 листов;
  2. Лист 1 представляет собой сводную таблицу;
  3. В сводной таблице есть три столбца: № строки, ФИО, Адрес;
  4. Необходимо чтобы в ФИО копировалась ячейка из Листа № 2, сама ячейка на Листе № 2 объединена в 2 столбца;
  5. Необходимо, чтобы можно было протягивать насколько нужно вниз в Листе № 1 и формула/макрос/программа могла подставлять 2 ячейки "ФИО", "АДРЕС" только из четных листов
Файл-пример Excel с наглядным описание задачи внутри файла прикладываю

кому удобно ссылка на гугл диск - https://docs.google.com/spreadsheets/d/1g8IGA7W36W5GiIBN5VtE45RIWYf8Zle9/edit?usp=sharing&ouid=110484644854137053579&rtpof=true&sd=true
 
 
 
#2
28.03.2024 17:29:04
zewa02717,
макросом так:
Код
Sub aaa()
ActiveSheet.Range("B2:C" & ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row).ClearContents

For Each ws In ThisWorkbook.Worksheets
    If ws.Index Mod 2 = 0 Then
        lLastRow = Cells(Rows.Count, 2).End(xlUp).Row
        ActiveSheet.Range("B" & lLastRow + 1) = ws.Range("B3")
        ActiveSheet.Range("C" & lLastRow + 1) = ws.Range("B6")
    End If
Next
End Sub
Изменено: evgeniygeo - 28.03.2024 17:37:14
 
 
 
#3
28.03.2024 18:15:40
Цитата
написал:
макросом так:
Вы великолепны!
Дай бог Вам здоровья, вы сделали мой день
 
 
 
Страницы: 1
Наверх