Копирование данных с одного листа на другой на основе имен и дат

Итак, у меня есть два листа. Оба являются списками. У одного есть даты сверху, имена слева. Другое – наоборот. Мне нужно скопировать данные из последних в прежние. Я мог бы скопировать ячейку копии в ячейку, проблема заключается в количестве изменений персонала из списка для составления списка. Какой был бы лучший подход для этого?

Что-то вроде этого:

Option Explicit Public Sub CopyTranspose(ByVal prgnSourceTopLeftCell As Excel.Range, ByVal prngDestinationTopLeftCell As Excel.Range) Dim lastRow As Long Dim lastCol As Long With prgnSourceTopLeftCell.Worksheet lastRow = .Cells(.Rows.Count, prgnSourceTopLeftCell.Column).End(xlUp).Row lastCol = .Cells(prgnSourceTopLeftCell.Row, .Columns.Count).End(xlToLeft).Column .Range(prgnSourceTopLeftCell, .Cells(lastRow, lastCol)).Copy End With prngDestinationTopLeftCell.PasteSpecial xlPasteAll, Transpose:=True Application.CutCopyMode = False End Sub Public Sub Demo() CopyTranspose ThisWorkbook.Worksheets("Sheet1").Cells(1, 1), ThisWorkbook.Worksheets("Sheet2").Cells(1, 1) End Sub 

Edit : Я вижу, что вы отправляли хорошие вопросы вместе с кодом в прошлом, так что, я думаю, это было только поздно 🙂

  • Как сделать макрос, чтобы назвать имена рабочих листов из списка
  • Как вызвать другой модуль, не возвращаясь к первому после завершения?
  • Обнаружить «чистые» алфавиты в excel
  • Взаимные эксклюзивные выпадающие списки в Excel
  • Скопировать данные Excel с форматированием источника
  • Макрос для форматирования ширины ячейки
  • Доступ к VBA для сохранения таблицы в виде таблицы
  • Как выполнить сравнение таблиц Excel 2013?
  • Разблокировка ключа TAB для нескольких пользователей в защищенном листе
  • Перекрестная ссылка 2 столбца в Excel с еще двумя столбцами
  • Функция умножения массива
  • Interesting Posts

    Excel VBA-Issue с ​​функцией ie.navigate при выполнении перевода

    Как прокручивать столбцы A и Paste, когда колонка A выделена жирным шрифтом

    Максимальный размер таблицы (ListObject) в Excel

    С помощью списка URL-адресов с помощью Excel VBA

    Excel: использование функции индекса с определенными именами в массиве ссылок

    Почему мой VLookup не работает?

    Обработка файлов excel с помощью устройства чтения данных: ExecuteReader () выполняет буферизацию всего файла

    Таблица сводной таблицы Excel не вычисляет сумму правильно

    Excel: поиск текстовой строки в строке, возвращаемое значение соседней ячейки столбца (столбцы будут отличаться часто)

    Выгрузка выгрузки НЕ выгружает UserForm

    Как сделать vlookup для полей в нескольких столбцах

    Boolean, True & True & True входит как False?

    pandas слить столбец другим столбцом

    Ускорение работы с комментариями в Excel VBA

    VBA Вставка строки игнорирует скрытые столбцы

    Давайте будем гением компьютера.