VBA - 書式設定なしの範囲を貼り付ける/挿入する

Question

これはおそらくかなりシンプルですが、初心者としてこれらの2つのコードを1つにまとめる方法がわかりません。

今はこのコードを使用して、特定の範囲にテーブルをコピー＆ペーストします。 Sheet3.Range("MyTable").Copy Sheets("MyWorksheet").Range("B12:D12").Insert Shift:=xlDown

今、私はフォーマットせずにそれを貼り付けると、このコードは、作業を行う必要があります。

Sheets("MyWorksheet").Range("B12:D12").PasteSpecial xlPasteValuesAndNumberFormats 

私がする必要があるのは、何とか二コードにShift:=xlDownを追加することです...がすることが可能ですそれを一列にしてみましょうか？

Answer 1

で試してみてくださいこのソリューションでは、最初にコピーしたもの+以前に挿入したもの、2番目に挿入したものを上書きする値を貼り付けてコピーします。

Sheet3.Range("MyTable").Copy 
Sheets("MyWorksheet").Range("B12:D12").Insert Shift:=xlDown 

With Sheets("MyWorksheet").Range("B12").Resize(Sheet3.Range("MyTable").Rows.Count, Sheet3.Range("MyTable").Columns.Count) 

    .Copy 
    .PasteSpecial xlPasteValuesAndNumberFormats 

End With 
    Application.CutCopyMode = False  

Answer 2

は2行でそれを行うようにしてくださいしかし、あなたはすべての命令の正しい順序を維持する必要があります：

Sheets("MyWorksheet").Range("B12:D12").Insert Shift:=xlDown 
Sheet3.Range("MyTable").Copy 
Sheets("MyWorksheet").Range("B12").PasteSpecial xlPasteValuesAndNumberFormats 

また.insert前に次の行を必要とすることができます

application.CutCopyMode = false