Excel VBA質問箱 IV

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

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


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

51061 / 76732

←次へ　｜　前へ→


	【30546】Re:別ブックのシートを統合したい

Statis - 05/10/30(日) 9:20 -


	引用なし

	パスワード

こんにちは
本体のシート（開いたときに追加したシート）を変更後
閉じるときに削除して良いのなら

>With ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count - Co)
>　　 .Cells.Copy Wb1.Worksheets(1).Range("A1")
>End With

Application.DisplayAlerts = False
With ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count - Co)
　　 .Cells.Copy Wb1.Worksheets(1).Range("A1")
　　 .Delete
End With
Application.DisplayAlerts = True
で如何ですか？

0 hits

▼

【30402】別ブックのシートを統合したい VBA初心者　丸助 05/10/26(水) 19:02