excel - 第一行和最后一行，然后是从年初到年底的值

Question

我有一个包含 AZ 组的电子表格，对于每个组，我都有一个月中每一天的库存量 Excel_Spreadsheet对于每个组，我需要计算（开始率 - 结束率）。我能够按组将其分开，但我的代码只带来了最后一只股票。有人可以帮助我吗？

Sub Tickets()

   Dim LastRow As Long
   Dim ColumnA As String
   Dim summaryColumA As String
   Dim Start_end_Stock As Double


   summaryColumA = 2
   Range("h1").Value = "Ticker"
   Range("I1").Value = "Yearly Change"
   Start_end_Stock = 0



        With ActiveSheet

            LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
         End With

    For i = 2 To LastRow

             If Cells(i + 1, 1).Value <> Cells(i, 1).Value Then
             ColumnA = Cells(i, 1).Value


                 Start_end_Stock = Start_end_Stock + Cells(i, 3).Value
                 Range("h" & summaryColumA).Value = ColumnA
                 Range("i" & summaryColumA).Value = Start_end_Stock

                 summaryColumA = summaryColumA + 1
                 Start_end_Stock = 0


        Else


        End If
    Next i

End Sub

标签： excelvbaloopsfor-loop