| |
▼マクロマン さん：
レスありがとうございます。コードは以下のとおりです。
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を使うと処理が早くなるとネットでみたので使ってみましたがたいして変わりませんでした。よろしくお願いします。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
