如何用vba计算一列数？

348512314

数据如图所示。
第一列中的每个ID有不同的对应年份（年份在第二列），第三列是该ID对应年份的一个数据，现在要从第四列计算一个数据。
要计算的第四列数据等于 每个ID的第一个年份的数据等于第三列的数，下一年度的数据为上一年度的数据乘以0.9（或0.8 最好能设置成变量）加上当年第三列的数。

以ID中的9为例，要计算的第四列，2009年为18124.08，2010年为18124.08*0.9+21494，2011年继续如此滚动，如何使用VBA实现第四列全部数据的计算？求问各位大神，文件在附件中

清风竹-

Sub 计算数据()
m = [a65536].End(3).Row
arr = Range("a1:d" & m)
cs = InputBox("输入参数。", "参数", "0.9")
ReDim brr(1 To m, 1 To 1)
    For i = 2 To m
        If arr(i, 1) <> arr(i - 1, 1) Then
           brr(i - 1, 1) = arr(i, 3)
        Else
           brr(i - 1, 1) = arr(i - 1, 3) * cs + arr(i, 3)
        End If
    Next
[d2].Resize(m - 1, 1) = brr
End Sub

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr, zrr()
   
4.   With Worksheets("sheet1")
   
5.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
6.     .Range("d2:d" & r).ClearContents
   
7.     arr = .Range("a2:d" & r)
   
8.     xm = ""
   
9.     For i = 1 To UBound(arr)
   
10.       If arr(i, 1) <> xm Then
    
11.         m = m + 1
    
12.         ReDim Preserve zrr(1 To 2, 1 To m)
    
13.         zrr(1, m) = i
    
14.         zrr(2, m) = i
    
15.         xm = arr(i, 1)
    
16.       Else
    
17.         zrr(2, m) = i
    
18.       End If
    
19.     Next
    
20.     For k = 1 To UBound(zrr, 2)
    
21.       For i = zrr(1, k) To zrr(2, k)
    
22.         If i = zrr(1, k) Then
    
23.           arr(i, 4) = arr(i, 3)
    
24.         Else
    
25.           arr(i, 4) = arr(i - 1, 4) * 0.9 + arr(i, 3)
    
26.         End If
    
27.       Next
    
28.     Next
    
29.     .Range("a2").Resize(UBound(arr), UBound(arr, 2)) = arr
    
30.   End With
    
31. End Sub
    

复制代码

chxw68

详见附件。

山菊花

用公式也很好。
E2输入系数0.9。
D2=IF(MATCH(A2,A:A,)=ROW(),0,D1*E$2)+C2

348512314

chxw68 发表于 2019-1-18 21:40

谢谢您的帮助

348512314

清风竹- 发表于 2019-1-18 21:38
Sub 计算数据()
m = [a65536].End(3).Row
arr = Range("a1:d" & m)

谢谢您的帮助

不知道为什么

348512314 发表于 2019-1-18 22:36
谢谢您的帮助

这道题总感觉楼主你没有把逻辑说清晰，按你的题意感觉会有2种理解，譬如：第6行：
1、用第5行得出的结果*0.9+第6行的值 （褚老师的结果）

2、第5行的值*0.9+第6行的值    （我的结果）

所以这两种思路得出的结果是截然不一样的。

不知道楼主到底是什么样的逻辑？

第二， 你的附件是id 和 year 都排序好的，如果是无序的状况？（我的可以乱序）

凑个热闹，参与下。呵呵

结果如图：