В настоящее время у меня есть книга, которая содержит около 100 листов. Поэтому у меня есть мастер-лист, созданный из макроса оглавления. На листе мастера есть список серийных номеров от ячеек E4 до E116.Excel макрос, который обновляет другие листы из мастер-листа в рабочей книге
Теперь, что я хочу сделать, это ввести серийные номера, которые у меня есть на основной листе, а остальные 100+ листов также будут обновлены серийным номером в ячейке F4. В основном все 100 + листов имеют одинаковый формат страницы, поэтому серийный номер будет обновляться в ячейку F4 на каждый из 100 листов.
У меня есть код ниже, который делает это. Но он продолжает появляться сообщение
Runtime Ошибка 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
Указывая, где линия разрывов кода будет полезна! –
@marc_s Спасибо за редактирование, я все еще учусь! – user1425241
@ user1425241: рад, что вы решили свою проблему. Btw, добро пожаловать в Stackoverflow. Обратите внимание, что вы можете ответить на собственный вопрос (даже [рекомендуется] (http://meta.stackexchange.com/questions/17463/can-i-answer-my-own-questions-even-those-where-i -ново-ответ-до-спрашивать)) и принять его. Таким образом, вы можете поделиться своими знаниями с сообществом и видом * закрыть вопрос. – JMax