Excel vba pastespecial all

Метод Range.PasteSpecial (Excel)

Вставляет объект Range , скопированный в указанный диапазон.

Синтаксис

expression. PasteSpecial (Paste, Operation, SkipBlanks, Transpose)

выражение: переменная, представляющая объект Range.

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Paste	Необязательный	XlPasteType	Часть вставляемого диапазона, например xlPasteAll или xlPasteValues.
Операция	Необязательный	XlPasteSpecialOperation	Операция вставки, например xlPasteSpecialOperationAdd.
SkipBlanks	Необязательный	Variant	Значение true , чтобы пустые ячейки в диапазоне в буфере обмена не вставились в целевой диапазон. Значение по умолчанию — False.
Transpose	Необязательный	Variant	Значение true для транспонирования строк и столбцов при вставке диапазона. Значение по умолчанию — False.

Возвращаемое значение

Пример

В этом примере данные в ячейках D1:D5 на Листе1 заменяются суммой существующего содержимого и ячеек C1:C5 на Листе1.

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Источник

Range.PasteSpecial method (Excel)

Pastes a Range object that has been copied into the specified range.

Syntax

expression.PasteSpecial (Paste, Operation, SkipBlanks, Transpose)

expression A variable that represents a Range object.

Parameters

Name	Required/Optional	Data type	Description
Paste	Optional	XlPasteType	The part of the range to be pasted, such as xlPasteAll or xlPasteValues.
Operation	Optional	XlPasteSpecialOperation	The paste operation, such as xlPasteSpecialOperationAdd.
SkipBlanks	Optional	Variant	True to have blank cells in the range on the clipboard not be pasted into the destination range. The default value is False.
Transpose	Optional	Variant	True to transpose rows and columns when the range is pasted. The default value is False.

Return value

Example

This example replaces the data in cells D1:D5 on Sheet1 with the sum of the existing contents and cells C1:C5 on Sheet1.

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.

Источник

Метод Worksheet.PasteSpecial (Excel)

Вставляет содержимое буфера обмена на лист в указанном формате. Используйте этот метод для вставки данных из других приложений или для вставки данных в определенном формате.

Синтаксис

expression. PasteSpecial (Format, Link, DisplayAsIcon, IconFileName, IconIndex, IconLabel, NoHTMLFormatting)

Выражение Переменная, представляющая объект Worksheet .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Format	Необязательный	Variant	Строка, указывающая формат буфера обмена данных.
Link	Необязательный	Variant	Значение true , чтобы установить связь с источником вставленных данных. Если исходные данные не подходят для связывания или исходное приложение не поддерживает связывание, этот параметр игнорируется. Значение по умолчанию — False.
DisplayAsIcon	Необязательный	Variant	Значение true для отображения вставленных данных в виде значка. Значение по умолчанию — False.
IconFileName	Необязательный	Variant	Имя файла, содержащего значок для использования, если DisplayAsIcon имеет значение True.
IconIndex	Необязательный	Variant	Номер индекса значка в файле значка.
IconLabel	Необязательный	Variant	Текстовая метка значка.
NoHTMLFormatting	Необязательный	Variant	Значение true , чтобы удалить все форматирование, гиперссылки и изображения из HTML. Значение False для вставки HTML как есть. Значение по умолчанию — False.

Замечания

Значение NoHTMLFormatting имеет значение только в том случае, если Format = «HTML»; Во всех остальных случаях параметр NoHTMLFormatting игнорируется.

Перед использованием этого метода необходимо выбрать диапазон назначения.

Этот метод может изменить выбранный лист в зависимости от содержимого буфера обмена.

Для разработчиков языков, отличных от английского, можно заменить одну из следующих констант (0–5), чтобы она соответствовала строковой эквивалентной формату файла рисунка.

Аргумент Format	Эквивалент строки
0	«Рисунок (PNG)»
1	«Рисунок (JPEG)»
2	«Рисунок (GIF)»
3	«Изображение (расширенный метафайл)»
4	«Растровое изображение»
5	«Объект документа Microsoft Office»

Пример

В этом примере объект документа Microsoft Word вставляется из буфера обмена в ячейку D1 на Листе1.

В этом примере объект рисунка вставляется и не отображается в виде значка.

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Источник

Worksheet.PasteSpecial method (Excel)

Pastes the contents of the Clipboard onto the sheet, using a specified format. Use this method to paste data from other applications or to paste data in a specific format.

Syntax

expression.PasteSpecial (Format, Link, DisplayAsIcon, IconFileName, IconIndex, IconLabel, NoHTMLFormatting)

expression A variable that represents a Worksheet object.

Parameters

Name	Required/Optional	Data type	Description
Format	Optional	Variant	A string that specifies the Clipboard format of the data.
Link	Optional	Variant	True to establish a link to the source of the pasted data. If the source data isn’t suitable for linking or the source application doesn’t support linking, this parameter is ignored. The default value is False.
DisplayAsIcon	Optional	Variant	True to display the pasted data as an icon. The default value is False.
IconFileName	Optional	Variant	The name of the file that contains the icon to use if DisplayAsIcon is True.
IconIndex	Optional	Variant	The index number of the icon within the icon file.
IconLabel	Optional	Variant	The text label of the icon.
NoHTMLFormatting	Optional	Variant	True to remove all formatting, hyperlinks, and images from HTML. False to paste HTML as is. The default value is False.

NoHTMLFormatting only matters when Format = «HTML»; in all other cases, NoHTMLFormatting is ignored.

You must select the destination range before you use this method.

This method may modify the sheet selection, depending on the contents of the Clipboard.

For developers of languages other than English, you can substitute one of the following constants (0-5) to correspond with the string equivalent of the picture file format.

Format argument	String equivalent
0	«Picture (PNG)»
1	«Picture (JPEG)»
2	«Picture (GIF)»
3	«Picture (Enhanced Metafile)»
4	«Bitmap»
5	«Microsoft Office Drawing Object»

Example

This example pastes a Microsoft Word document object from the Clipboard to cell D1 on Sheet1.

This example pastes a picture object and does not display it as an icon.

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.

Источник

VBA PasteSpecial Values, Formats, Formulas and more

The VBA Tutorials Blog

The copy/paste function of computers is so commonplace it is almost second nature to most people now. We trust computers to copy entire texts perfectly when we press Ctrl+C / Ctrl+V, and there’s no reason not to trust them. If we humans had to type out a 50-digit code, we would almost certainly make a mistake — at the very least, it would take much longer than the copy/paste we are used to.

However, sometimes we want to copy more than just plain text. Excel offers all kinds of features, like conditional formatting, data validation, data-type formatting, and beautifying aspects like borders and cell colors, and we can copy all of them or a subset thereof. Maybe you like your coworker’s color scheme but need static data (i.e., no formulas) or maybe the formulas are awesome and you hate the color scheme. Whatever your needs, the VBA PasteSpecial method can probably help you.

This isn’t the first time we’ve used the VBA PasteSpecial command here. A couple months ago, we had a wonderful wellsrPRO community submission showing how to paste values using VBA.

Our Dataset

In this tutorial, we are going to use a contrived dataset that incorporates many options under the PasteSpecial method so we can experiment with a number of things using the same dataset.

Our data looks like this:

Dataset with various layers of formatting, not just text and number data

Notice the different background colors and the borders in cells E1 and F1 as well as the bold font across the top row.

There are several important hidden things to note here, as well:

• Conditional formatting on the Change % column (any negative difference is green, and a positive difference over 5% is red)
• Data-type formatting for percentages or currency amounts
• Formulas in the change columns
• Data validation requiring a number greater than or equal to zero in the Quantity column

So let’s see how PasteSpecial can copy all or part of this dataset with complex formatting.

The Range Object

Before we begin our journey, we need to clarify the object associated with PasteSpecial : the Range object.

Our range in the dataset is A1:F5 . Let’s put this into a defined variable, range_to_copy , and add another range, the upper left corner of the range we want to paste into, range_for_pasting .

Now we can easily copy by referencing range_to_copy.Copy , and we can paste into A7 with range_for_pasting.PasteSpecial .

Since you’ll need to clear everything each time to play around with pasting, you can use this subroutine to clear the pasted area before pasting anything new:

This will remove data-type formatting, colors, borders, data validation, and conditional formatting in our paste range.

PasteSpecial Pasting Options

Now that we have set our ranges, we can use VBA PasteSpecial to copy different components of our range.

Although we’re focusing on copying information from Excel ranges, you can use PasteSpecial to paste almost anything copied to your clipboard.

The VBA PasteSpecial Method accepts 4 arguments, all of which are actually optional:

The first two arguments control what you want PasteSpecial to do with your copied content, and the second two arguments control the behavior of the PasteSpecial method. We’re going to cover each of these arguments in detail and give you helpful examples to demonstrate how they work.

Paste as XlPasteType

The first argument for .PasteSpecial is Paste, which determines exactly what you want to paste: formats, formulas, validation, and so on. There’s a long list of accepted values for the Paste (XlPasteType) argument. We’ll demonstrate the important ones, but here’s a complete list of all of them:

• xlPasteAll
• xlPasteAllExceptBorders
• xlPasteAllMergingConditionalFormats
• xlPasteAllUsingSourceTheme
• xlPasteColumnWidths
• xlPasteComments
• xlPasteFormats
• xlPasteFormulas
• xlPasteFormulasAndNumberFormats
• xlPasteValidation
• xlPasteValues
• xlPasteValuesAndNumberFormats

Make powerful macros with our free VBA Developer Kit

It’s easy to copy and paste a macro like this, but it’s harder make one on your own. To help you make macros like this, we built a free VBA Developer Kit and wrote the Big Book of Excel VBA Macros full of hundreds of pre-built macros to help you master file I/O, arrays, strings and more — grab your free copy below.

Let’s start looking at a few examples.

Value and Formats Example

Let’s pretend you just want to paste values and formats (currency, percentage, and so forth). Maybe you don’t want all the conditional formatting, coloring, and data validation. Maybe you also need the data to remain static, so you want to remove the formulas.

People need to do this all the time when storing data in a spreadsheet like a database (which is a bad idea and you should really use Access for database functions, but neverthless massive database-like spreadsheets are extremely common).

You can send your data to our range_for_pasting with this snippet:

You will end up with this as a result:

The original and value/format datasets

It’s very important that you remember to copy something to your clipboard before you try to paste. If you’re copying a range from Excel, you would just use the .Copy method of the Range object, like we did in our example.

As you can see, the cell F9 has no formula in it while the original, F3, does. Furthermore, we manually typed “three” into cell B8 (after running the macro). The data validation in our original data set would have prevented us from having a text entry, but since we only copied values and formulas, the data validation rules in our pasted range are gone. The ability to paste what you want and ignore what you don’t want makes VBA PasteSpecial a really valuable feature.

Note, if you’d rather paste the values only, without the number formats, you would run a macro with a snippet like this:

Pasting Formulas with VBA PasteSpecial

On the other hand, maybe you want just the formulas. This might be useful if you already have some complex formulas written out and need them applied to another dataset.

The original and copied dataset with only formulas copied

Here we can see the data-type formating is lost. What we’re left with are pure numbers in the change columns (no formatting for percentage or currency). You can also see the new formulas are applied to the new range, not the original. Now we can make changes in our new dataset and see the results without impacting our original dataset.

Formatting and Validation

Sometimes you don’t want the original data at all, but the rules and formats associated with the original range. The xlPasteValidation, xlPasteFormats, xlPasteColumnWidths, and xlPasteComments options allow this.

For example, say you have some complex formatting scheme, like this:

The top dataset has various formatting rules while the bottom is all formatted as «General» type

If we run this code

We end up with the bottom dataset formatted just like the top, transferring our complex formatting rules seamlessly.

The formats from the top range are transferred to the bottom

This same type of PasteSpecial can be done for validation rules, column widths, and comments. Simply change the keyword after the PasteSpecial command to xlPasteValidation, xlPasteColumnWidths, or xlPasteComments.

Another need option I find myself using a lot is the xlPasteAllExceptBorders. It’s nice to be able to paste everything but the borders into a new range.

Operation as XlPasteSpecialOperation

The second optional argument for the PasteSpecial method is Operation. This nifty little argument lets you perform mathematical operations between copied and destination data. You can use one of the four basic arthimetic operations (add, subtract, multiply, divide). These arithmetic operations are represented by the following keywords:

• xlPasteSpecialOperationAdd
• xlPasteSpecialOperationSubtract
• xlPasteSpecialOperationMultiply
• xlPasteSpecialOperationDivide

There’s also an xlPasteSpecialOperationNone keyword, but it doesn’t do any arithmetic operations. This is the default value.

When you specify an XlPasteSpecialOperation value, your VBA macro will take the range you copied, range_to_copy , and perform the mathematical operations on top of the values already existing in the range your pasting into, range_for_pasting . We’ll show a couple examples so this will make more sense.

Commutative Operations

A commutative operation is one in which a.b = b.a, where . is the operator, or in other words, when order doesn’t matter. Addition and multiplication are commutative, because the order doesn’t matter.

Let’s use these two datasets

Two sets of numbers for doing math operations

If you just want to add the numbers together, you can use this code:

Your final result will look like this:

The lower set is the addition of the original two sets

The bottom range of our dataset now contains the sum of our original bottom dataset PLUS our top dataset.

The same idea works for multiplication, except we use xlPasteSpecialOperationMultiply . Since the order doesn’t matter, you can simply replace “Add” with “Multiply” in the code above.

Non-commutative Operations

Division and subtraction are non-commutative, so order is important.

There are two possiblities for non-commutative operations for VBA PasteSpecial:

• for subtraction, the original, copied range will be subtracted from the destination range — xlPasteSpecialOperationSubtract
• for division, the destination range will be divided by the numbers in the original, copied range — xlPasteSpecialOperationDivide

With our original numbers from above, if you use the top set as range_to_copy and the bottom set as range_for_pasting , you should get whole numbers as below when using the division operator. You won’t always get whole numbers, but we made our numbers nice for you.

Let’s take a look at a division PasteSpecial example.

The bottom set is all even numbers, since we divided the original bottom set by the top set

Performing math on entire range based on value in one cell

Let’s go back to our original dataset. A nifty trick is to use a single cell, which is to say one number, to divide an entire range:

you would end up with this result:

The two datasets after dividing by D1 , which is equal to 2

You can use the same concept to add, multiple and subtract an entire range based on the contents of a single cell.

PasteSpecial Behavior Options

The other two options, both accepting Boolean values of TRUE or FALSE, are for omitting blanks in the copied range and transposing your data. This is why I said the last two arguments control the behavior of PasteSpecial, rather than controlling what’s actually pasted.

For this part, let’s use the following dataset:

Some email addresses and files to send, with a dummy dataset

The SkipBlanks Option

Using TRUE or FALSE for the SkipBlanks argument controls what the PasteSpecial method does when it encounters an empty cell. The following macro demonstrates each method and gives us the following results after running this code block:

If we skip blanks, the original data is retained, but if we do not skip blanks, the original data is overwritten with empty cells.

The Transpose Option

The final option in PasteSpecial is Transpose , which will transpose your row/column data into a column/row arrangement. This simply means your rows become columns in the new dataset and your columns become rows. We’ve got an entire post dedicated to transposing data in VBA, which includes some really neat macros for transposing data while maintaining the original cell formatting.

Using the same email and files dataset, if we set Transpose to TRUE, we get the following output:

Data before and after transposing and pasting

You can run this block to achieve the above result:

Conclusion

Each of these options can be combined with other options to create some complex copy/paste operations. It is especially helpful if you have complex rules that you don’t want to recreate in the new range or if you have a huge (i.e., database-like) spreadsheet that requires specific formatting or contains lots of embedded formulas.

Sometimes you get spreadsheets from coworkers and you really only need certain components. Now you can programatically copy the parts you like while eliminating the parts you don’t.

For more VBA tips, techniques, and tactics, subscribe to our VBA Insiders email series using the form below.

Once you subscribe, please share this article on Twitter and Facebook.

Ready to do more with VBA?
We put together a giant PDF with over 300 pre-built macros and we want you to have it for free. Enter your email address below and we’ll send you a copy along with our VBA Developer Kit, loaded with VBA tips, tricks and shortcuts.

Before we go, I want to let you know we designed a suite of VBA Cheat Sheets to make it easier for you to write better macros. We included over 200 tips and 140 macro examples so they have everything you need to know to become a better VBA programmer.

This article was written by Cory Sarver, a contributing writer for The VBA Tutorials Blog. Visit him on LinkedIn and his personal page.

Источник

PasteSpecial in VBA

In this article, we will see an outline on VBA PasteSpecial. When we work with data in excel some data are obtained by formulas. These formulas are from references and when we paste this data to another sheet or any other workbook what happens? Because the formula is a reference and the new sheet doesn’t have the reference for the formula the value pasted is shown as an error. So in these situations what we do is paste the values as special values and what it does is that it does not paste the formulas in the target worksheet rather than pasting the value generated by the formula in the target worksheet. Similarly, in VBA there is a method to paste the values which are known as Paste Special Method. We will learn in this article how to paste as values for a single cell to the entire column and then to paste in another worksheet also we will learn the difference of (.Value) and (.Paste)method.

How to Use the PasteSpecial Method in Excel VBA?

The following examples will teach us how to use the PasteSpecial method in Excel by using the VBA Code.

You can download this VBA PasteSpecial Excel Template here – VBA PasteSpecial Excel Template

Example #1 – VBA PasteSpecial

Let us begin with the basic step in this example when we paste special for a single cell in VBA. For this, follow the below steps:

Step 1: Insert a new module inside Visual Basic Editor (VBE). Click on Insert tab > select Module.

Step 2: In the module start a subprocedure.

Code:

Sub Example1()

End Sub

Step 3: Let us copy the value we have in cell A1 using the range property method.

Code:

Sub Example1()

Range("A1").Copy

End Sub

Step 4: Now let us use the paste special method to paste value we copied in cell B1.

Code:

Sub Example1()

Range("A1").Copy
Range("B1").PasteSpecial Paste:=xlPasteValues

End Sub

Step 5: When we execute the above code we can see the result in the cell B1.

Example #2 – VBA PasteSpecial

In the previous example, we copied value from a cell and paste it to an adjacent cell. Now let us copy a value from a range and paste it to another sheet. In this example, we have a value in cell A1 which is in sheet 2 and we want to paste it in sheet 2 to cell B1. For this, follow the below steps:

Step 1: We will work in the same module we had inserted as Module1 and start our subprocedure as Example 2.

Code:

Sub Example2()

End Sub

Step 2: Now let us copy the value from sheet 2 and cell A1 by using the paste method.

Code:

Sub Example2()

Sheets("Sheet2").Range("A1").Copy

End Sub

Step 3: The next step is to paste the values in sheet 3 using the paste special method in the cell B1.

Code:

Sub Example2()

Sheets("Sheet2").Range("A1").Copy
Sheets("Sheet3").Range("B1").PasteSpecial Paste:=xlPasteValues

End Sub

Step 4: Before we run the above procedure let us check what we have as Value in Cell A1 for sheet 2

Step 5: Now run the code and see the result in sheet 3.

Example #3 – VBA PasteSpecial

Earlier we copied a cell from one cell to another and from one worksheet to another. In this example, we will copy an entire column and paste it to another column. For this, follow the below steps:

Step 1: The defining of the subprocedure will be the same as for all the codes above, let us begin right below the example 3 in the same module.

Code:

Sub Example3()

End Sub

Step 2: Since we are working in sheet 4 now so it is necessary to activate sheet 4 before we make any changes to avoid confusion and error.

Code:

Sub Example3()

Worksheets("Sheet4").Activate

End Sub

Step 3: Now we will copy the values in column A using the copy method.

Code:

Sub Example3()

Worksheets("Sheet4").Activate
Columns("A").Copy

End Sub

Step 4: And we will paste the copied column to column B using the paste special method.

Code:

Sub Example3()

Worksheets("Sheet4").Activate
Columns("A").Copy
Columns("B").PasteSpecial Paste:=xlPasteValues

End Sub

Step 5: Run this code by hitting F5 or the Run button. We can see that the values from column A have been copied and pasted to column B.

Example #4 – VBA PasteSpecial

Now we have some data in Sheet 5 as follows, which shows the percentage of marks obtained by the students. For this, follow the below steps:

Step 1: In the same module below example 3 we will declare our another procedure named as Example 4.

Code:

Sub Example4()

End Sub

Step 2: Now let us activate sheet 5 first to use its properties.

Code:

Sub Example4()

Worksheets("Sheet5").Activate

End Sub

Step 3: Copy the entire range from A1 to D6 and paste it sheet 6 from cell A7 to D6 by the following code.

Code:

Sub Example4()

Worksheets("Sheet5").Activate
Sheets("Sheet5").Range("A1:D6").Copy
Sheets("Sheet6").Range("A1:D6").PasteSpecial Paste:=xlPasteValues

End Sub

Step 4: Run this code by hitting F5 or Run button. we get the following result in sheet 6.

We have seen in both the above examples in example 3 and example 4, when we paste the values the format is changed because the formulas are not pasted.

Let us look through both the example 3 and 4 in example 5 as follows.

Example #5 – VBA PasteSpecial

Code:

Sub Example5()

Worksheets("Sheet4").Activate
Columns("A").Copy
Columns("B").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Worksheets("Sheet5").Activate
Sheets("Sheet5").Range("A1:D6").Copy
Sheets("Sheet6").Range("A1:D6").PasteSpecial Paste:=xlPasteValuesAndNumberFormats

End Sub

Now when we run the above code we can see the difference in our result for example 3 and 4 as follows:

Result for Example 3.

Result for Example 4.

This method not only copies and paste the values but also keep the formatting of the values intact.

Conclusion

We discussed above for example 3 and example 4 that the format for our result changes when we use the paste special method. In paste special method we have another option to paste numbers and formats. PasteSpecial is a type of worksheet function when we copy and right-click on any cell to paste the values we get three options one is the normal paste function other being paste values and one is the paste special. Similar to the worksheet function we have to paste special in VBA too. Paste special function can be used for wide ranges in VBA.

Things to Remember

There are few things which we need to remember in using a range variable:

1. Paste Special is a worksheet function which is also used in VBA.
2. Paste Special does not paste the formulas it only copies the value generated by the formulas.
3. Paste special does not keep the original formatting.
4. Paste Values and number formats in a type of Paste special also keeps the formatting of the numbers.

Recommended Articles

This is a guide to the VBA PasteSpecial. Here we discuss how to use the PasteSpecial Method in Excel VBA along with practical examples and downloadable excel template. You can also go through our other suggested articles –

1. VBA SendKeys
2. VBA On Error Goto
3. VBA Input
4. VBA RGB