Excel VBA質問箱 IV

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

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


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

33932 / 76807

←次へ　｜　前へ→


	【48091】Re:ワークシートのコピーについて

あき - 07/4/3(火) 14:44 -


	引用なし

	パスワード

▼マクロマンさん：
レスありがとうございます。コードは以下のとおりです。
Sub CopySheets()

Dim Last As Integer
Last = 9　　　 'SS最終号番号
Dim jj As Integer
jj = 1　　　　 'SS開始番号
Dim jj2 As Integer 'jj身代わり変数
jj2 = jj
Dim jjj As Integer
jjj = 7　　　　'処理開始行番号
Dim 削除セル番号 As String

Dim aaa As Integer
aaa = Last
Dim 元SSシート As String
Dim コピーSSシート As String
Dim 新SSシート As String

For aaa = jj To Last
　　

　　元SPシート = "SS" & aaa
　　コピーSPシート = "SS" & aaa & " (2)"
　　新SPシート = "SS" & aaa & "データ"
　　
　　Sheets(元SSシート).Select
　　Sheets(元SSシート).Copy Before:=Sheets(1)
　　DoEvents
　　Sheets(コピーSSシート).Select
　　Sheets(コピーSSシート).Name = 新SSシート
　　Worksheets(新SSシート).Move Before:=Worksheets("SS1")

Next aaa

End Sub

DoEventsを使うと処理が早くなるとネットでみたので使ってみましたがたいして変わりませんでした。よろしくお願いします。

0 hits

▼

【48089】ワークシートのコピーについて あき 07/4/3(火) 13:42