使用VBA一键实现单元格公式递加

Question

单元格A1=C1,B1=D1,如何使用VBA一键实现单元格自动跳转为A1=C2,B1=D2？

Answer 1

引自免费微信小程序：皆我百晓生

要使用VBA在Excel中实现单元格公式的递增，你需要编写一段宏代码。首先，确保你已经启用了开发者工具并了解基本的VBA语法。以下是详细的步骤：

1. 按Alt + F11打开Visual Basic for Applications (VBA) 编辑器。
2. 在左侧的项目浏览器中，选择"插入" -> "模块"，这将在当前工作簿中添加一个新模块。
3. 然后，在新模块的代码窗口中，粘贴以下代码：

Sub IncrementFormulas()
    Dim rng As Range
    Set rng = Application.Selection ' 如果你想针对选定区域操作
    ' 或者可以改为 Set rng = Range("A1:B1")  如果你想固定对A1:B1操作
    
    With rng
        .Offset(0, 1).Formula = .Offset(0, 1).Formula
        .Formula = .Offset(0, 1).Offset(-1, -1).Formula
    End With

End Sub

1. 按Ctrl + S保存更改，然后关闭VBA编辑器。
2. 返回到Excel界面，选中你想要递增的单元格（例如，A1和B1），然后按下快捷键 Alt + F8 打开“宏”对话框。
3. 在宏列表中找到你刚刚创建的宏 "IncrementFormulas"，点击它，然后点击“运行”。这将使你的公式向右移动一位，并将上一行的公式复制到当前位置。

注意：这个宏会按照你选择的范围进行操作。如果你只想针对A1和B1，那么你应该手动选择这两个单元格。如果你想让宏适用于其他区域，只需调整第二步中的 Set rng 行。

这个宏的作用是将当前选中区域右侧的单元格的公式复制到当前单元格，同时将当前单元格的公式向下移动一位。这样就可以实现公式的逐行递增。