excelのマクロで別シートにコピーするときエラーが出ます。

Question

実行時エラー1004がPasteSpecial文の所で出てしまいます。

どこをどのように直せばよいのでしょうか？
教えてください。マクロはあまり上手ではないので、
見ずらいコードだとは思いますが、よろしくお願いします。

Sub データ変形()
    Dim LastCells As Integer
    Dim Accept As Integer
    Dim Cnt As Integer
    Sheets("Excelデータ").Select
    Cnt = WorksheetFunction.CountBlank(Range("T2:T40")) '切り取ってきたデータ(40行)のうち空白行をカウント
    Range(Range("T2"), Cells(40 - Cnt, 23)).Copy '40から空白行を引いて、実際にデータの格納されている範囲をコピーする
    Sheets("データ整理").Select
    LastCells = Cells(Rows.Count, 1).End(xlUp).Row '貼り付け先の最終行を確認
    Range("A1").Select
    ActiveWindow.SmallScroll down:=LastCells - 5, toleft:=0 '最終行近辺を画面上に表示
    Accept = MsgBox("最終行は" & LastCells & "で合っていますか？", vbYesNo + vbQuestion)
    If Accept = vbYes Then
        Range(Cells(LastCells + 1, 1)).PasteSpecial Paste:=xlPasteValues '「値を張り付け」で張り付ける
        Columns("E:G").Hidden = True
    End If
End Sub

Answer 1

Rangeオブジェクトには引数にRangeオブジェクト(Cells)を１つだけ指定するような使い方はないので、そこで怒られているのだと思います。

たとえば
Range(Cells(LastCells + 1, 1)).PasteSpecial Paste:=xlPasteValues
を
Cells(LastCells + 1, 1).PasteSpecial Paste:=xlPasteValues
としてみてはどうでしょうか？

貼り付け位置がCells(LastCells + 1, 1)を起点にするということでよいのなら、これで期待する動作になると思います。
お試しください。

Comments

[wks]

回答有難うございます。期待通りの動作をしてくれました。助かりました。