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
'range'で行ったように' cells'の前に 'Worksheets(" Tablecorrected ")'を追加してください。 – findwindow