2016-05-12 3 views
0

これはちょうど範囲をコピーするための関連する質問を投稿したので少し恥ずかしいですが、私が直面した問題は最後に近づいたものがペーストを許可しないということです。VBA Pastespecial range

これでシートから他のシートにコピーしようとしましたが、エラーが発生します。ベースラインコードは問題なく動作するシートからですが、ここでは最初のセットラインを指し示す1004 errorが生成されます。

Sub Script() 
Dim Row As Integer 
Dim Col As Integer 

Row = Worksheets("Design").Cells(11, 22).Value 
Col = Worksheets("Design").Cells(12, 22).Value 

    Set varRangeselect1 = Worksheets("Tablecorrected").Range(Cells(2 + 19 * Row, 1 + 19 * Col), Cells(19 + 19 * Row, 18 + Col * 19)) 
    Set varRangeSelect2 = Worksheets("Scriptsheet").Range(Cells(1, 1), Cells(18, 18)) 
    varRangeselect1.Copy 
    varRangeSelect2.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False 


End Sub 
+0

'range'で行ったように' cells'の前に 'Worksheets(" Tablecorrected ")'を追加してください。 – findwindow

答えて

1

のFindWindowは、右のヒントを与え、作業コードは次のとおりです。

Sub Script() 
Dim Row As Integer 
Dim Col As Integer 

Row = Worksheets("Design").Cells(11, 22).Value 
Col = Worksheets("Design").Cells(12, 22).Value 

    Set varRangeselect1 = Worksheets("Tablecorrected").Range(Worksheets("Tablecorrected").Cells(2 + 19 * Row, 1 + 19 * Col), Worksheets("Tablecorrected").Cells(19 + 19 * Row, 18 + Col * 19)) 
    Set varRangeSelect2 = Worksheets("Scriptsheet").Range(Worksheets("Scriptsheet").Cells(1, 1), Worksheets("Scriptsheet").Cells(18, 18)) 
    varRangeselect1.Copy 
    varRangeSelect2.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False 


End Sub 

感謝!

関連する問題