Excel Workbook_Open事件问题：连续数字无法正确写入连续单元格

问题说明 #

我正在制作一个Excel文件，通过Workbook_Open事件实现打开时自动更新：

• 将A100设为计数器，首次打开时值为1，之后每次打开自动递增1
• 要求把计数器值写入第3行从H列开始的连续单元格（例：首次打开H3=1，第二次打开I3=2，以此类推）
  但目前首次打开时，H3及后续目标单元格全部被写入了1，截图显示H3、I3、J3均为1，不符合预期。

现有代码 #

Private Sub Workbook_Open()

Dim i As Integer, lastcol As Long, lastrow As Long, j As Integer

lastrow = Cells(Rows.Count, 2).End(xlUp).Row
lastcol = Cells(2, Columns.Count).End(xlToLeft).Column

Cells(100, 1).Value = Cells(100, 1).Value + 1


For i = 2 To lastrow
    lastcol = Cells(2, Columns.Count).End(xlToLeft).Column
    For j = 8 To 10
    Cells(2, j).Value = Cells(100, 1).Value
    If Cells(2, j + 1).Value = Cells(2, j).Value Then
    Exit For
    End If
    Next j
       
Next i

End Sub

问题分析与修正方案 #

问题根源 #

1. 代码错误操作了第2行（Cells(2, j)），但需求是写入第3行
2. 嵌套循环逻辑混乱：外层遍历行、内层直接给多列赋值相同计数器值，导致所有目标单元格被覆盖为当前计数器值
3. 未定位第3行H列开始的第一个空列，而是直接循环赋值到第10列

修正后的代码 #

Private Sub Workbook_Open()
    Dim counter As Long
    Dim targetCol As Long
    
    ' 初始化/更新计数器：首次打开A100为空则设为1，否则自增1
    If IsEmpty(Cells(100, 1).Value) Then
        counter = 1
        Cells(100, 1).Value = counter
    Else
        counter = Cells(100, 1).Value + 1
        Cells(100, 1).Value = counter
    End If
    
    ' 定位第3行从H列开始的第一个空列
    targetCol = Cells(3, Columns.Count).End(xlToLeft).Column
    ' 若最后一列在H列之前，直接使用H列（第8列）
    If targetCol < 8 Then
        targetCol = 8
    Else
        ' 否则取最后一列的下一列
        targetCol = targetCol + 1
    End If
    
    ' 将计数器值写入目标单元格
    Cells(3, targetCol).Value = counter
End Sub

代码说明 #

• 先处理计数器逻辑，避免首次打开时因A100为空导致错误
• 精准定位第3行H列后的第一个空列，确保每次打开都写入下一个连续单元格
• 移除冗余循环，简化逻辑，避免不必要的遍历操作

内容的提问来源于stack exchange，提问作者Alex K.