如何下拉返回多行结果的公式并避免结果重叠？

问题核心是CRYPTOFINANCE返回固定行数的结果（比如"2d"参数对应N行），直接下拉公式会导致不同公式的结果行重叠，触发冲突报错。要实现自动适配间隔，可按以下方法操作：

1. 先确定返回行数 #

先单独运行一次公式=CRYPTOFINANCE("KRAKEN:"&'crypto-track'!C4&"/USD", "price_history", "2d")，数清楚它实际返回了多少行数据，记为RESULT_ROWS（比如2天小时线可能是48行）。

2. 非VBA手动适配间隔 #

如果不想用代码，可手动计算公式放置的行号：

• 第一个公式放在A1，对应'crypto-track'!C4
• 第二个公式放在A1+RESULT_ROWS行，对应'crypto-track'!C5
• 第三个公式放在A1+2*RESULT_ROWS行，对应'crypto-track'!C6
  以此类推，确保每个公式的起始行和上一个公式的结果末尾行完全错开。

3. VBA批量自动插入公式（高效方案） #

用VBA可以自动按间隔插入公式，避免手动计算：

Sub InsertCryptoFormulas()
    Dim resultRows As Integer
    resultRows = 48 ' 替换成你实际测试得到的RESULT_ROWS数值
    Dim startRow As Integer
    startRow = 1 ' 公式开始放置的起始行
    Dim cryptoStartColRow As Integer
    cryptoStartColRow = 4 ' 'crypto-track'!C列的起始单元格行号（比如C4就是4）
    Dim totalCount As Integer
    totalCount = 10 ' 需要生成的公式总数，按需调整
    
    For i = 0 To totalCount - 1
        Cells(startRow + i * resultRows, 1).Formula = _
            "=CRYPTOFINANCE(""KRAKEN:""&'crypto-track'!C" & cryptoStartColRow + i & "&""/USD"", ""price_history"", ""2d"")"
    Next i
End Sub

操作步骤：

• 按Alt+F11打开VBA编辑器
• 插入新模块，粘贴上述代码
• 修改代码里的resultRows、startRow、cryptoStartColRow、totalCount参数为你的实际情况
• 运行宏，即可自动在指定行插入间隔好的公式

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