菜鸟求助-一个财务上科目重分类的问题

662092ww

wanghui834 发表于 2024-11-7 10:25
楼主，你看下这样可以吗！还是用表格函数做的，在sheet2工作表中！

感谢感谢  其实我的问题是分两个步骤的，我感觉用函数是解决不了了

只能VBA了

我在VBA 发了个新问题

Qs18

1. Sub qs()
   
2. Dim arr, i, dic
   
3. Set dic = CreateObject("scripting.dictionary")
   
4. With Sheet1
   
5.     arr = .Range("a3:p" & .Cells(Rows.Count, 2).End(3).Row)
   
6.     ReDim brr(1 To UBound(arr), 1 To 4)
   
7.     For i = 1 To UBound(arr)
   
8.         x = 0
   
9.         s = arr(i, 2) & "|" & arr(i, 7)
   
10.         If Not dic.exists(s) Then
    
11.             m = m + 1
    
12.             dic(s) = m
    
13.             brr(m, 1) = arr(i, 2): brr(m, 2) = arr(i, 7)
    
14.             x = arr(i, 15) - arr(i, 16)
    
15.             If x > 0 Then brr(m, 3) = x Else brr(m, 4) = Abs(x)
    
16.         Else
    
17.             rw = dic(s)
    
18.             brr(rw, 3) = brr(rw, 3) + arr(i, 15): brr(rw, 4) = brr(rw, 4) + arr(i, 16)
    
19.             x = brr(rw, 3) - brr(rw, 4)
    
20.             If x > 0 Then
    
21.                 brr(rw, 3) = x: brr(rw, 4) = 0
    
22.             Else
    
23.                 brr(rw, 4) = Abs(x): brr(rw, 3) = 0
    
24.             End If
    
25.         
    
26.         End If
    
27.    
    
28.     Next i
    
29. .[r3].Resize(m, 4) = brr
    
30. End With
    
31. Set dic = Nothing
    
32. End Sub

复制代码

Qs18

试试........

Qs18

试试..........

662092ww

Qs18 发表于 2024-11-7 12:01
试试..........

感谢感谢

我其实只提了第一步  我新发了一个诉求

https://club.excelhome.net/forum ... amp;_dsign=dd1033dc

nie414006