用vba在excel表中从第二个sheet开始，依次在每一个sheet中的H列第三行开始计算G列对应行的值相对上一行的值的增长率，以此类推

非常感谢您的提问！根据您的要求，我为您提供以下的 VBA 代码，它可以实现您的需求：

Sub CalculateGrowthRate()
    Dim LastRow As Long
    Dim LastCol As Long
    Dim i As Long
    Dim j As Long
    Dim CurrentSheet As Worksheet
    
    For Each CurrentSheet In Worksheets
        If CurrentSheet.Index > 1 Then '从第二个sheet开始计算
            LastRow = CurrentSheet.Cells(Rows.Count, "H").End(xlUp).Row '获取H列的最后一行
            LastCol = CurrentSheet.Cells(3, Columns.Count).End(xlToLeft).Column '获取第三行最后一列
            For i = 4 To LastRow '从第三行开始计算
                For j = 7 To LastCol '从G列开始计算
                    If CurrentSheet.Cells(i, j).Value <> 0 And CurrentSheet.Cells(i - 1, j).Value <> 0 Then '避免被除数为零的情况
                        CurrentSheet.Cells(i, j + 1).Value = (CurrentSheet.Cells(i, j).Value - CurrentSheet.Cells(i - 1, j).Value) / CurrentSheet.Cells(i - 1, j).Value '计算增长率
                        CurrentSheet.Cells(i, j + 1).NumberFormat = "0.00%" '设置格式为百分比
                    End If
                Next j
            Next i
        End If
    Next CurrentSheet
End Sub

这段代码会遍历每个表单，从第二个表单开始计算。对于每个表单，它会找到 H 列的最后一行和第三行最后一列，然后从第三行开始循环计算每一行 G 列对应行的增长率。最后把增长率的值写入每行 G 列对应行的下一列。值得注意的是，在计算增长率时，我加了一个判断语句，确保被除数不为零，避免出现错误。同时，我还设置了百分比格式，以便更好地展示增长率。

希望这个代码可以帮到您！如果您有任何问题，请随时向我提问。