別シートのデータをクリア (ID:121880)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Cells(2, 1)とCells(L, 200)がActivateシートのセルを参照してしますので Sheets("1test").Range(Cells(2, 1), Cells(L, 200)).ClearContents を Sheets("1test").Range(Sheets("1test").Cells(2, 1), Sheets("1test").Cells(L, 200)).ClearContents 個人的には with Sheets("1test") .Range(.Cells(2, 1), .Cells(L, 200)).ClearContents end with かな？