ID非公開

2021/4/9 23:46

11回答

データ整理の為に別excelファイルのデータを転記して1つのファイルにまとめることになりました。

Visual Basic11閲覧

ベストアンサー

0

元のコードで、1つだけ指摘。 .Sheets(Shmoto).Range(Cells(11, 2), Cells(34, 2)).Value という書き方は、エラーになるおそれがあります。 正しくは .Sheets(Shmoto).Range(.Sheets(Shmoto).Cells(11, 2), .Sheets(Shmoto).Cells(34, 2)).Value たまたま、.Sheets(Shmoto)のシートがアクティブになっていただけですね。普通はエラーになると考えます。

ThanksImg質問者からのお礼コメント

回答ありがとうございました。 教えて頂いたコードで問題なく動作しました。

お礼日時:4/16 10:20