2

Мне нужно поместить ту же формулу Excel в Excel, чтобы она следовала в последовательности. Таким образом, sheet 1 должен иметь ='Booking Sheet'!F1 затем лист 2 ='Booking Sheet'!F2 и так далее.

Есть ли способ, которым я могу сделать это, не вводя его на каждом листе отдельно, так как есть 40 листов, и я должен сделать это примерно с 75 ячейками на каждом листе.

Мне сказали удерживать нажатой кнопку Ctrl , выделить все листы и набрать их, но они не соответствуют последовательности.

1 ответ1

2

Вы можете использовать этот макрос. Он будет проходить через все листы с названием « delivery и помещать в A1 формулу, которая будет иметь различное число F для каждой доставки. Так

Доставка листа Delivery 1 A1 будет иметь формулу ='Booking Sheet'F1

Доставка листа Delivery 2 A1 будет иметь формулу = Booking Sheet'F2

и так далее

Sub EnterFormulas()

    Dim ws As Worksheet
    For Each ws In Sheets
        If InStr(1, ws.Name, "Delivery", vbTextCompare) Then
            ws.Range("A1").Formula = "='Booking Sheet'!F" & Split(ws.Name, Chr(32))(1)
        End If
    Next

End Sub

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .