У меня есть еженедельный отчет, который я готовлю. У меня есть два отдельных листа. На первом листе я ввожу свои данные (таблица с 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 путем объединения, разделения или удаления ячеек таблицы.
Объединить таблицу ячейки
Чтобы объединить две или более ячеек таблицы в одной строке или столбце в одну, выполните следующие действия:
-
На слайде выберите ячейки, которые вы хотите объединить.
Совет. Невозможно выбрать несколько несмежных ячеек.
-
В разделе Работа с таблицами на Макете в группе Объединить нажмите Объединить ячейки.
Совет: Вы также можете стереть границы ячеек, чтобы объединить ячейки таблицы. В разделе Работа с таблицами на вкладке Дизайн в группе Рисование границ нажмите Ластик , а затем щелкните границы ячеек, которые вы хотите стереть. Когда вы закончите, нажмите Esc.
Разделить ячейки таблицы
Чтобы разделить ячейку таблицы на несколько ячеек, сделайте следующее:
-
Щелкните ячейку таблицы, которую вы хотите разделить.
-
В разделе Работа с таблицами на вкладке Макет в группе Объединить нажмите Разделите ячейки , а затем выполните одно или несколько из следующих действий:
-
Чтобы разделить ячейку по вертикали, в поле Количество столбцов введите количество новых ячеек, которые вы хотите.
-
Чтобы разделить ячейку по горизонтали, в поле Количество строк введите количество новых ячеек, которые ты хочешь.
-
Чтобы разделить ячейку по горизонтали и вертикали, в поле Количество столбцов введите количество новых столбцов, которые вы хотите, а затем в поле Количество строк введите необходимое количество новых строк.
-
Удалить содержимое ячейки
-
Выберите содержимое ячейки, которое вы хотите удалить, а затем нажмите «Удалить».
Примечание. Когда вы удаляете содержимое ячейки, вы не удаляете ячейку . Чтобы удалить ячейку, вы должны объединить ячейки таблицы (как описано в разделе выше) или удалить строку или столбец.
Объединить ячейки
-
В таблице перетащите указатель через ячейки, которые вы хотите объединить.
-
Щелкните Таблица Вкладка «Макет» .
-
В разделе Ячейки нажмите Объединить .
Разделение ячеек
-
В таблице щелкните ячейку, которую вы хотите разделить.
-
Щелкните вкладку Макет таблицы .
-
В разделе Ячейки нажмите Разделить .
-
В диалоговом окне выберите количество столбцов и строк, которое вы хотите.
Объединить таблицу ячейки
Чтобы объединить две или более ячеек таблицы в одной строке или столбце в одну, выполните следующие действия:
-
На слайде выберите ячейки, которые вы хотите объединить.
Совет: Невозможно выбрать несколько несмежных ячеек. .
-
В Работа с таблицами выберите вкладку Макет и в Объединить группы, выберите Объединить ячейки .
(В качестве альтернативы, можно щелкнуть выделенные ячейки правой кнопкой мыши и выбрать Объединить ячейки .)
Удалить содержимое ячейки
-
Выделите содержимое ячейки, которое вы хотите удалить, и затем нажмите «Удалить» на клавиатуре.
Примечание. Когда вы удаляете содержимое ячейки, вы не удаляете ячейку. Чтобы удалить ячейку, вы должны объединить ячейки таблицы (как описано в разделе выше) или удалить строку или столбец.
Разделение ячеек таблицы
Чтобы разделить ячейку таблицы на несколько ячеек, выполните следующие действия:
-
Выберите ячейку или ячейки таблицы, которые нужно разделить.
-
В Работа с таблицами выберите Макет и в группе Объединить выберите Разделить ячейки .
(Также можно щелкнуть выделенные ячейки правой кнопкой мыши и выбрать Разделить ячейки .)
-
Выполните одно из следующих действий:
-
Чтобы разделить ячейку по вертикали , в поле Число столбцов введите необходимое количество новых ячеек.
-
Чтобы разделить ячейку по горизонтали , в поле Число строк введите необходимое количество новых ячеек.
-
Чтобы разделить ячейку по горизонтали и вертикали, в поле Количество столбцов введите количество новых столбцов, которые вы хотите, а затем в поле Количество строк введите необходимое количество новых строк.
-