（已解决）数据处理的问题

ailvlv · 发表于 2013-4-9 16:23

本帖最后由 ailvlv 于 2013-4-11 15:37 编辑

请大师指导学习，附件中G列是生成的数据，依据是E列和F列的和除以D列的值，如果ABC列数据都一样，那么G列就是ABC列数据都一样的数据行中E列的值加上F列值的和除以D列的值（ABC列数据都一样的话，D列值和E列值是相同的），请高手指导！~~谢谢了

笑着...两年过去 · 发表于 2013-4-9 16:45

G2=IF(COUNTIF(H:H,H2)=1,(E2+F2)/D2,(E2+SUMIF(H:H,H2,F:F))/D2)下拉

ailvlv · 发表于 2013-4-9 20:14

您好，老师，VBA有没有办法实现，因为数据多的话，函数处理起来也确实速度慢

lzyamo3057 · 发表于 2013-4-9 20:20

ailvlv 发表于 2013-4-9 20:14
您好，老师，VBA有没有办法实现，因为数据多的话，函数处理起来也确实速度慢

完全不明白什么叫ABC列都一样，行比较吗？真心看不懂。。

dragonthree · 发表于 2013-4-9 20:39

确实看不懂!

ailvlv · 发表于 2013-4-9 23:31

本帖最后由 ailvlv 于 2013-4-9 23:47 编辑

ABC列数据一样，是行比较，第3行和第4行的ABC列一样正常G列计算就是：=(E2+F2)/D2，如果出现像第3行和第4行的ABC列一样都是2,10,101,就需要g3=(e3+f3+f4)/d3,g4=(e4+f3+f4)/d4

lzyamo3057 · 发表于 2013-4-9 23:38

ailvlv 发表于 2013-4-9 23:31
ABC列数据一样，是行比较，第3行和第4行的ABC列一样

还是不能理解。按我的想法，弄一个试试吧。

lzyamo3057 · 发表于 2013-4-9 23:46

本帖最后由 lzyamo3057 于 2013-4-9 23:48 编辑

Sub test()
Dim arr, d, i
Set d = CreateObject("scripting.dictionary")
arr = Range("a1").CurrentRegion
For i = 2 To UBound(arr)
s = arr(i, 1) & arr(i, 2) & arr(i, 3)
d(s) = d(s) + 1
Next
For i = 2 To UBound(arr)
s = arr(i, 1) & arr(i, 2) & arr(i, 3)
If d(s) > 1 Then
arr(i, 7) = (arr(i, 5) + 3) / arr(i, 4)
Else
arr(i, 7) = (arr(i, 5) + arr(i, 6)) / arr(i, 4)
End If
Next
Range("a1").Resize(UBound(arr), UBound(arr, 2)) = arr
Set d = Nothing
End Sub

复制代码

lzyamo3057 · 发表于 2013-4-9 23:49

请测试。。。。

lzyamo3057 · 发表于 2013-4-9 23:51

ailvlv 发表于 2013-4-9 23:31
ABC列数据一样，是行比较，第3行和第4行的ABC列一样正常G列计算就是：=(E2+F2)/D2，如果出现像第3行和第4行 ...

是指相邻的两行，还是指只要下边有出现这三列相同的呢？

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

[已解决] （已解决）数据处理的问题