[已解决][求助]如何用VBA在合并单元格内求平均值

cuiguojie

有原始表数据量很大，想用VBA在合并的单元格中求平均值？在此求解，望老师们指教！是VBA，谢谢你们了！

最佳答案

月排行榜 / 总排行榜

搁浅2008

2012-5-3 08:40

1. Sub bb()
   
2.     Dim i As Long
   
3.     Dim rng As Range
   
4.     For i = 2 To Sheet1.Range("D65536").End(xlUp).Row
   
5.         If Range("E" & i).MergeCells = True Then
   
6.             Range("E" & i) = Application.WorksheetFunction.Average(Range("E" & i).MergeArea.Cells(1, 0).Resize(Range("E" & i).MergeArea.Count, 1))
   
7.             i = VBA.Split((Range("E" & i).MergeArea.Address), "$")(4)
   
8.         Else
   
9.            Range("E" & i) = Range("D" & i)
   
10.         End If
    
11.     Next i
    
12. End Sub
    

复制代码

跳转到最佳答案楼层

搁浅2008

合并单元格内生成平均值.rar (7.9 KB, 下载次数: 28)

2012-5-3 08:10 上传

点击文件名下载附件

桀骜孤星

正在学习2楼代码，没学懂呀

搁浅2008

1. Sub bb()
   
2.     Dim i As Long
   
3.     Dim rng As Range
   
4.     For i = 2 To Sheet1.Range("D65536").End(xlUp).Row
   
5.         If Range("E" & i).MergeCells = True Then
   
6.             Range("E" & i) = Application.WorksheetFunction.Average(Range("E" & i).MergeArea.Cells(1, 0).Resize(Range("E" & i).MergeArea.Count, 1))
   
7.             i = VBA.Split((Range("E" & i).MergeArea.Address), "$")(4)
   
8.         Else
   
9.            Range("E" & i) = Range("D" & i)
   
10.         End If
    
11.     Next i
    
12. End Sub
    

复制代码

ppp710715

学习4楼代码，谢谢

sgyzzz

Sub cs1()
  Dim i As Integer
  Dim m As Integer
   
  For i = 2 To Range("a65536").End(xlUp).Row
  
     If Range("b" & i) <> "" Then
      
         m = Range("E" & i).MergeArea.Count
     
        Range("e" & i).Value = Application.Average(Range(Cells(i, 4), Cells(i + m - 1, 4)))
  
  End If
  
Next i

End Sub

cuiguojie

sgyzzz 发表于 2012-5-3 09:18
Sub cs1()
  Dim i As Integer
  Dim m As Integer

l呵呵，没想到你的代码更简洁，更易懂，不过可惜你发的有点迟，我已经选过最佳答案了，感谢你！