Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

55263 / 76807

←次へ　｜　前へ→


	【26322】Re:複数シートにループで同じ処理をするには

りん

- 05/7/1(金) 13:41 -


	引用なし

	パスワード

こんにちわ。 >どこが悪いのでしょうか？？ >　　Sheets(i).Range(Cells(2, retu - 1), Cells(2, retu)).Select >　　Selection.Merge Selectは、表示されているシートが対象となる上、RangeとCellsで参照しているシートが違っているのでエラーになるとおもいます。 Sheets(i).Range(Sheets(i).Cells(2, retu - 1), Sheets(i).Cells(2, retu)).Merge ↓これをWithでまとめて、　With Sheets(i) 　　 .Range(.Cells(2, retu - 1), .Cells(2, retu)).Merge 　End With >>りんさんというＨＮの方が他にもお見えになりますので、今後は変更された方がいいと思います。 >以後名前を変えます。すいません。別に気にしなくてもいいとおもいます。他にもたくさんいますし＜りん