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 ' 若遍历的当前工作表不是...