Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

Как сохранить все рабочие листы только как значения?

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

Сохраните все листы как значения только с кодом VBA

Вкладка «Office» Включите редактирование и просмотр с вкладками в Office и упростите свою работу ...
Kutools для Excel добавляет расширенные функции 300 в Excel и повышает производительность на 80%
  • Super Formula Bar (легко редактировать несколько строк текста и формул); Чтение макета (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон ...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объединить дублирующиеся строки и сумму / среднее ... Предотвратить повторяющиеся клетки; Сравнить диапазоны ...
  • Выберите Дублировать или Уникальные строки; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих книгах; Случайный выбор ...
  • Точное копирование нескольких ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставьте маркеры, флажки и многое другое ...
  • Любить и быстро вставлять формулы, диапазоны, графики и рисунки; Шифровать ячейки с помощью пароля; Создать список рассылки и отправлять электронные письма ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев ...
  • Суперфильтр (сохранение и применение схем фильтрации к другим листам); Расширенный Сортировать по месяцу / неделе / ​​дню, частоте и многому другому; Специальный фильтр жирным шрифтом, курсив ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разбить данные на несколько листов; Пакетное конвертирование xls, xlsx и PDF ...
  • Работает с Office 2007-2019 и 365 и поддерживает все языки. Это легко развернуть в вашей компании. Полнофункциональная 60-дневная бесплатная пробная версия.

arrow синий правый пузырь Сохраните все листы как значения только с кодом VBA

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

1, Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окна.

2. Щелчок Вставить > модуль, и вставьте следующий код в модуль Окно.

Код VBA: сохранение всех рабочих листов только в качестве значений:

Sub Saveasvalue()
'Updateby Extendoffice 20161025
    Dim wsh As Worksheet
    For Each wsh In ThisWorkbook.Worksheets
        wsh.Cells.Copy
        wsh.Cells.PasteSpecial xlPasteValues
    Next
    Application.CutCopyMode = False
End Sub

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

Внимание: Прежде чем применять код, вы можете сначала сохранить копию книги.


  • Супер Формула Бар (легко редактировать несколько строк текста и формул); Макет чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объедините дублирующиеся строки и сумму / среднее... предотвратить повторяющиеся клетки; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения формулы ссылки; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Любимые и быстро вставляемые формулы, Диапазоны, графики и рисунки; Шифрование ячеек с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечение текстаДобавить текст, Удалить по позиции, Удалить пространство; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев...
  • Суперфильтр (сохранить и применить схемы фильтров к другим листам); Расширенный поиск по месяцам / неделям / дням, частоте и более; Специальный фильтр жирным шрифтом, курсивом ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Работает с Office 2007-2019 и 365 и поддерживает все языки. Это легко развернуть в вашей компании. Полнофункциональная 60-дневная бесплатная пробная версия.
вкладка kte 201905
  • Включить редактирование и чтение с вкладками в Word, Excel, PowerPoint, Издатель, Доступ, Visio и Проект.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
нижняя часть офиса
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Alex · 2 months ago
    Funcionou!! Muito Bom!!!
  • To post as a guest, your comment is unpublished.
    mirna · 9 months ago
    when i run that code, i get error "getting Run time Error 1004".
    FYI, in my excel there are merge cells.

    It will be helpful if someone give solution

    Thank you
    • To post as a guest, your comment is unpublished.
      Anh Hien · 2 months ago
      It works well. thanks.

      @mirna: you need to unprotect sheet or cell. VB doesn't like protect mode :)
    • To post as a guest, your comment is unpublished.
      skyyang · 9 months ago
      Hello, mirna,
      The above code works well in my workbook, which excel version do you use?
  • To post as a guest, your comment is unpublished.
    Vijayaraghavan S · 10 months ago
    Sub Saveasvalue()
    'Updateby Extendoffice 20161025
    Dim wsh As Worksheet
    For Each wsh In ThisWorkbook.Worksheets
    wsh.Cells.Copy
    wsh.Cells.PasteSpecial xlPasteValues - getting Run time Error 1004 - CAN ANYONE HELP ON THIS.
    Next
    Application.CutCopyMode = False
    End Sub
  • To post as a guest, your comment is unpublished.
    vijay · 10 months ago
    Thanks a lot Bro..this is amazing..helped me a lot.
  • To post as a guest, your comment is unpublished.
    Mukherjee Ak · 1 years ago
    Very Good! It has solved many of my problems. Thanks a lot. Regards.
  • To post as a guest, your comment is unpublished.
    Felice · 2 years ago
    Thanks! The VBA code worked wonderfully.
    One thing I noticed though, when I tried to use it on a workbook with Filter on some cells, it won't work.
    Any workaround for this code to work without disabling the Filter?
    • To post as a guest, your comment is unpublished.
      Lilly · 1 years ago
      I have the same problem when using VBA code with filter. Have you had solution for it?
      • To post as a guest, your comment is unpublished.
        Sal · 5 months ago
        Hey were you able to get this fixed? I have the same issue