如何自动生成下一个序号

msw2395

首行如何自动生成下一个序号？比如在序号104后面3列(R-T列)部分单元格内容填充后，自动在U列首行生成下一个序号105。麻烦老师们解答一下，谢谢!!

quqiyuan

写了个工作表事件，仅供参考，。。
在工作表上修改内容，就可以写入了

quqiyuan

代码如下。。。
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    With Me
        c = .Cells(1, Columns.Count).End(1).Column
        If Target.Column > c And Target.Row > 1 Then
            arr = .[a1].Resize(, c)
            s = .Cells(1, c)
            brr = .UsedRange
            For i = 2 To UBound(brr)
                For j = c + 1 To UBound(brr, 2) Step 3
                    For k = 0 To 2
                        If j + k <= UBound(brr, 2) Then
                            If brr(i, j + k) <> Empty Then
                                .Cells(1, c + 4) = s + 1
                                Exit For
                            End If
                        End If
                    Next
                Next
            Next
        End If
    End With
    Application.EnableEvents = True
    Beep
End Sub
   

msw2395

quqiyuan 发表于 2024-10-22 20:38
代码如下。。。
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents =  ...

非常感谢quqiyuan老师的解答