[已解决]数据清洗

annaaian

将所有为0的数据替换为上下不为0的数据的均值。其中需要注意的是，如果出现很多0，则需要将所有的0都替换为上下的均值，即替换掉这些0的值完全相同，否则会出现替换数值不断被平均最后等于0的错误。
另外如果最后一个数据是0，没有下方数据，则这个0替换为上方数据的数值。

最佳答案

月排行榜 / 总排行榜

grf1973

2016-4-7 11:19

1. Sub tt()
   
2.     Dim sh As Worksheet
   
3.     For Each sh In Worksheets
   
4.         With sh
   
5.             c = .[av4].End(xlToLeft).Column '最大列（数据从第4行开始）
   
6.             If c >= 2 Then
   
7.                 For j = 2 To c
   
8.                     avg = Application.WorksheetFunction.Average(.Range(.Cells(4, j), .Cells(65536, j).End(3)))     '本列平均值
   
9.                     .Range(.Cells(4, j), .Cells(65536, j).End(3)).Replace 0, avg, lookat:=xlWhole       '本列0值用平均值取代
   
10.                 Next
    
11.             End If
    
12.         End With
    
13.     Next
    
14. End Sub
    

复制代码

跳转到最佳答案楼层

grf1973

1. Sub tt()
   
2.     Dim sh As Worksheet
   
3.     For Each sh In Worksheets
   
4.         With sh
   
5.             c = .[av4].End(xlToLeft).Column '最大列（数据从第4行开始）
   
6.             If c >= 2 Then
   
7.                 For j = 2 To c
   
8.                     avg = Application.WorksheetFunction.Average(.Range(.Cells(4, j), .Cells(65536, j).End(3)))     '本列平均值
   
9.                     .Range(.Cells(4, j), .Cells(65536, j).End(3)).Replace 0, avg, lookat:=xlWhole       '本列0值用平均值取代
   
10.                 Next
    
11.             End If
    
12.         End With
    
13.     Next
    
14. End Sub
    

复制代码

grf1973

请看附件。

annaaian

grf1973 发表于 2016-4-7 11:21
请看附件。

谢谢！！