嘿，这个需求我经常碰到，给你两种靠谱的实现方式，不管是用现成的Excel公式还是自定义VBA函数都能轻松搞定～

方案1：用Excel内置工作表函数快速实现 #

最直接的方式是用INDEX函数配合ROW函数来生成每5行递增的行索引，不需要写代码，下拉就能用。

单列取数示例 #

假设你的表头在第1行，要从第2行开始，每隔5行取一次A列的数据，在目标单元格输入以下公式，然后向下拉填充：

=INDEX(CustomersSupport!A:A, 2 + (ROW(A1)-1)*5)

公式拆解：

• ROW(A1)会随着单元格下拉自动变成1、2、3……
• (ROW(A1)-1)*5计算出偏移量：0、5、10……
• 加上起始行号2，就得到了2、7、12……这样每5行递增的目标行索引

如果你的起始行不是2，直接把公式里的2改成你需要的起始行号就行。

整行取数示例 #

如果要一次性取整行的多列数据（比如A到D列），可以把公式改成：

=INDEX(CustomersSupport!A:D, 2 + (ROW(A1)-1)*5, 0)

这里的0表示返回目标行的整列数据，下拉后会自动匹配对应的行。

方案2：用VBA自定义函数实现更灵活的控制 #

如果需要更灵活的逻辑（比如增加数据范围判断、动态调整间隔行数），可以写个自定义VBA函数，封装后调用更方便。

基础版自定义函数 #

打开VBA编辑器（按Alt+F11），插入模块，粘贴以下代码：

Function GetEveryNthRow(sheetName As String, startRow As Integer, colNum As Integer, interval As Integer) As Variant
    ' 参数说明：
    ' sheetName: 目标工作表名称（比如"CustomersSupport"）
    ' startRow: 数据起始行号
    ' colNum: 要获取的列号（A列=1，B列=2，以此类推）
    ' interval: 行递增间隔（这里填5）
    
    ' 计算当前调用的偏移量（基于公式所在行）
    Dim offsetCount As Integer
    offsetCount = Application.Caller.Row - Application.Caller.Parent.Range("A1").Row
    
    ' 计算目标行号
    Dim targetRow As Integer
    targetRow = startRow + offsetCount * interval
    
    ' 判断目标行是否在有效数据范围内
    Dim targetSheet As Worksheet
    Set targetSheet = ThisWorkbook.Sheets(sheetName)
    If targetRow > targetSheet.UsedRange.Rows.Count + targetSheet.UsedRange.Row - 1 Then
        GetEveryNthRow = "无数据"
        Exit Function
    End If
    
    ' 返回目标单元格的值
    GetEveryNthRow = targetSheet.Cells(targetRow, colNum).Value
End Function

调用方式 #

在工作表单元格里输入以下公式，下拉即可：

=GetEveryNthRow("CustomersSupport", 2, 1, 5)

这个函数会自动处理超出数据范围的情况，返回“无数据”提示，避免出现#REF!错误。

内容的提问来源于stack exchange，提问作者Ahmed Afifi