Прескочи на основното съдържание

 Как да поставите външно съдържание в Excel винаги да съответства на форматирането на местоназначението?

Автор: Xiaoyang Последна промяна: 2020-04-24

Когато копирате и поставите данни от други външни приложения в работен лист, Excel ще постави данните с оригиналното форматиране, което използва по подразбиране. Ако се нуждаете от поставените данни, като използвате собствения формат на вашия използван работен лист, трябва да изберете опцията за съпоставяне на форматирането на местоназначението спрямо вашите нужди, когато поставяте. Но ако трябва да прилагате тази опция често, мога да ви помогна да зададете тази опция по подразбиране, когато използвате Ctrl +V за поставяне на данни.

Поставете външно съдържание в работен лист винаги съответства на форматирането на местоназначението с опциите на Excel

Поставете външно съдържание в работен лист винаги съответства на форматирането на местоназначението с VBA код


Поставете външно съдържание в работен лист винаги съответства на форматирането на местоназначението с опциите на Excel

За да накарате Excel да постави данните с целево форматиране, можете да добавите специална команда към вашия Лента с инструменти за бърз достъп.

1. Щракнете досие > Настроики, и в Опции на Excel диалогов прозорец:

  • (1.) Щракнете Лента с инструменти за бърз достъп в левия прозорец;
  • (2.) След това изберете Всички команди под Изберете команди от падащ списък;
  • (3.) След това превъртете надолу и изберете Поставете и съпоставете форматирането на местоназначението в списъчното поле;
  • (4.) След това щракнете Добавете >> бутон, за да добавите тази команда към Персонализирайте лентата с инструменти за бърз достъп.

doc-match-destination-formatting-1

2. След като добавите тази команда, щракнете OK бутон, за да затворите този диалогов прозорец.

3. И сега, Поставете и съпоставете форматирането на местоназначението е добавен към Персонализирайте лентата с инструменти за бърз достъп, вижте екранна снимка:

doc-match-destination-formatting-2

И когато поставите данните от друго приложение, просто трябва да щракнете върху Поставете и съпоставете форматирането на местоназначението бутон в Лента с инструменти за бърз достъп, съдържанието ще бъде поставено в листа, съответстващ на целевото форматиране на вашия работен лист.

Забележка: Този метод не се прилага към Excel 2007.


Поставете външно съдържание в работен лист винаги съответства на форматирането на местоназначението с VBA код

Можете също да зададете Форматирането на съвпадение на местоназначението като опция за поставяне по подразбиране, когато използвате Ctrl + V със следния VBA код.

1. Задръжте натиснат ALT + F11 ключове и отваря Прозорец на Microsoft Visual Basic за приложения.

2. Щракнете Поставете > Модулии поставете следния код в Прозорец на модула.

VBA код: Задайте форматирането на съвпадение на местоназначението като поставяне по подразбиране

Sub PasteWithDestinationFormatting()
ActiveCell.PasteSpecial (xlPasteValues)
End Sub

3. И след това запазете и затворете този диалогов прозорец, след което натиснете Alt + F8 за да отворите Макро диалогов прозорец. В Макро изберете кодовото име, което сте създали в стъпка 2, и щракнете Настроики бутон, след това в появилия се Опции за макроси диалогов прозорец, въведете v под Клавишна комбинация раздел, вижте екранна снимка:

doc-match-destination-formatting-3

4. След това кликнете OK в Опции за макроси и затворете Макро диалогов прозорец.

И сега, когато поставите вашите данни от външно приложение в работния лист с Ctrl + V, данните ще бъдат поставени като Съвпадение на форматирането на местоназначението по подразбиране.


Свързана статия:

Как да задам стойности за поставяне като поставяне по подразбиране, когато използвате Ctrl + V в Excel?


Демонстрация: Поставете външно съдържание в Excel винаги съответства на форматирането на местоназначението

Kutools за Excel: с повече от 300 удобни добавки за Excel, безплатни за изпробване без ограничение за 30 дни. Изтеглете и изпробвайте безплатно сега!

Най-добрите инструменти за продуктивност в офиса

🤖 Kutools AI помощник: Революционизирайте анализа на данни въз основа на: Интелигентно изпълнение   |  Генериране на код  |  Създаване на персонализирани формули  |  Анализирайте данни и генерирайте диаграми  |  Извикване на функциите на Kutools...
Популярни функции: Намерете, маркирайте или идентифицирайте дубликати   |  Изтриване на празни редове   |  Комбинирайте колони или клетки без загуба на данни   |   Кръг без формула ...
Супер търсене: VLookup с множество критерии    VLookup с множество стойности  |   VLookup в няколко листа   |   Размито търсене ....
Разширен падащ списък: Бързо създаване на падащ списък   |  Зависим падащ списък   |  Падащ списък с множество избори ....
Мениджър на колони: Добавете конкретен брой колони  |  Преместване на колони  |  Превключване на състоянието на видимост на скритите колони  |  Сравнете диапазони и колони ...
Препоръчани функции: Мрежов фокус   |  Изглед на дизайна   |   Голям формула бар    Мениджър на работни книги и листове   |  Библиотека с ресурси (Автоматичен текст)   |  Избор на дата   |  Комбинирайте работни листове   |  Шифроване/декриптиране на клетки    Изпращайте имейли по списък   |  Супер филтър   |   Специален филтър (филтър получер/курсив/зачертано...) ...
Топ 15 комплекта инструменти12 Текст Инструменти (добавяне на текст, Премахване на символи, ...)   |   50 + Графика Видове (диаграма на Гант, ...)   |   40+ Практичен формули (Изчислете възрастта въз основа на рождения ден, ...)   |   19 вмъкване Инструменти (Въведете QR код, Вмъкване на картина от пътя, ...)   |   12 Конверсия Инструменти (Числа към думи, Валутен обмен, ...)   |   7 Обединяване и разделяне Инструменти (Разширено комбиниране на редове, Разделени клетки, ...)   |   ... и още

Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време.  Щракнете тук, за да получите функцията, от която се нуждаете най-много...

Описание


Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна

  • Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
  • Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
Comments (14)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
On "Paste external content to worksheet always match destination formatting with VBA code". After "4. Then click OK in the Macro Options dialog, and close the Macro dialog box". The code would take effect only after saving/closing your worksheet.
This comment was minimized by the moderator on the site
Tried the close and save method. Still running into the same issue that Suneet was.
This comment was minimized by the moderator on the site
Hey, the macro for paste is not working. When I hit CTRL+v, it says: Run-time error '1004': PasteSpecial method of Range class failed
This comment was minimized by the moderator on the site
I'm getting this same error
This comment was minimized by the moderator on the site
Hello, guys,
If you want to paste the contents from website, you should apply the following VBA code.

Sub PasteWithDestinationFormatting()
Dim xRg As Range
Set xRg = Application.InputBox("Please select a cell to paste: ", "Kutools for Excel", , , , , , 8)
If xRg Is Nothing Then Exit Sub
xRg.Range("A1").Activate
ActiveSheet.PasteSpecial Format:="Unicode Text", Link:=False, DisplayAsIcon:=False
End Sub

After pasting this code into the code module, and then go to the Macro dialog box to set the shortcut.
From now, when pasting contents from other applications, such as Word, website, a prompt box will pop out to remind you select a cell to put the pasting contents, and the contents will be pasted as Match Destination Formatting by default.

Hope it can help you! Thank you!
This comment was minimized by the moderator on the site
What a dick
This comment was minimized by the moderator on the site
That worked, but now I have to double click, or else the Kutools message comes up. Any solution?
This comment was minimized by the moderator on the site
Works for me, just in case somebody needs it.

Sub PasteWithDestinationFormatting()
ActiveSheet.PasteSpecial Format:="Unicode Text", Link:=False, DisplayAsIcon:=False
End Sub
This comment was minimized by the moderator on the site
it works thanks
This comment was minimized by the moderator on the site
The problem I see after enabling this macro, that works nicely btw,is that my Undo button is greyed out and CTRL+z doesn't work anymore...
This comment was minimized by the moderator on the site
Same, I also cannot use CTRL+Z or and the Undo button is grayed out after using control +Z. But CTRL +V works now to allow me to copy and paste from Google Docs to Excel and have it match the destination format, saving me hundreds of clicks. Thanks!
This comment was minimized by the moderator on the site
i dont know how to thank you for this. its finally solved THANKYOU SOMUCH
This comment was minimized by the moderator on the site
OH MY GOODNESS !!!! YOU LITERALLY ARE A LIFE SAVER!
This comment was minimized by the moderator on the site
This worked for me. Thanks. You just saved me a few hundred clicks a day.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations