sjaserds
@sjaserds
Студент

Как в excel брать данные с листов не зная их имен?

Всем привет. У меня есть таблица и в ней есть листы. Вот мне нужно брать данные из 1 ячейки но при этом со всех листов начиная с 4 по счету листа. Это нужно для того чтобы в дальнейшем при добавлении нового листа не переписывать формулу. Заранее спасибо за развернутый ответ)
  • Вопрос задан
  • 56 просмотров
Решения вопроса 1
BasiC2k
@BasiC2k
Вашу задачу гораздо проще решить на VBA.
После добавления нового листа запускаете макрос он обновит формулу.

Public Sub Test()
Dim i As Integer, sFormula As String

sFormula = "="
For i = 1 To ThisWorkbook.Sheets.Count
    If i >= 4 Then
        sFormula = sFormula & "'" & ThisWorkbook.Sheets(i).Name & "'!R2C2+"
    End If
Next

If sFormula <> "=" Then
    sFormula = Left(sFormula, Len(sFormula) - 1)
    ThisWorkbook.Sheets(1).Range("A1").FormulaR1C1 = sFormula
End If

End Sub


Как выглядит Ваша формула - можно посмотреть при запуске макрорекордера.
Ответ написан
Пригласить эксперта
Ответы на вопрос 1
HemulGM
@HemulGM
Delphi Developer, сис. админ
Список листов можно получить
Ответ написан
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы