[已解决]哪个大神给下面的这段代码添加个注释吧

qjsu

哪个大神给下面的这段代码添加个注释吧
hz这个变量也没有进行定义，为什么就可以直接用呢？

Sub 汇总()
Dim h As Integer
For Each hz In Worksheets
    If hz.Name <> ActiveSheet.Name Then
        hz.UsedRange.Offset(1, 0).Copy [a65536].End(xlUp).Offset(1, 0)
        End If
        Next
End Sub

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-11-9 15:02

1. Sub 汇总()
   
2.     Dim h As Integer
   
3.     For Each hz In Worksheets      '遍历工作簿中每个工作表
   
4.         If hz.Name <> ActiveSheet.Name Then    '判断工作表是否是当前活动工作表
   
5.             hz.UsedRange.Offset(1, 0).Copy [a65536].End(xlUp).Offset(1, 0)
   
6.             ' 如果不是，则把工作表已经使用的区域（除开第一行）复制到当前工作表A列空白区域（自动在行首添加一行空行分隔)
   
7.         End If
   
8.     Next
   
9. End Sub
   
10. 
    

复制代码

跳转到最佳答案楼层

hwc2ycy

因为代码顶部没有强制声明语句Option Explicit

hwc2ycy

1. Sub 汇总()
   
2.     Dim h As Integer
   
3.     For Each hz In Worksheets      '遍历工作簿中每个工作表
   
4.         If hz.Name <> ActiveSheet.Name Then    '判断工作表是否是当前活动工作表
   
5.             hz.UsedRange.Offset(1, 0).Copy [a65536].End(xlUp).Offset(1, 0)
   
6.             ' 如果不是，则把工作表已经使用的区域（除开第一行）复制到当前工作表A列空白区域（自动在行首添加一行空行分隔)
   
7.         End If
   
8.     Next
   
9. End Sub
   
10. 
    

复制代码

hwc2ycy

你单步看运行效果应该更容易理解。