エクセル2003にて指定されたシートを複写するには？（２）

質問

エクセル2003にて指定されたシートを複写するには？（２）

同じ件で投稿してすみません。エクセル本を読んでも、ネットで探しても
丸2日進んでいないので、投稿させて頂きました。

以前、以下のURLで投稿したものです。
http://okwave.jp/qa/q5930740.html

【回答して頂いた内容】
Sub aaa()

Dim Ws1 As Worksheet, Ws2 As Worksheet
Set Ws1 = Worksheets("シート１")
Set Ws2 = Worksheets("シート２")

Dim Endrow As Long, r As Integer
Endrow = Ws1.Cells(Rows.Count, 1).End(xlUp).Row

For r = 1 To Endrow
　　　 Worksheets.Add After:=Worksheets(Worksheets.Count)
　　　ActiveSheet.Name = Ws1.Cells(r, 1).Value
　　　Cells(5, 1).Value = Ws1.Cells(r, 1).Value
　　　Cells(5, 2).Value = Ws1.Cells(r, 2).Value
　　　Cells(5, 3).Value = Ws1.Cells(r, 3).Value
Next r

Set Ws1 = Nothing
Set Ws2 = Nothing
End Sub

と、ご回答を頂き、想定していた対応が出来ていますが、
問題が２つほどございます。

（１）ひとつは、シート名及びテキストをA列ではなく、J列から持ってくる必要がある。
（２）もうひとつは、1行目はタイトル行なので、2行目から開始する必要がある。

この2点を解消しようと、色々数字を入れて試したのですが、改善できないので、
どなたか、是非、アドバイス・ご享受を宜しくお願い申し上げます。

回答No.1

qyukip · ベストアンサー

シート名をＪ列の値にするには以下のように修正してはいかがでしょうか？
ActiveSheet.Name = Ws1.Cells(r, 1).Value→ActiveSheet.Name = Ws1.Cells(r, 10).Value
テキストをＪ列にするのも同様に
Cells(5, 1).Value = Ws1.Cells(r, 1).Value→Cells(5, 1).Value = Ws1.Cells(r, 10).Value

２行目から開始させるにはコピーしたシートの１行目を削除してみれば解決すると思います。

お礼

アドバイスありがとうございます。
まだまだ努力が足りずに、解決することが出来ませんでした。。。

バッチリ成功しました。ありがとうございます。