Excel VBA：如何按规则切换活动单元格实现多列数据录入？

你遇到的问题核心在于用ActiveCell来跟踪录入位置太不可靠了——ActiveCell会随着用户的操作随意变化，比如用户不小心点了其他单元格，下次偏移就会从错误的位置开始，自然会跳到T2、U2这种奇怪的地方。咱们换个更靠谱的方式：用一个模块级变量来固定跟踪当前的起始列位置，这样每次录入都能精准定位到目标区域。

修改步骤如下： #

1. 添加模块级变量：在你的用户窗体代码模块的最顶部（所有Sub之外），声明一个变量来记录当前录入的起始列：

Private currentStartCol As Integer ' 跟踪当前录入的起始列，B列对应数字2，F列是6，以此类推

2. 初始化起始列：在用户窗体的初始化事件里，设置首次录入的起始列是2（对应B列）：

Private Sub UserForm_Initialize()
    currentStartCol = 2 ' 首次从B列开始录入
End Sub

3. 修改数据录入的列引用：把你原来代码中固定的列号（2、3、4），改成基于currentStartCol的动态引用，这样每次都会从当前起始列开始填充3列（对应B/C/D、F/G/H这类区域）：

Private Sub CommandButton1_Click()
    Dim p As Long
    Dim j As Integer
    Dim erow As Long
    Dim b As Integer
    ' 确保number变量已正确定义并赋值（对应动态创建的文本框数量）
    
    For p = 2 To number + 1
        ' 从currentStartCol开始，依次填充3列数据
        Cells(p, currentStartCol) = Controls("txtBox" & p - 1).Text
        Cells(p, currentStartCol + 1) = Controls("txtBox" & p + number - 1).Text
        Cells(p, currentStartCol + 2) = Controls("txtBox" & p + number + number - 1).Text
    Next p

    Call resetForm
    
    ' 更新起始列，下次录入偏移4列（B→F是+4，F→J也是+4，以此类推）
    currentStartCol = currentStartCol + 4
End Sub

4. 删掉无用的ActiveCell代码：把原来的ActiveCell.Offset(0, 4).Select删掉，现在咱们靠变量跟踪位置，不需要再选单元格了，这样也避免了因用户操作导致的位置错乱。

为什么这个方法有效？ #

模块级变量currentStartCol会一直保存当前的起始列值，除非窗体关闭或者Excel重启。每次录入完成后，我们把它加4，这样下次就会自动跳到下一个4列偏移的区域（B1-D4 → F1-H4 → J1-L4...），完全符合你的需求，而且不会受用户点击其他单元格的影响。

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