[已解决]用VBA在一个工作簿中汇总相同格式的工作表

南极倒霉熊

您好，请问下面的代码有何问题，用来计算1季度的汇总（i=1 to 3）

Sub TTL()
Dim sh As Worksheet
Dim rg As Range
Dim x, y As Integer
   Set rg = Application.InputBox(prompt:="请选择数据汇总区域", Type:=8)
   rg.ClearContents
     For Each sh In Worksheets
        With Sheets("汇总")
           For i = 1 To 3
            If sh.Name = "i" Then
                For x = rg.Row To rg.Row + rg.Rows.Count - 1
                 For y = rg.Column To rg.Column + rg.Columns.Count - 1
                    .Cells(x, y) = sh.Cells(x, y) + .Cells(x, y)
                 Next
               Next
            End If
           Next
        End With
    Next

End Sub