根据个性化需求自动生成文书编号

苏阳湖wzy

论坛的各位老师，我今天求助的问题是：
表格A1:K，B列为单位名称，J列为文书编号，N3单元格为文书起始编号，每个单位行数不固定，每个单位只有1个文书编号，文书编号只要生成在B列单位首次出现的J列单元格，根据N3单元格的文书起始编号，自动生成J列的文书编号。详情请见附件，谢谢！

不知道为什么

如图  参考。。。。。。。。。。。。。

不知道为什么

1. Sub test()
   
2.     Dim arr, brr, i%, s%, j%
   
3.     With Sheets("sheet1")
   
4.         s = .[n3].Value
   
5.         arr = .[b2].Resize(.[b2].End(xlDown).Row - 1)
   
6.         .[j1].Resize(UBound(arr)).Offset(1).ClearContents
   
7.         ReDim brr(1 To UBound(arr), 1 To 1)
   
8.         brr(1, 1) = s
   
9.         For i = 1 To UBound(arr) - 1
   
10.             If arr(i, 1) <> arr(i + 1, 1) Then
    
11.                 j = j + 1
    
12.                 brr(i + 1, 1) = s + j
    
13.             End If
    
14.         Next i
    
15.         .[j2].Resize(UBound(arr)) = brr
    
16.     End With
    
17. End Sub

复制代码

不知道为什么

附件。。。。。

sxbjzjf110

gwjkkkkk

Sub test1()
  Dim ar, br, iNum, i&
  With Range("A1").CurrentRegion.Columns(1)
      ar = Intersect(.Offset(), .Offset(1))
  End With
  iNum = Cells(3, "N").Value
  ReDim br(1 To UBound(ar), 0)
  br(1, 0) = iNum
  For i = 2 To UBound(ar)
    If ar(i, 1) <> ar(i - 1, 1) Then
        p = i
        iNum = iNum + 1
        br(p, 0) = iNum
    End If
  Next
  Range("j2").Resize(UBound(br) - 1) = br
End Sub
参与一下。。。

lizhipei78

就单一个编号，需要动用VBA？？？？
J2单元格输入公式=IF(B2=B1,"",COUNTA(UNIQUE(B$1:B2))+2001)

selen

以下是一个 VBA 子过程，可以根据给定的文书起始编号，在 B 列中查找单位名称并在对应的 J 列单元格中生成文书编号。

Sub GenerateDocNumbers()
    Dim ws As Worksheet
    Dim lastRow As Long, i As Long
    Dim unitName As String, docNumber As String
    Dim startNum As Long
   
    ' 获取当前活动工作表
    Set ws = ActiveSheet
   
    ' 获取最后一行的行号
    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
   
    ' 获取文书起始编号
    startNum = CLng(ws.Range("N3"))
   
    ' 遍历每一行
    For i = 2 To lastRow
        ' 如果当前行的单位名称和前一行不同，则重新生成文书编号
        If ws.Cells(i, "B").Value <> unitName Then
            unitName = ws.Cells(i, "B").Value
            docNumber = "WS" & Format(startNum, "0000")
            startNum = startNum + 1
        End If
        
        ' 将文书编号写入 J 列
        ws.Cells(i, "J").Value = docNumber
    Next i
End Sub
这个 VBA 子过程首先获取当前活动的工作表，并通过 lastRow 变量获取 B 列中最后一个非空单元格的行号。然后它获取文书起始编号并遍历每一行。对于每一行，如果当前行的单位名称和前一行不同，则重新生成文书编号并将其写入 docNumber 变量中。最后，将 docNumber 写入该行的 J 列单元格。

请记得在运行之前备份您的数据，以确保不会意外地更改或删除任何数据。