Как добавить лист с предыдущей таблицей в Excel

Обновлено: 02.07.2024

Здравствуйте, большое спасибо за это. Я хочу изменить макрос таким образом, чтобы он создавал лист для каждой строки столбца, и на каждом листе была функция (средняя), в которую я могу заполнять данные, и, в свою очередь, связывать результат с исходным листом. Это возможно? Я могу попытаться уточнить, если это не имеет смысла или двусмысленно.

Здравствуйте, есть ли код, который будет добавлять только 1 новый лист каждый раз, когда запускается макрос, например, 1-й раз, когда новый лист будет назван в содержимом ячейки A1, 2-й раз, когда макрос будет запущен, новый лист будет имя на содержание A2 и т.д. спасибо в ожидании

Здравствуйте, я использовал этот код и сработал, но если я хочу выбрать более одной строки в заголовке, что изменится в коде? У меня есть несколько строк на листе, которые я хочу на каждом листе.

Здравствуйте! Я просто использовал этот код, и он сработал! Помимо создания нового листа для каждой записи, я хочу перенести его на столбцы и не могу понять. Таким образом, для приведенного выше примера вывод для Наны будет выглядеть так:

Неважно, что это были скрытые конечные пробелы. Я использовал функцию TRIM и очистил ее. Наличие счетчика строк (на самом деле количество строк, поэтому ряды -1, добавленные перед листом, были бы потрясающими)

Пожалуйста, могу ли я получить помощь в том, как автоматически называть листы, используя определенный столбец. Это для строки листа VBA. См. ниже

Sub RowToSheet()
Dim xRow As Long
Dim I As Long
С ActiveSheet
xRow = .Range("A" & Rows.Count).End(xlUp ).Row
For I = 1 To xRow
Worksheets.Add(, Sheets(Sheets.Count)).Name = "Row" & I
.Rows(I).Copy Sheets( "Row " & I).Range("A1")
Следующий I
End With
End Sub

Классный код VBA, чтобы добиться цели.

Как я могу изменить его, чтобы не копировать первый столбец? А убрать название столбца?

Привет, Абдул Басит!
Приведенный ниже код VBA может вам помочь. Пожалуйста, попробуйте.
В строке: xCName="3", 3 указывает номер столбца (здесь столбец C) в Excel. Вы можете изменить его на любой номер столбца по мере необходимости.

Sub parse_data()
'Обновление с помощью Extendoffice 2018/3/2
Dim xRCount As Long
Dim xSht As Worksheet
Dim xNSht As Worksheet
Dim I As Long
Dim xTRrow As Integer
Dim xCol As New Collection
Dim xTitle As String
Dim xSUpdate As Boolean
Dim xCName As Integer
Dim xTA, xRA, xSRg1 As String
Установить xSht = ActiveSheet
При ошибке возобновить следующий
xRCount = xSht.Cells(xSht.Rows.Count, 1).End(xlUp).Row
xTitle = "A1:C1"
xCName = "3" 'Измените это число на номер столбца, в котором вы будете создавать новые листы на основе
xTRrow = xSht.Range(xTitle).Cells(1). Строка
Для I = 2 В xRCount
Вызов xCol.Add(xSht.Cells(I, xCName).Text, xSht.Cells(I, xCName).Text)
Следующая
xSUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
xSRg = xSht.Cells(1, xCName).Address(RowAbsolute:=False, ColumnAbsolute:=False)
Для I = 1 Чтобы xCol.Count
вызвать xSht.Range(xTitle).AutoFilter(xCName, CSt r(xCol.Item(I)))
Установить xNSht = Nothing
Установить xNSht = Worksheets(CStr(xCol.Item(I)))
Если xNSht равно Ничего, то
Установить xNSht = Worksheets.Add(, Sheets(Sheets.Count))
xNSht.Name = CStr(xCol.Item(I))
Else
xNSht.Move , Sheets(Sheets.Count )
End If
xSht.Range("A" & xTRrow & ":A" & xRCount).EntireRow.Copy xNSht.Range("A1")
xNSht.Columns.AutoFit < br />Далее
xSht.AutoFilterMode = False
xSht.Activate
Application.ScreenUpdating = xSUpdate
End Sub

Это отличный код. Большое спасибо умникам из OfficeExtend!! Можно ли в любом случае немного адаптировать этот код для создания отдельных листов для каждого *столбца* вместо строки? Я прикрепил изображение того, чего я пытаюсь достичь. Это возможно? С уважением.

Связанная таблица — это таблица Excel, содержащая ссылку на таблицу в модели данных. Преимущество создания и обслуживания данных в таблице Excel по сравнению с импортом данных из файла заключается в том, что вы можете продолжать редактировать значения на листе Excel, используя связанную таблицу в модели данных в качестве основы для таблицы. Отчет сводной таблицы или сводной диаграммы.

Добавить связанную таблицу так же просто, как выбрать диапазон и нажать кнопку "Добавить в модель данных". Также хорошо отформатировать диапазон как таблицу, а затем дать ему правильное имя. С помощью именованных связанных таблиц намного проще выполнять вычисления и управлять отношениями.

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

Выберите диапазон строк и столбцов, которые вы хотите использовать в связанной таблице.

Отформатируйте строки и столбцы как таблицу:

Нажмите «Главная» > «Форматировать как таблицу», а затем выберите стиль таблицы. Вы можете выбрать любой стиль, но обязательно всегда выбирайте Моя таблица имеет заголовки. Если в таблице нет заголовков, рассмотрите возможность их создания сейчас.В противном случае Excel будет использовать произвольные имена (столбец1, столбец2 и т. д.), не несущие никакой значимой информации о содержимом столбца.

Назовите таблицу. В окне Excel щелкните Дизайн инструментов для работы с таблицами. В группе Свойства введите имя таблицы.

Поместите курсор в любую ячейку таблицы.

Нажмите Power Pivot > Добавить в модель данных, чтобы создать связанную таблицу. В окне Power Pivot вы увидите таблицу со значком ссылки, указывающим, что таблица связана с исходной таблицей в Excel:

Если модель уже содержит таблицы, остается только один шаг. Вы должны создать связь между новой таблицей, которую вы только что добавили, и другими таблицами в модели. Инструкции см. в разделе Создание связи между двумя таблицами или Создание связи в представлении схемы.

Если в рабочей книге раньше ее не было, теперь в ней есть модель данных. Модель создается автоматически, когда вы создаете связь между двумя таблицами или нажимаете «Добавить в модель данных» в Power Pivot. Дополнительные сведения см. в статье Создание модели данных в Excel.

Теперь, когда у вас есть связанная таблица, вы можете редактировать любую ячейку на листе, включая добавление и удаление строк и столбцов. Модель данных в Power Pivot будет немедленно синхронизирована.

Имена таблиц являются исключением. Если вы переименуете таблицу в Excel, вам потребуется вручную обновить таблицу в Power Pivot.

Совет. Чтобы узнать больше о связанных таблицах, см. раздел Учебник: Импорт данных в Excel и Создание модели данных.

Синхронизировать изменения между таблицей и моделью

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

В некоторых случаях может потребоваться управлять поведением обновления. Переключитесь в режим ручного обновления с помощью надстройки Power Pivot.

Выполните следующие действия, чтобы переключиться в режим ручного обновления:

Убедитесь, что книга, содержащая связанную таблицу, открыта в Excel.

Откройте окно Power Pivot.

На вкладках внизу щелкните связанную таблицу. Любая связанная таблица обозначается маленьким значком ссылки рядом с именем таблицы.

На ленте вверху нажмите «Связанная таблица».

В режиме обновления выберите «Вручную» или «Автоматически». Автоматический — по умолчанию. Если вы переключитесь на ручной режим, обновления будут выполняться только при использовании команд «Обновить все» или «Обновить выбранные» на ленте «Связанная таблица» в окне Power Pivot или команды «Обновить все» на ленте Power Pivot в Excel.

После создания таблицы Excel на листе вы можете легко добавлять или удалять строки и столбцы таблицы.

Вы можете использовать команду "Изменить размер" в Excel, чтобы добавить строки и столбцы в таблицу:

Щелкните в любом месте таблицы, и появится параметр Работа с таблицами.

Нажмите «Дизайн» > «Изменить размер таблицы».

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

В приведенном ниже примере исходная таблица охватывает диапазон A1:C5. После изменения размера и добавления двух столбцов и трех строк таблица будет охватывать диапазон A1:E8.

Совет. Можно также нажать "Свернуть диалоговое окно", чтобы временно скрыть диалоговое окно "Изменить размер таблицы", выбрать диапазон на листе и нажать "Развернуть диалоговое окно" .

Выбрав нужный диапазон для таблицы, нажмите OK.

Добавьте строку или столбец в таблицу, введя текст в ячейке чуть ниже последней строки или справа от последнего столбца, вставив данные в ячейку или вставив строки или столбцы между существующими строками или столбцами.< /p>

Начните вводить

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

В приведенном ниже примере для строки при вводе значения в ячейку A4 таблица расширяется, чтобы включить эту ячейку в таблицу вместе с соседней ячейкой в столбце B.

В примере, показанном ниже для столбца, ввод значения в ячейку C2 расширяет таблицу, чтобы включить столбец C, называя столбец таблицы Qtr 3, поскольку Excel обнаружил шаблон именования от Qtr 1 и Qtr 2.

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

Если данные, которые вы вставляете в новую строку, содержат столько же или меньше столбцов, чем таблица, таблица расширяется и включает все ячейки вставленного вами диапазона. Если вставляемые данные содержат больше столбцов, чем таблица, дополнительные столбцы не становятся частью таблицы — вам нужно использовать команду «Изменить размер», чтобы расширить таблицу и включить их.

В приведенном ниже примере для строк вставка значений из A10:B12 в первую строку под таблицей (строка 5) расширяет таблицу, чтобы включить вставленные данные.

В приведенном ниже примере для столбцов вставка значений из C7:C9 в первый столбец справа от таблицы (столбец C) расширяет таблицу, чтобы включить вставленные данные, добавляя заголовок Qtr 3.

Используйте вставку, чтобы добавить строку

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

Наведите указатель мыши на пункт «Вставить» и выберите «Строки таблицы выше», чтобы вставить новую строку, или «Столбцы таблицы слева», чтобы вставить новый столбец.

Если вы находитесь в последней строке, вы можете выбрать "Строки таблицы выше" или "Строки таблицы ниже".

В приведенном ниже примере для строк строка будет вставлена над строкой 3.

Для столбцов: если у вас выделена ячейка в крайнем правом столбце таблицы, вы можете выбрать между вставкой столбцов таблицы слева или столбцов таблицы справа.

В приведенном ниже примере для столбцов столбец будет вставлен слева от столбца 1.

Выберите одну или несколько строк или столбцов таблицы, которые вы хотите удалить.

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

На вкладке "Главная" в группе "Ячейки" нажмите стрелку рядом с кнопкой "Удалить", а затем нажмите "Удалить строки таблицы" или "Удалить столбцы таблицы".

Вы также можете щелкнуть правой кнопкой мыши одну или несколько строк или столбцов, выбрать пункт Удалить в контекстном меню, а затем нажать Столбцы таблицы или Строки таблицы. Или вы можете щелкнуть правой кнопкой мыши одну или несколько ячеек в строке или столбце таблицы, выбрать "Удалить", а затем щелкнуть "Строки таблицы" или "Столбцы таблицы".

Точно так же, как вы можете удалить дубликаты из любых выбранных данных в Excel, вы можете легко удалить дубликаты из таблицы.

Нажмите в любом месте таблицы.

При этом отобразятся инструменты для работы с таблицами и добавлена вкладка "Дизайн".

На вкладке "Дизайн" в группе "Инструменты" нажмите "Удалить дубликаты".

В диалоговом окне "Удалить дубликаты" в разделе "Столбцы" выберите столбцы, содержащие дубликаты, которые вы хотите удалить.

Вы также можете нажать «Отменить выбор всех», а затем выбрать нужные столбцы или нажать «Выбрать все», чтобы выбрать все столбцы.

Примечание: дубликаты, которые вы удаляете, удаляются из рабочего листа. Если вы случайно удалили данные, которые хотели сохранить, вы можете использовать Ctrl+Z или нажать «Отменить» на панели быстрого доступа, чтобы восстановить удаленные данные. Вы также можете использовать условные форматы для выделения повторяющихся значений перед их удалением. Дополнительные сведения см. в разделе Добавление, изменение или удаление условных форматов.

Убедитесь, что активная ячейка находится в столбце таблицы.

Нажмите стрелку в заголовке столбца.

Чтобы отфильтровать пробелы, в меню "Автофильтр" в верхней части списка значений снимите флажок (Выбрать все), а затем в нижней части списка значений выберите (Пробелы).

Примечание. Флажок (Пробелы) доступен только в том случае, если диапазон ячеек или столбец таблицы содержит хотя бы одну пустую ячейку.

Выберите пустые строки в таблице и нажмите CTRL+- (дефис).

Вы можете использовать аналогичную процедуру для фильтрации и удаления пустых строк рабочего листа. Дополнительные сведения о том, как фильтровать пустые строки на листе, см. в разделе Фильтрация данных в диапазоне или таблице.

Выберите таблицу, затем выберите Дизайн таблицы > Изменить размер таблицы.

Настройте диапазон ячеек, содержащихся в таблице, и нажмите кнопку ОК.

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

Нужна дополнительная помощь?

Вы всегда можете обратиться к эксперту в техническом сообществе Excel или получить поддержку в сообществе ответов.

Excel для Microsoft 365 Excel для Microsoft 365 для Mac Excel для Интернета Excel 2021 Excel 2021 для Mac Excel 2019 Excel 2019 для Mac Excel 2016 Excel 2016 для Mac Excel 2013 Excel 2010 Excel 2007 Excel для Mac 2011 Еще. Меньше

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

Вы можете использовать команду «Переместить или скопировать лист», чтобы переместить или скопировать целые рабочие листы (также называемые листами) в другие места в той же или другой книге. Вы можете использовать команды «Вырезать» и «Копировать», чтобы переместить или скопировать часть данных на другие листы или книги.

Перемещение листа в книге

Выберите вкладку рабочего листа и перетащите ее в нужное место.

Внимание! При перемещении листа в другую книгу проверьте все формулы или диаграммы, которые ссылаются на данные на листе, поскольку перемещение листа может привести к ошибкам или непредвиденным результатам в ваших данных. Точно так же, если вы перемещаете лист, на который ссылаются трехмерные ссылки, расчет может включать или не включать данные на листе.

Копировать лист в ту же книгу

Нажмите клавишу CTRL и перетащите вкладку листа в нужное место.

Щелкните правой кнопкой мыши вкладку рабочего листа и выберите "Переместить или скопировать".

Установите флажок Создать копию.

В разделе «Перед листом» выберите, куда вы хотите поместить копию.

Если вам нужно реорганизовать данные, вы можете легко изменить порядок листов в книге, а также переместить или скопировать лист в другую книгу. Но имейте в виду, что расчеты или диаграммы, основанные на данных листа, могут стать неточными, если вы переместите лист.

Переместить лист

Перетащите вкладку листа в нужное место в ряду вкладок листа.

Копировать лист

Удерживайте OPTION.

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

Важно! Отпустите кнопку мыши перед тем, как отпустить клавишу OPTION.

Переместить лист в другую книгу

Откройте книгу, в которую вы хотите переместить лист.

В меню "Окно" щелкните книгу, содержащую лист, который вы хотите переместить.

Нажмите на лист, который хотите скопировать в другую книгу.

В меню "Правка" нажмите "Лист" > "Переместить или скопировать лист".

В меню "В книгу" выберите книгу, в которую нужно переместить лист.

Совет. Чтобы создать новую книгу, содержащую перемещенный лист, нажмите "Новая книга".

В поле "Перед листом" выберите лист, перед которым вы хотите вставить перемещенный лист, или нажмите "Переместить в конец".

Копировать лист в другую книгу

Откройте книгу, в которую вы хотите скопировать лист.

В меню "Окно" щелкните книгу, содержащую лист, который вы хотите скопировать.

Нажмите на лист, который хотите скопировать.

В меню "Правка" нажмите "Лист" > "Переместить или скопировать лист".

В меню В книгу выберите книгу, в которую вы хотите скопировать лист.

Совет. Чтобы создать новую книгу, содержащую перемещенный лист, нажмите "Новая книга".

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

Установите флажок Создать копию.

Изменить цвет вкладки листа

Раскрашивание вкладок листа может помочь вам отслеживать информацию в большой книге.

Удерживая нажатой клавишу CONTROL, щелкните вкладку листа.

Нажмите "Цвет вкладки" и выберите нужный цвет.

В Excel для Интернета вы можете дублировать (или копировать) рабочие листы в текущей книге. Просто щелкните правой кнопкой мыши имя вкладки в нижней части листа и выберите Дублировать.

Примечание. Вы можете получить сообщение об ошибке при попытке дублировать рабочий лист, содержащий диаграмму, изображение или фигуру. Если вы получили сообщение об ошибке, вы можете продублировать лист вручную.

Если на вашем рабочем листе есть элементы, которые мешают его дублированию, вы все равно можете создать копию рабочего листа вручную, скопировав все данные и вставив их на новый лист. Вот как:

Выберите все данные на листе.

Сочетание клавиш: нажмите CTRL+ПРОБЕЛ на клавиатуре, а затем нажмите Shift+ПРОБЕЛ.

Скопируйте все данные на лист, нажав CTRL+C.

Нажмите знак "плюс", чтобы добавить новый пустой лист.

Нажмите на первую ячейку на новом листе и нажмите CTRL+V, чтобы вставить данные.

Примечание. Все условное форматирование, примененное к ячейкам, будет потеряно при вставке их на новый лист.

В Excel для Интернета параметр перемещения или копирования листа недоступен, если щелкнуть правой кнопкой мыши вкладку листа, как в классическом приложении Excel. В Excel в Интернете вы можете добиться того же результата, скопировав все данные на листе и вставив их на пустой лист в другой книге.

Выполните следующие действия, чтобы переместить или скопировать лист в другую книгу в Excel для Интернета:

Выберите все данные на листе.

Сочетание клавиш: нажмите CTRL+ПРОБЕЛ, а затем нажмите Shift+ПРОБЕЛ.

Скопируйте все данные на лист, нажав CTRL+C.

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

Нажмите первую ячейку на новом листе, затем нажмите CTRL+V, чтобы вставить данные в этот лист.

Примечание. Все условное форматирование, примененное к ячейкам, будет потеряно при вставке их в другую книгу.

Нужна дополнительная помощь?

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