Скопіюйте робочий аркуш Excel та підтримуйте відносну клітинку у формулах

Ще одна проблема копіювання в Excel:

Як я можу скопіювати робочий аркуш з WorkbookA.xlsx в WorkbookB.xlsx без скопійованого робочого листа, який все ще посилається на WorkbookA.xlsx, наприклад формула =B!23стає =[WorkbookA.xlsx]!B!23при копіюванні.

Я хочу підтримувати "відносні" посилання на клітини замість "абсолютних" посилань на клітинки (я повинен винайти цю термінологію у світі Excel, якщо вона ще не існує).

Інша можлива альтернатива, що я не можу змусити його працювати - це можливість вставити лише "значення" комірок. Excel розглядає "значення" як обчислені значення, а не фактичні формули в комірці. Якщо я виберу формулу пасти, вона все одно дає абсолютні посилання.

Детальніше про те, для чого мені це потрібно: я використовую xlsx виробництва для щоденних операцій. Нам постійно потрібно робити "оновлення" цього xlsx, і тому одна людина може створити копію та її зміни там для одного аркуша. Одночасно інша особа також може вносити зміни до іншого аркуша. Зважаючи на те, що ці аркуші не мають залежних комірок на інших аркушах , як, наприклад, підсумковий звіт, бажано просто скопіювати та об'єднати аркуші в початковий xlsx. Але "абсолютне" посилання доставляє багато клопоту.

Спробуйте використовувати Ctrl+ ~для відображення формул. Потім натисніть Ctrl+, Aщоб вибрати все, скопіюйте його, а потім вставте його в блокнот.

Нарешті скопіюйте його з блокнота та вставте його в іншу робочу книжку.

У багатьох випадках мені було легше зробити наступне:

• скопіюйте аркуш у нову робочу книжку
• активуйте новий аркуш у новій робочій книжці
• вибрати всіх ( Ctrl+ A)
• знайдіть / замініть на
  • знайти: [WorkbookA.xlsx]!
  • замінити: <залишити порожнім>
• замінити всіх

Непідписаний відповідь прямо під цим - той, який працював на мене, з дуже незначною варіацією.

1. Створіть та збережіть електронну таблицю призначення.

2. Використовуйте "перемістити", "скопіювати" або перетягніть сторінку за допомогою формул у нову електронну таблицю. Це залишає формули на новій сторінці, які вказують на старий робочий аркуш. Потім збережіть нову електронну таблицю в тому самому місці, що і старий робочий аркуш.

3. Потім перейдіть на вкладку «Дані»> натисніть «Змінити посилання». Цей параметр не буде активним, якщо на сторінці немає посилань.

4. У діалоговому вікні, що виходить, виберіть ім'я вихідного файла та натисніть "Змінити джерело".

5. У діалоговому вікні з відкритим файлом, що з’явиться далі, виберіть назву нової електронної таблиці.

Клацніть Закрити, і ви закінчите.

Або просто виконайте наступне:

Перетворити це:

=database_feed!A1

до цього:

=INDIRECT("database_feed!A1")

і більше не змінювати ваші посилання при копіюванні між робочими аркушами.

Якщо у вас немає посилань на багато аркушів, використовуватиметься інша альтернатива

=INDIRECT("'"&B1&"'!A1")

і введіть назву довідкового аркуша в комірку B1. Тепер у вас є лише одна комірка, яку потрібно оновити, скопіювавши її в нову електронну таблицю.

Нижче наведений код можна адаптувати до ваших потреб. Він бере всі формули з аркуша wb1і застосовує їх до аркуша в новому робочому зошиті. Формули застосовуються як Strings, тому немає посилань на оригінальну робочу книжку. Крім того, цей код дуже швидкий, оскільки він не використовує буфер обміну і не вимагає циклічного перегляду клітинок.

Sub copyformulas()

Dim wb1 As Workbook, wb2 As Workbook
Dim s1 As Worksheet, s2 As Worksheet
Dim formArr() As Variant

Set wb1 = ThisWorkbook
Set s1 = wb1.Sheets("Sheet1")
Set wb2 = Workbooks.Add
Set s2 = wb2.Sheets("Sheet1")

formArr = s1.UsedRange.Formula
s2.Range("A1").Resize(UBound(formArr, 1), UBound(formArr, 2)).Formula = formArr

End Sub

Оскільки 99% відповідей навіть не відповіли на початкове запитання, ось правильна відповідь.

1. Скопіюйте аркуші з оригінального файлу (Original.xlsx) у новий файл Excel (New.xlsx), як зазвичай. Як правило, я клацаю правою кнопкою миші на назві і вибираю "Перемістити чи скопіювати ...".

2. Збережіть другий - щойно створений файл (New.xlsx).

3. У новому файлі в розділі Дані натисніть "Редагувати посилання"

4. У спливаючому вікні виберіть "Змінити джерело ..."

5. Знайдіть файл (New.xlsx) і натисніть кнопку «Відкрити».

Усі посилання на оригінал (Original.xlsx) будуть видалені.

Зроблено!

• скопіюйте робочий лист у "WorkbookB.xlsx"
• відкрити робочий аркуш у новому файлі
• вибрати все
• перейдіть до меню Дані, натисніть на посилання редагування
• редагуйте посилання так, щоб посилання на старий файл тепер було посиланням на відкритий на даний момент файл

Це працює для мене.

Обидві робочі книжки повинні бути відкритими для цього . Ви запускаєте цей макрос, і він скопіює workbookA!sheet1 в, workbookB!sheet1а потім замінить усі workbookAпосилання. Це сиро, але це працює . Ви, очевидно, можете змінити код, щоб він відповідав вашим іменам WorkbookA.xlsx, але переконайтеся, що вони мають правильне розширення та залишаються у лапках.

О, щоб зробити макрос, якщо ви цього не знаєте, натисніть, alt + F11щоб відкрити редактор Visual Basic. Потім клацніть правою кнопкою миші на WBA insert - moduleі скопіюйте і вставте код нижче в модуль. Потім натисніть, F5щоб запустити макрос. Якщо макрос не запуститься, можливо, через те, що макроси не ввімкнено, тому вперед збережіть його та повторно відкрийте, а коли буде запропоновано ввімкнути макроси, увімкніть їх.

Sub copysheetremoveWBref()

    Application.ScreenUpdating = False

    'activate WBA
    Application.Workbooks("workbooka.xlsx").Activate
    'Select WBA Sheet1
    Application.Workbooks("workbooka.xlsx").Sheets("Sheet1").Select
    'copy WBA!sheet1 to WBB!sheet1
    Sheets("Sheet1").copy Before:=Workbooks("WorkbookB.xlsx").Sheets("sheet2")
    'find WBA references and remove them
    Cells.Replace What:="=[workbookA.xlsx]", Replacement:="=", LookAt:=xlPart _
        , SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

    Application.ScreenUpdating = True


End Sub

Я домігся цього, скопіювавши комірки на новий робочий аркуш як звичайне, потім знайшов заміну, щоб видалити старий шлях до файлів у формулах.

Наприклад, якщо перша формула є, =J2і це стає =[filepath]J2, то просто знайдіть і замініть всю нову електронну таблицю для [filepath]і замініть нічим. Це видаляє його і відновлює формулу =J2.

Не потрібно VB!

У мене була подібна проблема. Причина, яку формули вставляли із посиланням на WBA, полягала в тому, що вкладка (аркуш), над якою я працював у WBA, була названа інакше, ніж у WBB. Для мене це був завжди "останній аркуш", але один був названий "MinFlow", а другий - "NormalFlow". Я перейменував і "Результати", і копія / вставка працювала так, як я цього хотів, - "відносної пасти".

Виберіть комірки, які потрібно перемістити. Тепер спробуйте перемістити їх, перетягнувши n крапку на різні робочі аркуші (різні вкладки).

Я знаю, це прокручується. Ось складна частина: просто натисніть cmd (mac) або alt (win), і це дозволить вам перенести комірки на іншу вкладку.

Привіт ось просте рішення цієї проблеми:

1. Скопіюйте над клітинками, як зазвичай.
2. У формулі виберіть і скопіюйте текст, пов'язуючи його з попередньою робочою книжкою [WorkbookA.xlsx].
3. Виберіть усі комірки, які потрібно змінити, і натисніть CTRL+F та виберіть вкладку заміни.
4. Замініть [WorkbookA.xlsx] порожнім місцем (він же нічого не пише в Replace withполі, натисніть Replace All.

Вуаля - робиться.

Ще один "трюк" - перш ніж копіювати робочий аркуш джерела, замініть всі класифікатори формули =іншими наборами символів (скажіть ###=).

Скопіюйте робочий аркуш, а після його копіювання замініть класифікатор формули назад (замінивши ###=на= ).

Переконайтесь, що будь-які посилання на аркуші у формалах також копіюються на новий аркуш перед аркушем посилання.

1. Скопіюйте аркуш як завжди. (клацніть правою клавішею миші та перейдіть до «переміщення чи копіювання») Це для форматування.

2. Скопіюйте всі клітинки з оригінального аркуша (використовуючи Ctrl+ Aабо верхній лівий трикутник та Ctrl+ C)

3. Вставити як значення в нову робочу книжку (на аркуші "крок-1") (Параметри вставки> 123)

Якщо вам потрібно зробити це автоматично, тому що ви тягнете аркуші в програмі VBA. Використовуй це:

Public Sub ChangeSource()
'
' ChangeSource Macro
' Edit the links to point to the current workbook.
'
    Dim allLinks As Variant
    allLinks = ThisWorkbook.LinkSources(xlExcelLinks)
    If Not IsEmpty(allLinks) Then
        Dim eachLink As Long
        For eachLink = 1 To UBound(allLinks)
            If InStr(3, "String found in source book name.", allLinks(eachLink)) Then
                ThisWorkbook.ChangeLink Name:=allLinks(eachLink), NewName:=ThisWorkbook.FullName, Type:=xlExcelLinks
            End If
        Next eachLink
    End If
End Sub

Просто змініть "Рядок, знайдений у назві вихідної книги". відповідно до старих посилань, які ви хочете замінити. Ви можете його видалити, якщо заблокувати, якщо ви хочете замінити всі посилання.

Відкрийте обидві робочі зошити. У вихідній робочій книжці (WorkbookA.xlsx) виберіть аркуш, який потрібно скопіювати. Клацніть правою кнопкою миші на вкладці аркуша та виберіть «Перемістити чи скопіювати…». У діалоговому вікні "Перемістити чи скопіювати" виберіть "WorkbookB.xlsx" у спадному меню "До книги", виберіть, де в цій книзі ви хочете її розмістити, і поставте прапорець "Створити копію". (І натисніть "ОК".)

Зробіть копію аркуша, на який ви хочете перемістити аркуші, з яких у цьому випадку буде WorkbookA.xlsx. Перейменуйте його, щоб сказати "Копія WorkbookA.xlsx". Тепер відкрийте цю нову робочу книжку, а також робочу книгу, до якої потрібно перемістити аркуш, до якого в цьому випадку буде WorkbookB.xlsx. Клацніть правою кнопкою миші на аркушах створеної робочої книги з копією, тобто Copy of WorkbookA.xlsx, виберіть "перемістити або скопіювати", а потім перемістіть ці аркуші до WorkbookB.xlsx. Ви закінчили!