Excel – автоматически импортировать данные из ячейки при создании новой вкладки

Я работаю над таблицей, суммирующей данные из стандартных шаблонов, вставленных в совместный файл Excel в виде отдельных вкладок.

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

  • Множественное умножение строки Excel
  • Excel не соблюдает настройку разделителя для чтения или записи CSV-файлов
  • Как написать запрос в Microsoft SQL Server Management Studio, а затем использовать этот запрос в Excel
  • Самый простой способ сохранить вкладку «Процессы» Диспетчера задач в виде файла CSV?
  • Как повторить «диапазон копирования (A1: A5) в диапазон B с преобразованием (столбец в строку)?
  • Что такое формула excel, которая вернет мне последний номер строки ячейки в пределах диапазона, который содержит конкретные данные?
  • При использовании именованного диапазона в Excel (2013), как отобразить весь диапазон, но смещать одну ячейку?
  • Настраиваемый формат для ячеек с отсутствием в них без использования условного форматирования
  • Группировка меток и объединение их текстовых значений (например, сводной таблицы)
  • Перенести документ Excel в отдельное окно
  • Супер медленный Excel, как я могу увеличить производительность?
  • Использовать имя листа как переменную в поиске
  • One Solution collect form web for “Excel – автоматически импортировать данные из ячейки при создании новой вкладки”

    Что-то вроде этого создаст список в столбце A листа 1 имен листов и каждый раз, когда ячейка C1 на любом листе изменится, она поместит значение этой ячейки в лист 1 в столбце B, рядом с соответствующим именем листа в столбце A

    Он входит в модуль ThisWorkbook через редактор VBA *. Вы можете изменить имя листа и диапазоны по мере необходимости.

     Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Not Intersect(Target, Sh.Range("C1")) Is Nothing Then Dim ws As Worksheet Set ws = Sheets("Sheet1") Dim iRow As Integer On Error GoTo Yikes: TryAgain: iRow = Application.WorksheetFunction.Match(Sh.Name, ws.Range("A1:A50"), 0) ws.Cells(iRow, 2) = Target.Value Exit Sub Yikes: Dim rowcount As Integer rowcount = ws.Cells(Rows.Count, 1).End(xlUp).Row Dim r As Range Set r = ws.Cells(rowcount + 1, 1) r = Sh.Name GoTo TryAgain: End If End Sub 

    * Чтобы перейти к редактору VBA, вы должны перейти к кнопке office, excel options и в популярном теге, поместите галочку в поле рядом с Show Developer tab in the Ribbon . Затем закройте это, перейдите на вкладку «Разработчик» и нажмите кнопку « Visual Basic в крайнем левом углу. Редактор откроется, и вам нужно будет дважды щелкнуть модуль ThisWorkbook на левой панели.

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