Инкремент индекса строки каждые 5 строк

Question

Я хочу написать функцию для получения значений из CutomersSupport Лист и индекс индекса строки каждые 5 строк

Какую функцию я могу использовать здесь?

Answer 1

Альтернативой является рисование формул непосредственно на листе с помощью короткого макроса:

Sub formulaPainter()
    Dim rng As Range, arr, nStart As Long, nEnd As Long, i As Long
    Dim s As String, j As Long
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    Set rng = Range("B9")
    s = "=CustomersSupport!"
    nStart = 6
    nEnd = 120
    arr = Array("L", "O", "R", "U", "X")
    j = 1

    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    For i = nStart To nEnd
        For Each a In arr
            rng.Offset(j - 1, 0).Formula = s & a & i
            j = j + 1
        Next a
    Next i
End Sub

В этом случае:

1. rng - начальное местоположение для набора формул
2. nStart - начальный номер
3. nEnd - конечный номер
4. обр определяет набор столбцов

Answer 2

Поместите это в ячейку и заполните.

=INDEX(CustomersSupport!A:X, INT((ROW(1:1)-1)/5)+6, MOD((ROW(1:1)-1)*3, 15)+12)

Функции и математика можно проверить, поместив следующую строку в верхнюю часть неиспользуемой колонки и заполнив ее.

=ADDRESS(INT((ROW(1:1)-1)/5)+6, MOD((ROW(1:1)-1)*3, 15)+12, 4, 1, "CustomersSupport")