0

現在、約 100 シート以上のワークブックがあります。それで、目次マクロから作成されたマスターシートがあります。マスターシートには、セル E4 から E116 までのシリアル番号のリストがあります。

今私がやりたいのは、私が持っているシリアル番号をマスターシートに入力することです。他の100以上のシートもセルF4のシリアル番号で更新されます. 基本的に 100 枚以上のシートはすべて同じページ形式であるため、シリアル番号は 100 枚以上のシートごとにセル F4 に更新されます。

私はそれを行う以下のコードを持っています。しかし、それはメッセージをポップアップし続けます

実行時エラー 9: 下付き文字が範囲外です

何がどこで間違っていたのかわかりません。誰かが私のためにこれを修正してくれたら感謝します! みんなありがとう！

Sub test9()
   Dim j As Integer
   j = 1

   Sheets("TOC").Select 'TOC is the sheet name of the master sheet
   FinalRow = Range("E119").End(xlUp).Row 

   For i = 4 To FinalRow

       Range("E" & i).Copy Destination:=Sheets("Sheets" & j).Range("F4")
       j = j + 1

   Next i

End Sub
4

1 に答える 1

0

この問題を解決できたと思います。実際、それは非常にばかげています。この線

Range("E" & i).Copy Destination:=Sheets("Sheet" & j).Range("F4")

の'Sheet'代わりです'Sheets'。本当にばかげたエラーがあります。

于 2012-05-31T06:10:17.800 に答える