VBA在黄色单元格填写各部门合计数

laoau138

VBA在黄色单元格填写各部门合计数

dsmch

1. Sub Macro1()
   
2. For i = 2 To Range("b65536").End(xlUp).Row
   
3.     If Cells(i, 1).MergeCells Then
   
4.         n = Cells(i, 1).MergeArea.Count
   
5.     End If
   
6.     Cells(i, 5) = Application.Sum(Cells(i, 3).Resize(n, 1))
   
7.     i = i + n - 1
   
8. Next
   
9. End Sub

复制代码