質問: エクセルのsheet1の各行にあるデータをSheet2以降の顧客管理カード単票に移したいです。 2回目です。
回答: 前の質問に >sheet1の各行に対応した名前のシートがない。 >すなわち、Sheet1の2行~10行にデータがあるのなら >Sheet2~Sheet10が存在しないとダメ と答えたのですが、 Sheet3、Sheet4、・・・・ と言う「名前」が付いたシートがあるのでしょうか? 画像が小さく、シート名まで確認できません。 シート名ではなく、 「シートの位置」(左から何番目)でよい のなら、 With Worksheets("Sheet" & i) ↓ With Worksheets(i) と変更してください。 ただし、将来シートの位置が変更されたら、意図しない結果になるでしょう。