根据不同表中条件判断内容 并输出至其他表

Excel白中白

在表格”9月账“中，通过sheet”公司帐“与”银行账“中金额列的对比，将不同的行内容输出到”差异“表中

于箱长

干你这个活，能换一份解放碑的酸辣粉不？

yuhan4488

不知道对不对

1. Sub del()
   
2.   Dim arr, brr, i, j, m, k
   
3.   arr = Sheet1.[A1].CurrentRegion
   
4.   brr = Sheet2.[A1].CurrentRegion
   
5.     For i = 1 To UBound(arr)
   
6.     For j = 1 To UBound(brr)
   
7.       If arr(i, 6) = brr(j, 4) Then Exit For
   
8.       Next
   
9.       If j = UBound(brr) + 1 Then
   
10.       m = m + 1
    
11.       For k = 1 To UBound(arr, 2)
    
12.         arr(m, k) = arr(i, k)
    
13.       Next
    
14.     End If
    
15.   Next
    
16.   Sheet3.UsedRange.NumberFormatLocal = "@"
    
17.   Sheet3.[A1].Resize(m, UBound(arr, 2)) = arr
    
18. End Sub

复制代码

Excel白中白

于箱长 发表于 2021-10-25 19:28
干你这个活，能换一份解放碑的酸辣粉不？

我请你吃解放碑火锅都行

于箱长

Excel白中白 发表于 2021-10-26 08:45
我请你吃解放碑火锅都行

重庆的火锅遍地都是，满城火锅香气
回到正题：如果遇到金额重复的咋整，例如公司账里有10个1350，银行账里有9个1350，要求必须一一对应吗？还是只要提出来1个1350就行呢

Excel白中白

于箱长 发表于 2021-10-26 08:49
重庆的火锅遍地都是，满城火锅香气
回到正题：如果遇到金额重复的咋整，例如公司账里有10个1350，银行账 ...

谢谢大哥的帮助思索了，我换了个思路，把筛选条件减少了，自己再试试写一个哈哈不懂时候我还要求助了