Rick23333的博客

转载 VBA遍历各分表汇总为一张总表

Sub huizongdata() rows("3:10000").Clear '第一步是先清空汇总表的数据，这里是从第3行开始清理到10000行，可以自己修改。 Dim st As Worksheet, rng As Range, rrow As Integer '定义一些需要用到的变量 For Each st In Worksheets '循环开始，遍历所有的工作表 If st.Name <> ActiveSheet.Name Then ' 若遍历的当前工作表不是...