質問: CStr(Cells(cr, 9).Value) Loop '社員氏名・社員番号が入力されているセルを選択する Range(Cells(17, 2), Cells(cr - 1, 2)).Select 'セルデータをコピーする Selection.Copy '一番左(作成中)のシートを選択する Worksheets(1).Select '貼りつけるエリアを選択する Range(Cells(9, 9), Cells(cr + 7, 9)).Select 'コピーしたセルデータを貼り付ける ActiveSheet.Paste ```
回答: 質問に書かれたコードの最初の部分で、定義も値も不明なCountが使われています。 もしもCountが初期化されていない変数であれば、"インデックスがありません"というエラーが発生します。 ``` '一番右のセルを選択する Worksheets(Count).Select ``` この部分は、以下のように書かれるべきかと思われます。 Worksheets.Countで、ワークシートの総数(何枚有るか)が得られます。 それをWorksheetsのインデックスに使うと、最後(一番右)のワークシートが得られます。 ``` '一番右のセルを選択する Worksheets(Worksheets.Count).Select ```