请求编写VBA代码：将F6公式按每14行间隔复制至F2533

没问题，这就给你写一段能精准解决需求的VBA代码——把F6的公式按14行间隔复制到F2533，操作简单还可靠：

完整代码 #

Sub CopyFormulaWithInterval()
    Dim startRow As Long
    Dim targetRow As Long
    Dim interval As Long
    Dim formulaText As String
    
    ' 配置参数（可以根据需要修改）
    startRow = 6       ' 公式起始单元格F6的行号
    interval = 14      ' 向下复制的间隔行数
    targetRow = 2533   ' 最终要复制到的目标行F2533
    
    ' 获取F6单元格的公式内容
    formulaText = ThisWorkbook.ActiveSheet.Cells(startRow, 6).Formula
    
    ' 循环按间隔复制公式
    Do While startRow <= targetRow
        ThisWorkbook.ActiveSheet.Cells(startRow, 6).Formula = formulaText
        startRow = startRow + interval
    Loop
    
    ' 复制完成后提示
    MsgBox "公式已按要求复制完成！", vbInformation
End Sub

代码说明 #

• 参数配置区：开头的几个变量可以直接修改，比如以后需要调整间隔行数或者目标行，改这里就行，不用动核心逻辑。
• 获取公式：先把F6的公式存到变量里，避免重复读取单元格，提升运行效率。
• 循环复制：用Do While循环从起始行开始，每次加上14行，直到到达或超过F2533为止，确保所有符合间隔要求的单元格都能写入公式。
• 工作表指定：如果你的目标工作表不是当前激活的，把ThisWorkbook.ActiveSheet改成具体的工作表名称，比如ThisWorkbook.Sheets("你的工作表名")，这样更不容易出错。

使用方法 #

• 打开你的Excel文件，按Alt + F11打开VBA编辑器。
• 插入一个新模块：右键点击左侧的工作簿名称 → 插入 → 模块。
• 把上面的代码粘贴到模块里。
• 按F5运行代码，或者回到Excel界面，通过「开发工具」→「宏」来执行这个宏。

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