如何在多工作表中(撤销工作薄保护\删除满足要求的行\插入行\计算平均值等)

kaiser1103

如何在多张打开的工作表中完成指定操作:
1.撤销工作薄保护,(图一,右上角的那个 撤销工作表保护按钮)
2.删除满足要求的行(删除丢包率(G列) 大于 15%的行,删除平均延迟大于500(F列)的行)
3.插入行(在南方网通和北方网通的中间插入一行,)
4.将表格内的百分比转换为数字(将丢包率那一行的百分比转换为数字)
5.计算平均值(计算南北网通平均延迟和丢包率的平均值,结果写在在前面插入的那一行(南方网通的平均值),和最后一行(北方网通的平均值))
6.保存!


图一就是拿到手的文件
图二是我手动处理后达到要求的文件

这样的文件有近1000个
求教高手,能不能写段VBA,把这些过程完成掉!
要是有高手喜欢研究的,可以加我QQ,我发几个这样的表格给你研究,QQ:119203813
先谢谢大家了!
加急求救贴!

kaiser1103

写反了,图二就是拿到手的文件
图一是我手动处理后达到要求的文件

kaiser1103

会的高人来啊~~~~~

kaiser1103

自己顶了先~~~~~~
在线等.等到你来~~~

kaiser1103

自己顶了先~~~~~~
在线等.等到你来~~~

kaiser1103

自己顶了先~~~~~~
在线等.等到你来~~~

pureshadow

如果N个表的格式完全一致，可以选取所有工作表进行操作，但如果格式有差别，只能用代码来解决了。

方漠

pls upload your sample file.

kaiser1103

处理后的文件,是把处理前的文件进行操作后得到的:工作表解锁----删除延迟是100%的行----在南北网通\电信中间插入一行,计算南北网通\电信的延迟和丢包的平均值.

周末搬家,没有时间上来看看,让2大版主久等了,真是不好意思哈~~~~呵呵~~~~

方漠

Here is the code for u, but if u need batch process, pls code  by yourself.

Sub Macro1()

' Macro recorded 2009-7-29 by FangMo
'
Dim Lrow As Long, Irow As Long
Dim Rng

    Irow = Range("B65536").End(xlUp).Row

    ActiveSheet.Unprotect
     
    Rows("3:3").Select
    Range("D3").Activate
    Selection.AutoFilter
    Selection.AutoFilter Field:=7, Criteria1:="100%"
    Range("B6").Activate
    Rows("4:" & Irow).Select
    Selection.Delete Shift:=xlUp
    Selection.AutoFilter
   
    Range("G4:G" & Irow).NumberFormatLocal = "0.00%"
   
    Columns("G:G").Select
    For Each Rng In Selection.Areas
         Rng.Value = Rng.Value
    Next
   
  Range("A4").Select
  
  Lrow = Range("A65536").End(xlUp).Row
  


  Rows(Lrow & ":" & Lrow).Insert Shift:=xlDown
  
  
  Range("F" & Lrow).Select
  ActiveCell.FormulaR1C1 = "=AVERAGE(R[" & 4 - Lrow & "]C:R[-1]C)"
  Range("G" & Lrow).Select
  ActiveCell.FormulaR1C1 = "=AVERAGE(R[" & 4 - Lrow & "]C:R[-1]C)"

    Range("A" & Lrow & ":G" & Lrow).Select
    With Selection.Interior
        .ColorIndex = 45
        .Pattern = xlSolid
    End With


  Irow = Range("B65536").End(xlUp).Row + 1
  Range("F" & Irow).Select
  ActiveCell.FormulaR1C1 = "=AVERAGE(R[" & Lrow - Irow + 1 & "]C:R[-1]C)"
  Range("G" & Irow).Select
  ActiveCell.FormulaR1C1 = "=AVERAGE(R[" & Lrow - Irow + 1 & "]C:R[-1]C)"

    Range("A" & Irow & ":G" & Irow).Select
    With Selection.Interior
         .ColorIndex = 45
         .Pattern = xlSolid
    End With

End Sub