Каким будет наиболее эффективный способ транспонировать все, кроме 2 столбцов этой таблицы (например, на этом рисунке)?

Я хочу выполнить это в Excel или Access . Мне нужно найти наиболее эффективный способ сделать это, иначе мои пользователи не будут последовательно это делать. В конечном счете, я хотел бы, чтобы он был в окончательной форме, чтобы делать запросы в Access, но я перечислил Excel в качестве опции, потому что я всегда могу импортировать в Access из электронной таблицы.

В двух словах, я хочу перенести каждый столбец, за исключением первых двух столбцов. Затем я хочу присвоить каждой транспонированной строке исходный соответствующий item и description .

Метод, который я использовал, – это копирование и специальная вставка 3-й, 4-й и 5-й строк с использованием вставки транспонирования в Excel, а затем вручную копирование каждого элемента и описания в соответствующие строки, но это невозможно для почти 400 строк и 50 столбцов с которыми будут работать мои пользователи.

У меня есть опыт работы с Access / VB for Access, Excel (но здесь нет опыта работы с VB) и SQL. Я хочу найти самый быстрый способ сделать это. Я не возражаю против создания запроса по запросу или ввода кода VB, я просто хочу, чтобы это сработало.

Прежде чем запускать приведенный ниже код, удалите все данные в столбцах от H до K. В противном случае код не будет работать.

 Sub CreateTable() lastRow = Cells(Rows.Count, 1).End(xlUp).Row startRow = 2 lastCol = Cells(1, Columns.Count).End(xlToLeft).Column startCol = 3 counter = 2 For rowCnt = startRow To lastRow itemStr = Cells(rowCnt, 1).Value descStr = Cells(rowCnt, 2).Value For colCnt = startCol To lastCol dateStr = Cells(1, colCnt).Value qnty = Cells(rowCnt, colCnt).Value Cells(counter, 8).Value = itemStr Cells(counter, 9).Value = descStr Cells(counter, 10).Value = qnty Cells(counter, 11).Value = dateStr counter = counter + 1 Next Next Cells(1, 8).Value = "item" Cells(1, 9).Value = "description" Cells(1, 10).Value = "expected_qty" Cells(1, 11).Value = "expected_job_date" End Sub 
  • Разделить разделительную запятую на столбцы
  • Транспонирование строк в один столбец при копировании данных в другие столбцы
  • Транспонирование строк в столбцы с пробелом
  • Как переносить динамический набор матричных данных в EXCEL или SQL
  • Транспонировать данные с широких длинными с помощью VBA, из нескольких листов
  • Interesting Posts

    как скопировать всю информацию таблицы с динамическими ячейками vba в excel

    Как я могу включить svg / png / vml изображения непосредственно в лист xls?

    Стандартная практика Excel VBA для написания процедур на основе комбинационных переменных

    Сохранение данных об использовании надстройки excel

    Как смещать результат сравнения индекса в Excel VBA

    Подсчитайте количество экземпляров цифры в диапазоне ячеек

    Повторение цвета в Excel

    Сообщение об ошибке «внешняя таблица не находится в ожидаемом формате», когда я пытался загрузить файл в программу C #

    Сравните значения двух строк xml вне Android Studio

    как преобразовать файл xls в файл xlsx с помощью c #

    Диапазон значений даты Excel SUMIF

    Загружать данные одной кнопкой, отображать данные второй кнопкой

    Проверьте, присутствует ли значение, затем скопируйте его на другой рабочий лист

    Поиск последнего столбца и добавление формулы

    Результаты автофильтра отрезной пасты на другой лист

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