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

Как установить значения вставки в качестве вставки по умолчанию при использовании Ctrl + V в Excel?

Обычно в Excel, когда вы копируете данные из одного диапазона или рабочего листа и вставляете их с помощью Ctrl + V в другой, форматирование также будет вставлено по умолчанию. Но иногда вы просто хотите вставить как значения без какого-либо форматирования при вставке данных. Здесь я могу представить вам простой метод установки значений вставки только как вставки по умолчанию при использовании Ctrl + V в Excel.

Установите значения вставки как вставку по умолчанию при использовании Ctrl + V с кодом VBA


Установите значения вставки как вставку по умолчанию при использовании Ctrl + V с кодом VBA

Когда вы вставляете данные только как значения, вам нужно щелкать маленький квадрат в углу вашего выбора и каждый раз после вставки данных выбирать параметр «Значения». Следующий код VBA может помочь вам изменить вставку по умолчанию для вставки значений.

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

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

Код VBA: установите значения вставки как вставку по умолчанию при использовании Ctrl + V

Sub PasteasValue()
Selection.PasteSpecial Paste:=xlPasteValues
End Sub

3. Затем сохраните и закройте код и нажмите Alt + F8 , чтобы открыть Макрос диалоговое окно.

4. В Макрос диалоговом окне выберите используемое имя макроса PasteasValue , а затем нажмите кнопку Опции кнопку, см. снимок экрана:

док-вставить-значения-по умолчанию-1

5. Тогда в Параметры макроса диалоговое окно под Горячие клавиши раздел, пожалуйста, введите v , см. снимок экрана:

док-вставить-значения-по умолчанию-2

6, Затем нажмите OK закрыть Параметры макроса диалог и продолжайте закрывать Макрос Диалог.

А теперь, когда вы вставляете данные с Ctrl + V, данные будут вставлены как значения по умолчанию.


Связанная статья:

Как вставить внешний контент в Excel всегда в соответствии с форматированием места назначения?


Демонстрация: установите значения вставки в качестве вставки по умолчанию при использовании Ctrl + V в Excel

Kutools for Excel: с более чем 300 удобными надстройками Excel, которые можно попробовать бесплатно без ограничений в течение 30 дней. Загрузите и бесплатную пробную версию прямо сейчас!

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

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

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

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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (24)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Большое спасибо :D очень помогло!
Этот комментарий был сведен к минимуму модератором на сайте
Очень красивое решение. Это преследует меня уже довольно давно. Два наблюдения... 1) Неудивительно, что некоторые рабочие среды ограничивают или запрещают использование (и, в частности, отправку/получение по электронной почте) документов с поддержкой макросов. Есть ли обходной путь без макросов? 2) Ctrl+Z .... "Отменить" не отменит "вставку", сделанную с помощью этого макроса. Есть ли обходной путь или дополнительный код, который разрешает/включает/создает «отмену» для вставок, сделанных с помощью макроса? Большое спасибо.
Этот комментарий был сведен к минимуму модератором на сайте
Эта кодировка не работает с последней версией Excel 2016. Запуск скрипта дает код ошибки для строки Paste:=xlPasteValues
Этот комментарий был сведен к минимуму модератором на сайте
Я только что столкнулся с той же проблемой.
Этот комментарий был сведен к минимуму модератором на сайте
Попробуйте использовать этот код с Excel 2016: Sub Paste_Special() Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False End Sub
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо, Микаэль, но твой код не сработал. Microsoft, должно быть, слишком сильно изменила язык кодирования VBA в своем последнем обновлении. Даже текст «Вставить:=» приводит к ошибке компиляции. Если есть ответ, он должен быть в Excel VBA другого поколения.
Этот комментарий был сведен к минимуму модератором на сайте
Макрос, который я отправил, записан в последней версии MS Excel 2016, так что, возможно, проблема заключается в вашей установке? Кроме того, написанная мной подпрограмма не будет работать без части «Selection.PasteSpecial».
Этот комментарий был сведен к минимуму модератором на сайте
Отличное решение
этот код должен быть записан непосредственно в поле команды VBA, а не в поле модуля, и я выбрал его место в рабочей книге, поэтому вы должны обязательно ЗАВЕРШАТЬ каждую открытую подпрограмму и игнорировать любое всплывающее сообщение.
Этот комментарий был сведен к минимуму модератором на сайте
Привет, решение отлично работает, но control+z не работает после вставки :( Любая дополнительная помощь?
Этот комментарий был сведен к минимуму модератором на сайте
Решение от Микаэля, похоже, хорошо воспроизводит решение 2013 года, предлагаемое на этой странице, в удобном для Excel формате 2016 года. К сожалению, он также повторяет невозможность отменить (через Ctrl-Z или другие действия «отменить») действие вставки, когда этот макрос включен.
Этот комментарий был сведен к минимуму модератором на сайте
К сожалению, заставить функцию отмены работать после того, как вы использовали макрос, довольно сложно. Не могу помочь вам с этим, извините.
Этот комментарий был сведен к минимуму модератором на сайте
хороший совет, но макрос должен выглядеть так, потому что приведенный выше код выдает сообщение об ошибке, если вы нажмете ctrl+v и ранее не выбрали что-то с помощью ctrl+c Sub PasteAsValues() On Error GoTo err_handler: Selection. PasteSpecial Paste:=xlPasteValues ​​Exit Sub err_handler: End Sub
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо, сэр...
Этот комментарий был сведен к минимуму модератором на сайте
Если я что-то не пропустил (и инструкции *очень* хороши), это не работает в Excel 2016.
Этот комментарий был сведен к минимуму модератором на сайте
Использую Microsoft Office Standard 2016, на нем работает.
Этот комментарий был сведен к минимуму модератором на сайте
Я согласен, Грэм, только что попробовал это в Excel 2016. Когда я нажимаю кнопку «Выполнить» в диалоговом окне «Макрос», я получаю сообщение об ошибке:

Ошибка выполнения «1004»:
Ошибка метода PasteSpecial класса Range

что является позором, поскольку это действительно помогло бы мне сегодня. Я также попробовал макрос Дейвида ниже, но ничего не произошло при вставке из одной книги в другую.
Этот комментарий был сведен к минимуму модератором на сайте
Убедитесь, что у вас есть что-то выделенное в режиме копирования. даже не пытайся вводить его код
Этот комментарий был сведен к минимуму модератором на сайте
Это работает, но после вставки вы не можете отменить
Этот комментарий был сведен к минимуму модератором на сайте
Тоже самое.
Этот комментарий был сведен к минимуму модератором на сайте
Привет ребята,
Извините, может быть, нет другого хорошего способа решить эту проблему, если у вас есть другие хорошие идеи, пожалуйста, прокомментируйте здесь.
Спасибо!
Этот комментарий был сведен к минимуму модератором на сайте
Сохранить как двоичный файл .xlsb,
Затем вы можете использовать ctrl+z с макросами.
Этот комментарий был сведен к минимуму модератором на сайте
что вы имеете в виду «сохранить как двоичный файл. xlsb»?
Этот комментарий был сведен к минимуму модератором на сайте
Я хочу узнать, есть ли способ работать на листе, а не в модуле.

Если нет, есть ли способ работать на конкретном листе, который я определяю?
Этот комментарий был сведен к минимуму модератором на сайте
Сохраненный модуль — называется «модуль 2», но в макросах ничего не отображается — нет «PasteasValue». Кажется, шаг отсутствует?
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

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

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