多条件定位

wuailantian

请路过的大神帮忙看看

第一个：
主营业务利润表E3：E14公式：求和区域是应收应付试用版f列；条件区域分别是应收应付试用版a列、应收应付试用版c列、应收应付试用版d列；条件分别为主营业务利润表日期列（A3：A14）、"艺龙"、"主营业务增值税"

第二个：
机械租赁利润表D4：D15公式：求和区域是应收应付试用版f列；条件区域分别是应收应付试用版a列、应收应付试用版c列、应收应付试用版d列；条件分别为主营业务利润表日期列（A4：A15）、"艺龙"、"机械租赁增值税"

yanglinzi

没看明白，你需要的结果，可以模拟出来。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.1.15
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     Dim arr, brr, d
   
5.     Set d = CreateObject("Scripting.Dictionary")
   
6.     Set d1 = CreateObject("Scripting.Dictionary")
   
7.     p = ThisWorkbook.Path & ""
   
8.     f = p & "\数据源.xlsx"
   
9.     Set wb = Workbooks.Open(f, 0)
   
10.     With wb.Sheets("应收应付试用版")
    
11.         arr = .UsedRange
    
12.         wb.Close False
    
13.     End With
    
14.     For i = 3 To UBound(arr)
    
15.         If arr(i, 1) <> Empty Then
    
16.             If InStr(arr(i, 4), "主营业务增值税") Then
    
17.                 s = arr(i, 1) & "|" & arr(i, 3)
    
18.                 d(s) = arr(i, 6)
    
19.                 d1(s) = arr(i, 7)
    
20.             End If
    
21.         End If
    
22.     Next
    
23.     With Sheets("主营业务利润表")
    
24.         arr = .[a3:f14]
    
25.         For i = 1 To UBound(arr)
    
26.             s = arr(i, 1) & "|" & "艺龙"
    
27.             arr(i, 5) = d(s)
    
28.             arr(i, 6) = arr(i, 2) + arr(i, 3) + arr(i, 4) + arr(i, 5)
    
29.         Next
    
30.         .[a3:f14] = arr
    
31.         arr = .[a20:h31]
    
32.         For i = 1 To UBound(arr)
    
33.             s = arr(i, 1) & "|" & "大辉"
    
34.             arr(i, 5) = d1(s)
    
35.             arr(i, 6) = arr(i, 2) + arr(i, 3) + arr(i, 4) + arr(i, 5)
    
36.             arr(i, 8) = arr(i, 6) + arr(i, 7)
    
37.         Next
    
38.         .[a20:h31] = arr
    
39.     End With
    
40.     Application.ScreenUpdating = True
    
41.     MsgBox "OK！"
    
42. End Sub
    
43. 
    

复制代码

ykcbf1100

做好第1个表。

wuailantian

yanglinzi 发表于 2024-1-15 11:54
没看明白，你需要的结果，可以模拟出来。

模拟结果 表格中有的 看图片也可以

wuailantian

ykcbf1100 发表于 2024-1-15 12:03
做好第1个表。

谢谢大神嗷

ykcbf1100

二个表都做好了。

wuailantian

ykcbf1100 发表于 2024-1-15 12:11
二个表都做好了。

代码超级无敌棒 不接受任何反驳