多条件定位

wuailantian · 发表于 2024-1-15 11:33

请路过的大神帮忙看看

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

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

yanglinzi · 发表于 2024-1-15 11:54

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

ykcbf1100 · 发表于 2024-1-15 12:02

参与一下。。。

Sub ykcbf() '//2024.1.15
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim arr, brr, d
Set d = CreateObject("Scripting.Dictionary")
Set d1 = CreateObject("Scripting.Dictionary")
p = ThisWorkbook.Path & ""
f = p & "\数据源.xlsx"
Set wb = Workbooks.Open(f, 0)
With wb.Sheets("应收应付试用版")
arr = .UsedRange
wb.Close False
End With
For i = 3 To UBound(arr)
If arr(i, 1) <> Empty Then
If InStr(arr(i, 4), "主营业务增值税") Then
s = arr(i, 1) & "|" & arr(i, 3)
d(s) = arr(i, 6)
d1(s) = arr(i, 7)
End If
End If
Next
With Sheets("主营业务利润表")
arr = .[a3:f14]
For i = 1 To UBound(arr)
s = arr(i, 1) & "|" & "艺龙"
arr(i, 5) = d(s)
arr(i, 6) = arr(i, 2) + arr(i, 3) + arr(i, 4) + arr(i, 5)
Next
.[a3:f14] = arr
arr = .[a20:h31]
For i = 1 To UBound(arr)
s = arr(i, 1) & "|" & "大辉"
arr(i, 5) = d1(s)
arr(i, 6) = arr(i, 2) + arr(i, 3) + arr(i, 4) + arr(i, 5)
arr(i, 8) = arr(i, 6) + arr(i, 7)
Next
.[a20:h31] = arr
End With
Application.ScreenUpdating = True
MsgBox "OK！"
End Sub

复制代码

ykcbf1100 · 发表于 2024-1-15 12:03

做好第1个表。

wuailantian · 发表于 2024-1-15 12:03

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

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

wuailantian · 发表于 2024-1-15 12:05

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

谢谢大神嗷

ykcbf1100 · 发表于 2024-1-15 12:11

二个表都做好了。

wuailantian · 发表于 2024-1-16 14:58

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

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

		自动登录	找回密码
密码			免费注册

[求助] 多条件定位

评分

评分