[已解决]请教如何自动求该产品这次价格和上次价格的差

sengoku0924

比如
2021-6-1   A产品   1.3元   

2021-6-2   B产品   1.1元
2021-6-4   A产品   1.5元   +2  
2021-6-5   C产品   1.0元
2021-6-6   A产品   1.4元   -1
2021-6-7   C产品   0.9元   -1
2021-6-8   B产品   1.2元   +1

第四列为VBA自动计算。请问这样的结构可以实现吗

最佳答案

月排行榜 / 总排行榜

cutecpu

2021-6-2 15:16

sengoku0924 发表于 2021-6-2 15:05
您好，已上传，求赐教。

Sub demo()
   '[e2:e1000].ClearContents
   Set d = CreateObject("Scripting.Dictionary")
   a = Sheets(1).UsedRange
   For i = 2 To UBound(a)
      If d.exists(a(i, 2)) Then a(i, 5) = a(i, 3) - d(a(i, 2))
      d(a(i, 2)) = a(i, 3)
   Next
   [a1].Resize(UBound(a), UBound(a, 2)) = a
End Sub

祝順心，南無阿彌陀佛！

跳转到最佳答案楼层

cutecpu

您好，要不要上傳個附件呢！

sengoku0924

cutecpu 发表于 2021-6-2 13:48
您好，要不要上傳個附件呢！

您好，已上传，求赐教。

cutecpu

sengoku0924 发表于 2021-6-2 15:05
您好，已上传，求赐教。

Sub demo()
   '[e2:e1000].ClearContents
   Set d = CreateObject("Scripting.Dictionary")
   a = Sheets(1).UsedRange
   For i = 2 To UBound(a)
      If d.exists(a(i, 2)) Then a(i, 5) = a(i, 3) - d(a(i, 2))
      d(a(i, 2)) = a(i, 3)
   Next
   [a1].Resize(UBound(a), UBound(a, 2)) = a
End Sub

祝順心，南無阿彌陀佛！

sengoku0924

cutecpu 发表于 2021-6-2 15:16
Sub demo()
   '[e2:e1000].ClearContents
   Set d = CreateObject("Scripting.Dictionary")

非常感谢，学习到很多，多谢赐教

sengoku0924

cutecpu 发表于 2021-6-2 15:16
Sub demo()
   '[e2:e1000].ClearContents
   Set d = CreateObject("Scripting.Dictionary")

您好，如果加上一列：上回报价日期 ，VBA应该怎么修改呢？

yyy423827

cutecpu 发表于 2021-6-2 15:16
Sub demo()
   '[e2:e1000].ClearContents
   Set d = CreateObject("Scripting.Dictionary")

学习了

sengoku0924

cutecpu 发表于 2021-6-2 15:16
Sub demo()
   '[e2:e1000].ClearContents
   Set d = CreateObject("Scripting.Dictionary")

大师，早呀，能帮我解决一下六楼的问题吗。

cutecpu

sengoku0924 发表于 2021-6-3 08:31
大师，早呀，能帮我解决一下六楼的问题吗。

您好，上回報價放在F列嗎

sengoku0924

cutecpu 发表于 2021-6-3 09:57
您好，上回報價放在F列嗎

您好，是的，上回报价日期从A列导出放在F列。