用VBA在一个指定的EXCEL表中，从第二个sheet开始，在每一个sheet的H列的第三行开始，依次计算G列（第三行-第二行）/第二行*100、（第四行-第三行）/第三行*100...依次类推

好的，这个问题需要用到 VBA 的循环语句和 Excel 的对象模型，可以按照以下步骤实现：

1. 打开指定的 Excel 文件，可以使用 Workbooks.Open 方法，例如：

Dim workbook As Workbook
Set workbook = Workbooks.Open("文件路径")

2. 循环遍历每一个 sheet，从第二个 sheet 开始，可以使用 For 循环和 Worksheets 属性，例如：

Dim sheet As Worksheet
For i = 2 To workbook.Worksheets.Count
    Set sheet = workbook.Worksheets(i)
    ' 这里可以编写计算代码
Next i

3. 在每个 sheet 中，从 H 列第三行开始计算并填入公式结果，可以使用 Range 和 Formula 属性，例如：

Dim row As Integer
For row = 3 To sheet.Cells(Rows.Count, "H").End(xlUp).Row
    sheet.Cells(row, "H").Formula = "=(H" & row & "-H" & row - 1 & ")/H" & row - 1 & "*100"
Next row

4. 最后关闭 Excel 文件并释放对象，可以使用 Close 和 Set 语句，例如：

workbook.Close SaveChanges:=True
Set workbook = Nothing

完整代码示例：

Sub CalculatePercentage()
    Dim workbook As Workbook
    Set workbook = Workbooks.Open("文件路径")
    
    Dim sheet As Worksheet
    Dim row As Integer
    For i = 2 To workbook.Worksheets.Count
        Set sheet = workbook.Worksheets(i)
        For row = 3 To sheet.Cells(Rows.Count, "H").End(xlUp).Row
            sheet.Cells(row, "H").Formula = "=(H" & row & "-H" & row - 1 & ")/H" & row - 1 & "*100"
        Next row
    Next i
    
    workbook.Close SaveChanges:=True
    Set workbook = Nothing
End Sub