数据按类型选取凭证号

wjprogram

原始表格单据编号是顺序显示，同一类别对应不同的单据号，现在需要按类别提取单证编号，相同类别的显示单据编号的起止编号，类别有重复不是唯一，显示结果在结果表格中

木槿花西月锦绣

木槿花西月锦绣

1. Sub aa()
   
2.     Dim ws As Worksheet
   
3.     Dim maxRow As Long
   
4.     Columns("D:F").ClearContents
   
5.     [d1:f1].Value = Array("凭证类别", "凭证号（起）", "凭证号（止）")
   
6.    
   
7.     Set ws = ActiveSheet
   
8.     maxRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
   
9.     Count = 2
   
10.     Cells(Count, 4) = Cells(2, 2)
    
11.     Cells(Count, 5) = Cells(2, 1)
    
12.    
    
13.     For i = 2 To maxRow
    
14.         If Cells(i, 2) <> Cells(i + 1, 2) Then
    
15.             If Cells(i, 2) <> Cells(i + 1, 2) And Cells(i, 2) <> Cells(i - 1, 2) Then
    
16.                 Cells(Count, 6) = ""
    
17.             Else
    
18.                 Cells(Count, 6) = Cells(i, 1)
    
19.             End If
    
20.             Count = Count + 1
    
21.             Cells(Count, 4) = Cells(i + 1, 2)
    
22.             Cells(Count, 5) = Cells(i + 1, 1)
    
23.         End If
    
24.     Next i
    
25. End Sub

复制代码

cnmlgb9998

你怎么这个区发，那个区也发，都是一样的题目，重复发贴！！！！

在函数区都给你解决了！

你怎么这样搞？

木槿花西月锦绣

cnmlgb9998 发表于 2024-6-21 22:01
你怎么这个区发，那个区也发，都是一样的题目，重复发贴！！！！

在函数区都给你解决了！

我也看到了，
楼主不要撒网

mjm04

模拟的结果 错了吧？

=LET(_凭证号,SORT(原始数据!A2:B124,1),_第1列,CHOOSECOLS(_凭证号,1),_第2列,CHOOSECOLS(_凭证号,2),HSTACK(XLOOKUP(A2,_第2列,_第1列),XLOOKUP(A2,_第2列,_第1列,,,-1)))
回车，下拉

wjprogram

感谢各位大神的帮助，因为比较着急所以在别的区也发了，万分抱歉。感谢楼上各位的帮助

wjprogram

感谢各位大神，万分感谢，因为工作比较急在别的区域也发了，万分抱歉。再次感谢大家的热心帮助。