Макрос продления диапазона для всех рядов всех диаграмм всех листов в книге

@romann1601 · Регистрация: 22.03.2019

Добрый день!
Есть следующая ситуация:
книга эксель с некоторым количеством листов. на каждом листе несколько (пока 8, но возможно будет больше, и, возможно, не на всех листах одинаковое количество) диаграмм, на каждой диаграмме несколько рядов (количество рядов не одинаковое для всех диаграмм), все ряды ссылаются на диапазоны одинаковой длины, (но разных столбцов)

Необходим макрос, который будет протягивать эти диапазоны до указанной строчки (указывать через inputBox).
Для примера, по быстрому, сделал файл (в настоящем файле у всех листов, диаграмм и рядов есть свои названия)
Спасибо за помощь!

@KoGG · 16.09.2021, 11:13

Visual Basic

Sub УдлинитьСерииДанныхВсехДиаграмм()
    Dim Sh, Ch, Ser, MaxRow&, S$, i%, k%, A
    MaxRow = InputBox("Введите конечную строку")
    For Each Sh In ActiveWorkbook.Sheets
        For Each Ch In Sh.ChartObjects
            For Each Ser In Ch.Chart.FullSeriesCollection
                A = Split(Ser.Formula, ",")
                For i = 1 To UBound(A)
                    k = InStrRev(A(i), "$")
                    If k > 0 Then A(i) = Left(A(i), k) & MaxRow
                Next
                Ser.Formula = Join(A, ",")
            Next
        Next
    Next
End Sub

Опции темы