求大神赐教，如何解决抓取行里的数据，匹配再计算

技不如人啊 · 发表于 2019-1-23 20:24

本帖最后由技不如人啊于 2019-1-23 20:33 编辑

我在计算界面输入特定的内容，自动匹配行里的内容，然后计算
具体可见附件

附件有两个界面，分别是计算界面和数据界面

数据界面有6行内容，三大类物品的具体项目和它的价格

我在计算界面指定位置输入三大类物品的具体项目，则公式匹配自动计算出总价

不知道为什么 · 发表于 2019-1-23 20:28

应该把你的附件详细的说明下

技不如人啊 · 发表于 2019-1-23 20:33

不知道为什么发表于 2019-1-23 20:28
应该把你的附件详细的说明下

嗯嗯已完善

ww87725244 · 发表于 2019-1-23 20:39

计算界面A2单元格：=SUM(IFERROR((数据!$B$1:$E$8=计算!A$1)*数据!$B$2:$E$9,0))
然后右拉
求和就一个SUM函数

技不如人啊 · 发表于 2019-1-23 20:40

ww87725244 发表于 2019-1-23 20:39
计算界面A2单元格：=SUM(IFERROR((数据!$B$1:$E$8=计算!A$1)*数据!$B$2:$E$9,0))
然后右拉
求和就一个SUM ...

谢谢哈，
不过要用VBA写后期这样的数据会很多
可能就有许多行，每一行中的数据也会有很多种数据是在不断维护增加的

我想用数组写，但是不知道怎么实现

ww87725244 · 发表于 2019-1-23 21:18

Sub aa()
Dim ar, i&, ar1, k&, m&, s#
With Sheet2
ar1 = .Range(.Cells(1, 1), .Cells(1, .Columns.Count).End(xlToLeft))
End With
With Sheet1
ar = .UsedRange
For k = 1 To UBound(ar1, 2)
For i = 1 To UBound(ar, 1) - 1
For m = 1 To UBound(ar, 2)
If ar1(1, k) = ar(i, m) Then
s = s + ar(i + 1, m)
End If
Next
Next
Next
End With
Sheet2.[a6] = s
End Sub

复制代码

技不如人啊 · 发表于 2019-3-6 20:15

ww87725244 发表于 2019-1-23 21:18

啊啊啊啊我竟然现在才看到，我后来用了for 费了很大力气才搞定

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

[求助] 求大神赐教，如何解决抓取行里的数据，匹配再计算

评分

最新热点 /1