セルのコピー&値の貼り付け（PasteSpecial）

最終更新日：2018-01-19

第41回.セルのコピー&値の貼り付け（PasteSpecial）

値の貼り付けと題しましたが、値だけではなく、「形式を選択して貼り付け」のいろいろな指定方法です。

セルをコピーして、他のセルに「形式を選択して貼り付け」する場合のマクロVBAコードになります。

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

名前	指定値	説明
Paste	xlPasteAll	すべてを貼り付けます。
	xlPasteAllExceptBorders	輪郭以外のすべてを貼り付けます。
	xlPasteAllMergingConditionalFormats	すべてを貼り付け、条件付き書式をマージします。
	xlPasteAllUsingSourceTheme	ソースのテーマを使用してすべてを貼り付けます。
	xlPasteColumnWidths	コピーした列の幅を貼り付けます。
	xlPasteComments	コメントを貼り付けます。
	xlPasteFormats	コピーしたソースの形式を貼り付けます。
	xlPasteFormulas	数式を貼り付けます。
	xlPasteFormulasAndNumberFormats	数式と数値の書式を貼り付けます。
	xlPasteValidation	入力規則を貼り付けます。
	xlPasteValues	値を貼り付けます。
	xlPasteValuesAndNumberFormats	値と数値の書式を貼り付けます。
Operation	xlPasteSpecialOperationAdd	コピーしたデータは、対象セルの値に追加されます。
	xlPasteSpecialOperationDivide	コピーしたデータは、対象セルの値によって分割されます。
	xlPasteSpecialOperationMultiply	コピーしたデータには、対象セルの値が掛けられます。
	xlPasteSpecialOperationNone	貼り付け操作で計算は行われません。
	xlPasteSpecialOperationSubtract	コピーしたデータは、対象セルの値が引かれます。
SkipBlanks	バリアント型 (Variant)	クリップボードに含まれる空白のセルを貼り付けの対象にしないようにするには、True を指定します。既定値は False です。
Transpose	バリアント型 (Variant)	貼り付けのときにデータの行と列を入れ替えるには、True を指定します。既定値は False です。

値の貼り付

Worksheets("Sheet1").Range("A1:B10").Copy

Worksheets("Sheet2").Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

このように記述します。

前回のPasteとは違い、アクティブシート以外にも貼り付けが可能です。

従って、

Paste:=xlPasteAll

これなら、セルの全てがコピーされるので、Pasteと同じになります。

いろいろなコピーのVBAの書き方


  
    
      
      Sheets("Sheet1").Select
      Range("A1:B10").Copy

      Sheets("Sheet2").Select

      Range("A1").Select

      ActiveSheet.Paste

      Application.CutCopyMode 
= False


  
    
      Sheets("Sheet1").Range("A1:B10").Copy 
Destination:=Sheets("Sheet2").Range("A1")


  
    
      
      Sheets("Sheet1").Range("A1:B10").Copy

      Sheets("Sheet2").Range("A1").PasteSpecial 
Paste:=xlPasteAll

これら３つのコードは、同じことをしています。

マクロVBAでよく使うものとしては、

Paste:=xlPasteValues ・・・値を貼り付け
Transpose:=True ・・・行と列を入れ替え

このあたりは、しっかり使えるようにしておきましょう。

使用例

Sheet1のA1:B10をコピーして、
Sheet2のA1に、行列を入れ替えて値を貼り付けします。


  
    
      Worksheets("Sheet1").Range("A1:B10").Copy

Worksheets("Sheet2").Range("A1").PasteSpecial Paste:=xlPasteValues, Transpose:=True

マクロVBAで、セルのコピペは必須になります。
次回の、
第42回.セルをコピーするとは

セルをコピーするとは、どういう事でしょうか、セルをコピーするという事を少し掘り下げて考えることで、より実践的なVBAコードを書くことが出来るようになります。セルは、Rangeオブジェクトです、オブジェクトそのものは、コピーできません、では、何をコピーしているので,Excelマクロの基礎と応用、エクセルVBAの入門・初級・初心者向け解説

こちらと合わせて、ぜひ、しっかりと覚えて下さい。