如何根据“客户”名称，按照“明细科目栏”将“凭证库”数据提取至表三列表

海王星123

                       老师好！！                      如何根据“客户”名称，按照“明细科目栏”将“凭证库”数据提取至表三列表？？？？（详见附件）

一指禅62

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Address = "$C$4" Then
   
3.         Dim arr, i&, j%, a(), n%
   
4.         arr = Sheet2.Range("A1").CurrentRegion
   
5.         For i = 2 To UBound(arr)
   
6.             If arr(i, 5) = Target.Value Then
   
7.                 n = n + 1: ReDim Preserve a(1 To UBound(arr, 2), 1 To n)
   
8.                 For j = 1 To UBound(arr, 2)
   
9.                     a(j, n) = arr(i, j)
   
10.                 Next
    
11.             End If
    
12.         Next
    
13.         With Range("A7:K30000")
    
14.             .ClearContents
    
15.             .Borders.LineStyle = xlNone
    
16.         End With
    
17.         If n = 0 Then Exit Sub
    
18.         With Range("A7").Resize(n, UBound(a))
    
19.             .Value = WorksheetFunction.Transpose(a)
    
20.             .Borders.LineStyle = xlContinuous
    
21.         End With
    
22.     End If
    
23. End Sub

复制代码

一指禅62

222222.zip (72.21 KB, 下载次数: 22)

2018-5-18 17:20 上传

点击文件名下载附件

海王星123

谢谢老师！！！有事耽误来晚了！！谢谢您

小饼干910326

我这里运用到 筛选功能，希望对你有帮助，我也在学习中

lrh788

很实用！！！！！