Note: The other languages of the website are Google-translated. Back to English

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

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

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


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

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

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

2. Нажмите Вставить > Модулии вставьте следующий код в Модули Окно.

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

Sub Saveasvalue()
'Updateby Extendoffice
    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 ключ для запуска этого кода, и вся книга была сохранена только как значения, все формулы были удалены сразу, оставив только значения с форматированием ячеек.

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


Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (18)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо! Код VBA работал чудесно.
Однако я заметил одну вещь: когда я пытался использовать его в книге с фильтром для некоторых ячеек, это не сработало.
Любой обходной путь для работы этого кода без отключения фильтра?
Этот комментарий был сведен к минимуму модератором на сайте
У меня такая же проблема при использовании кода VBA с фильтром. У вас есть решение для этого?
Этот комментарий был сведен к минимуму модератором на сайте
Эй, ты смог это исправить? У меня такая же проблема
Этот комментарий был сведен к минимуму модератором на сайте
Очень хороший! Это решило многие мои проблемы. Большое спасибо. С уважением.
Этот комментарий был сведен к минимуму модератором на сайте
Большое спасибо, братан.. это потрясающе.. мне очень помогло.
Этот комментарий был сведен к минимуму модератором на сайте
Sub Сохранить как значение ()
'Обновить Extendoffice 20161025
Dim wsh как рабочий лист
Для каждого wsh в ThisWorkbook.Worksheets
wsh.Cells.Copy
wsh.Cells.PasteSpecial xlPasteValues ​​- получение ошибки времени выполнения 1004 - МОЖЕТ ЛЮБОЙ ПОМОЧЬ В ЭТОМ.
Далее
Application.CutCopyMode = False
End Sub
Этот комментарий был сведен к минимуму модератором на сайте
когда я запускаю этот код, я получаю сообщение об ошибке «Ошибка времени выполнения 1004».
К вашему сведению, в моем Excel есть ячейки слияния.

Будет полезно, если кто-то даст решение

спасибо
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Мирна,
Приведенный выше код хорошо работает в моей книге, какую версию Excel вы используете?
Этот комментарий был сведен к минимуму модератором на сайте
Это работает хорошо. Благодарю.

@mirna: вам нужно снять защиту с листа или ячейки. VB не любит защитный режим :)
Этот комментарий был сведен к минимуму модератором на сайте
Funcionou!! Муито Бом!!!
Этот комментарий был сведен к минимуму модератором на сайте
Tengo ese código, си bien эс cierto funciona pero quisiera дие не рассмотрите algunas hojas де ми archivo excel. се пуэде?
Привет.
Этот комментарий был сведен к минимуму модератором на сайте
Снимите все фильтры/защиту со всех листов. должно работать идеально.
Этот комментарий был сведен к минимуму модератором на сайте
Хорошо! Превосходно! Мне нужно это, но нет никаких листов
Этот комментарий был сведен к минимуму модератором на сайте
Мне нужно опубликовать финансовые отчеты на основе Excel с группировками. Это сработало, чтобы очистить все формулы и оставить только числа. Другие методы, которые я пробовал, очищали группы.
Этот комментарий был сведен к минимуму модератором на сайте
Есть ли способ отменить это, если вы забыли сначала сохранить версию формулы?
Этот комментарий был сведен к минимуму модератором на сайте
Он работает хорошо, но мне нужна паста VBA в качестве значения для кучи книг Excel.



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

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


Может ли кто-нибудь помочь мне в этом?

Спасибо!


Sub Сохранить как значение ()

Dim wsh как рабочий лист
Для каждого wsh в ThisWorkbook.Worksheets
wsh.Cells.Copy
wsh.Cells.PasteSpecialxlPasteValues
Далее
Application.CutCopyMode = False

savename = Application.GetSaveAsFilename(fileFilter:="Exel Files (*.xlsx), *.xlsx")
ActiveWorkbook.SaveAs Имя файла:=имя сохранения, Формат файла:=51

Application.DisplayAlerts = False 'выйти без предупреждений
Application.Quit
End Sub
Этот комментарий был сведен к минимуму модератором на сайте
sämst shjkjhgasghjdfsjhkfdgsdjhgafgb, ja u fdsvjkhgfkjahfg ka khdfzhjkg
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL