Excel VBA質問箱 IV

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

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


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

50304 / 76732

←次へ　｜　前へ→


	【31317】Re:シートの選択

Kein - 05/11/17(木) 12:08 -


	引用なし

	パスワード

シートの削除と丸ごとコピーをする代わりに

Sub Test()
　 Dim Wb1 As Workboook, Wb2 As Workbook
　 Dim i As Integer

　 Set Wb1 = Workbooks("BookA.xls")
　 Set Wb2 = Workbooks("BookB.xls")
　 For i = 4 To Wb1.Workbooks.Count
　　　Wb2.Worksheets(i).Cells.Clear
　　　Wb1.Worksheets(i).Cells _
　　　.Copy Wb2.Worksheets(i).Range("A1")
　 Next i
　 Set Wb1 = Nothing: Set Wb2 = Nothing
End Sub

などとしても良いか、と思います。

　

0 hits

▼

【31310】シートの選択 hisao 05/11/17(木) 10:09