请教老师，怎样通过VBA按要求自动填入编号，谢谢

静坐123

麻烦老师，通过VBA在表中编号列（J列）填入各组的编号，要求：
1、各组人员固定
2、编号按O列的编号(组别可能更多，但编号数与左边I列组别数一样）
3、在J列任意一组输入一个编号，然后按编号顺序先向下输入各组编号，向下输入完成至最膈一组后，再从上面第一组向下输入，如表中第5组输入编号634002，则向下输入643003   643004   643005至第8组，则个编号643006则在第1组输入
    请教各位老师，这个通过VBA怎样才可以实现呢，谢谢

静坐123

麻烦各位老师帮帮忙，急用，先谢谢了

逍遥爱迪生

可以添加一个功能，双击自动输入一个新数字

笨鸟飞不高

笨鸟飞不高

titi012

参与一下......

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     R = Cells(Rows.Count, 15).End(xlUp).Row
   
3.     With Target
   
4.         If .Count > 1 Or .Column <> 10 Or .Row < 4 Or .Row > R Then Exit Sub
   
5.         Arr = Range("j4:o" & R)
   
6.         For i = 1 To UBound(Arr)
   
7.             If Arr(i, 6) Like .Value Then
   
8.                 For j = 0 To UBound(Arr) - 2
   
9.                     Arr((j + .Row - 3) Mod (R - 3) + 1, 1) = Arr((j + i) Mod (R - 3) + 1, 6)
   
10.                 Next
    
11.                 Range("j4:o" & R) = Arr
    
12.                 Exit For
    
13.             End If
    
14.         Next
    
15.     End With
    
16. End Sub

复制代码

静坐123

titi012 发表于 2024-7-2 16:31
参与一下......

谢谢老师！辛苦了