Вырезать и вставить таблицу с одного рабочего листа на другой с помощью Excel VBA

У меня есть еженедельный отчет, который я готовлю. У меня есть два отдельных листа. На первом листе я ввожу свои данные (таблица с 2 столбцами и неизвестным количеством строк заранее), и я хочу создать макрос, в котором я щелкаю по нему, вырезаю все эти данные и перемещаю их на другой лист. На листе, куда вставлена ​​таблица, я хочу, чтобы данные были вставлены как значения (включая исходные формулы) и были вставлены под данными с предыдущей недели.

например. Если я вырезал данные из листа 1 из ячеек A1: B7, я хочу вставить значения из листа 2 в ячейки A7: B14. На следующей неделе данные должны быть вырезаны и вставлены из ячеек A1: B5 на листе 1 в ячейки A15: B20 на листе 2

Пока у меня есть этот код, но я делаю что-то не так. Я нахожусь на уровне новичка с vba.

  Sub Movetabletototal () Dim Count As IntegerDim Table As RangeDim CountRange As RangeWorksheets ("TOTAL"). SelectSet CountRange = Range ("A2  : A1000 ") Count = Application.WorksheetFunction.Count (CountRange) Рабочие листы (" MIXER TOTAL "). SelectSet Table = Range (" P3: Q12 ") Worksheets (" TOTAL "). SelectWorksheets (" TOTAL "). Range ("  A1 "). SelectActiveCell.Offset (1, Count + 1) .SelectActiveCell.Value = TableWorksheets (" MIXER TOTAL "). SelectWorksheets (" MIXER TOTAL "). Range (" P3: Q12 "). Clear ContentsIf Worksheets (" TOTAL  ") .Range (" A2 "). Offset (1, Count) " "Then Worksheets (" TOTAL "). Range (" A2 "). End (xlDown) .SelectEnd IfEnd Sub  

Спасибо!


Этот код успешно делает это:

например Если я вырезал данные из листа 1 из ячеек A1: B7, я хочу вставить значения из листа 2 в ячейки A7: B14. На следующей неделе данные должны быть вырезаны и вставлены из ячеек A1: B5 на листе 1 в ячейки A15: B20 на листе 2

Отредактируйте в соответствии с вашим комментарием:

Использование P3: Q12 в «MIXER TOTAL» в качестве изменяемых данных и вставка в столбцы A: B на листе «TOTAL» после текущих данных.

  Sub Movetabletototal () Dim Count As IntegerDim copyRng As Range, pasteRng As RangeDim totalWS As Worksheet, MixerWS As WorksheetSet totalWS = Worksheets ("TOTAL") Установить микшерWS = Worksheets ("MIXER TOTAL") Установить copyRng = MixerWS  .Range ("P3: Q" & mixerWS.Cells (MixWS.Rows.Count, 17) .End (xlUp) .Row) Dim newRow As LongnewRow = totalWS.Cells (totalWS.Rows.Count, 1) .End (xlUp  ) .RowIf newRow> 1 Тогда newRow = newRow + 1copyRng.Copy totalWS.Range (totalWS.Cells (newRow, 1), totalWS.Cells (newRow + copyRng.Rows.Count, copyRng.Columns.Count)) copyRng.ClearContentsEnd   

При необходимости измените эти диапазоны. (Обратите внимание, что в настоящее время, если ваши данные поступают из P3: Q1000, они будут копировать весь этот диапазон. Если вы строго хотите P3: Q12 , измените CopyRng только в mixerWS. Диапазон ("P3: Q12")

1



Объединение, разделение или удаление ячеек таблицы

Вы можете изменить внешний вид таблиц в презентации PowerPoint путем объединения, разделения или удаления ячеек таблицы.

Объединить таблицу ячейки

Чтобы объединить две или более ячеек таблицы в одной строке или столбце в одну, выполните следующие действия:

  1. На слайде выберите ячейки, которые вы хотите объединить.

    Совет. Невозможно выбрать несколько несмежных ячеек.

  2. В разделе Работа с таблицами на Макете в группе Объединить нажмите Объединить ячейки.

Совет: Вы также можете стереть границы ячеек, чтобы объединить ячейки таблицы. В разделе Работа с таблицами на вкладке Дизайн в группе Рисование границ нажмите Ластик , а затем щелкните границы ячеек, которые вы хотите стереть. Когда вы закончите, нажмите Esc.

Разделить ячейки таблицы

Чтобы разделить ячейку таблицы на несколько ячеек, сделайте следующее:

  1. Щелкните ячейку таблицы, которую вы хотите разделить.

  2. В разделе Работа с таблицами на вкладке Макет в группе Объединить нажмите Разделите ячейки , а затем выполните одно или несколько из следующих действий:

    • Чтобы разделить ячейку по вертикали, в поле Количество столбцов введите количество новых ячеек, которые вы хотите.

    • Чтобы разделить ячейку по горизонтали, в поле Количество строк введите количество новых ячеек, которые ты хочешь.

    • Чтобы разделить ячейку по горизонтали и вертикали, в поле Количество столбцов введите количество новых столбцов, которые вы хотите, а затем в поле Количество строк введите необходимое количество новых строк.

Удалить содержимое ячейки

  • Выберите содержимое ячейки, которое вы хотите удалить, а затем нажмите «Удалить».

    Примечание. Когда вы удаляете содержимое ячейки, вы не удаляете ячейку . Чтобы удалить ячейку, вы должны объединить ячейки таблицы (как описано в разделе выше) или удалить строку или столбец.

Объединить ячейки

  1. В таблице перетащите указатель через ячейки, которые вы хотите объединить.

  2. Щелкните Таблица Вкладка «Макет» .

  3. В разделе Ячейки нажмите Объединить .

Разделение ячеек

  1. В таблице щелкните ячейку, которую вы хотите разделить.

  2. Щелкните вкладку Макет таблицы .

  3. В разделе Ячейки нажмите Разделить .

  4. В диалоговом окне выберите количество столбцов и строк, которое вы хотите.

Объединить таблицу ячейки

Чтобы объединить две или более ячеек таблицы в одной строке или столбце в одну, выполните следующие действия:

  1. На слайде выберите ячейки, которые вы хотите объединить.

    Совет: Невозможно выбрать несколько несмежных ячеек. .

  2. В Работа с таблицами выберите вкладку Макет и в Объединить группы, выберите Объединить ячейки .

    (В качестве альтернативы, можно щелкнуть выделенные ячейки правой кнопкой мыши и выбрать Объединить ячейки .)

Удалить содержимое ячейки

  • Выделите содержимое ячейки, которое вы хотите удалить, и затем нажмите «Удалить» на клавиатуре.

    Примечание. Когда вы удаляете содержимое ячейки, вы не удаляете ячейку. Чтобы удалить ячейку, вы должны объединить ячейки таблицы (как описано в разделе выше) или удалить строку или столбец.

Разделение ячеек таблицы

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

  1. Выберите ячейку или ячейки таблицы, которые нужно разделить.

  2. В Работа с таблицами выберите Макет и в группе Объединить выберите Разделить ячейки .

    (Также можно щелкнуть выделенные ячейки правой кнопкой мыши и выбрать Разделить ячейки .)

  3. Выполните одно из следующих действий:

    • Чтобы разделить ячейку по вертикали , в поле Число столбцов введите необходимое количество новых ячеек.

    • Чтобы разделить ячейку по горизонтали , в поле Число строк введите необходимое количество новых ячеек.

    • Чтобы разделить ячейку по горизонтали и вертикали, в поле Количество столбцов введите количество новых столбцов, которые вы хотите, а затем в поле Количество строк введите необходимое количество новых строк.

Оцените статью
clickpad.ru
Добавить комментарий