每5行增加行索引

Question

我想编写函数来从CutomersSupport Sheet获取值并每5行增加行索引

我可以在这里使用什么功能？

Answer 1

将它放在一个单元格中并填写。

=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")

Answer 2

另一种方法是使用短宏将公式直接绘制到工作表中：

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. arr 定义了一组列