Главная » Excel

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

На чтение 6 мин. Просмотров 31 Опубликовано

У меня есть еженедельный отчет, который я готовлю. У меня есть два отдельных листа. На первом листе я ввожу свои данные (таблица с 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

Содержание
  1. Объединение, разделение или удаление ячеек таблицы
  2. Объединить таблицу ячейки
  3. Разделить ячейки таблицы
  4. Удалить содержимое ячейки
  5. Объединить ячейки
  6. Разделение ячеек
  7. Объединить таблицу ячейки
  8. Удалить содержимое ячейки
  9. Разделение ячеек таблицы

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Читайте также:

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