遍历sheet循环 求助

暗夜精灵2012

昨天的内部循环改成了find函数，虽然内循环问题解决了
但是外循环sheet表的循环确无法实现
求助啊！
For i = 1 To book1.Worksheets.Count
          With book1.Sheets(i).Columns("C:C")
             Set n = .Find("日环比")
               Let w = n.Row
               Rows(w).Select
               Selection.Insert Shift:=xlDown
          End With
Next
所有变量已经全部定义过
如果将sheet（i）改成具体的sheet表名就能实现一个表的插入行操作
但是我想用for循环 自动实现所有表的插入行
求大神帮助啊...

暗夜精灵2012

哈哈 我自己研究出来了 终于解决了
谢谢各位路过的大神

Evanish

这个应该已经循环了所有sheet的

暗夜精灵2012

Evanish 发表于 2012-11-25 20:21
这个应该已经循环了所有sheet的

谢谢回答 呵呵
看上去确实应该是循环了所有sheets
但是运行起来结果是在一个sheet循环了i 遍，也就是说在同一个sheet里插入了i 个空行
所以程序里还是少了一点东西