谁能帮忙翻译一下这段程序每行所表达的释意，谢谢

jaume

Sub 合并()
Dim a, x, i, n, s
Sheets("数据总表").Range("b2:g65536").ClearContents
For x = 1 To Sheets.Count
i = Sheets(x).Name
n = Sheets(i).Range("b65536").End(3).Row
If i <> "数据总表" And n > 1 Then
   s = Sheets("数据总表").Range("b65536").End(3).Row
   Sheets(i).Range("b2:F" & n).Copy Range("b" & s + 1)
   Range("g" & s + 1 & ":g" & s + n - 1) = i
End If
Next
End Sub

iam46

Sub 合并()
Dim a, x, i, n, s
Sheets("数据总表").Range("b2:g65536").ClearContents  '清除当前激活的“数据总表”b2至g65536所有单元格数据
For x = 1 To Sheets.Count   'Sheets.Count返回工作簿中工作表总数。从第一个表开始循环
i = Sheets(x).Name             '获取每个工作表的表名称，赋值给i
n = Sheets(i).Range("b65536").End(3).Row    '将Sheet(i)表格里b列最后一个存在数据的单元格的行号赋值给n。
'这里End(3)是最令人痛恨的用法，可读性极差。其实End(3)和End(xlUp)是等价的，具体用法看Help文档。
If i <> "数据总表" And n > 1 Then       '只要i不为“数据总表”，并且Sheet(i)除第一行表头以外的第二行以下有数据，就进行循环。
   s = Sheets("数据总表").Range("b65536").End(3).Row   '将当前“数据总表”b列最后一行行号赋值给s
   Sheets(i).Range("b2:F" & n).Copy Range("b" & s + 1)   '将Sheet(i)表格的b列至f列第二行起，b列最后一行为止的所有数据复制，粘贴至当前工作表“数据总表”中，粘贴起始位置为b列s行+1，也就是s行下一行
   Range("g" & s + 1 & ":g" & s + n - 1) = i    '汇总表g列s+1行，至g列s+n-1行填充sheet(i)表名称。s+1行指的是数据总表中还未粘贴新的数据前的最后一行+1行，s+n-1正好为粘贴了新的汇总数据后的最后一行行号。语句的目的是在g列显示左侧数据来源的工作表名称。
End If
Next
End Sub