#エラー
同じブックの一番右のシートからデータをコピーし、一番左のシートに貼り付けるという処理を記述しています。
この処理を実行するとインデックスがありませんと言われてしまうのですがなぜでしょうか?
'一番右のセルを選択する Worksheets(Count).Select 'コピー元データの開始位置を指定する cr = 9: str3 = CStr(Cells(cr, 9).Value) '空セルになるまで繰り返す Do Until str3 = "" '次の行に移動する cr = cr + 1 'セルの値を取得する str3 = 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
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。