Developing.ru

Код: Выделить всё

Sub Zapolnit_spec()
     Dim iCount%, iResult#
    
     With ActiveWorkbook.Worksheets
     iResult = 0
          For iCount = 2 To .Count
              iResult = iResult + .Item(iCount).Range("C57")
          Next
          .Item(1).Range("M22") = iResult
     End With
          
     With ActiveWorkbook.Worksheets
          iResult = 0
          For iCount = 2 To .Count
              iResult = iResult + .Item(iCount).Range("C71")
          Next
          .Item(1).Range("M23") = iResult
     End With
     
     With ActiveWorkbook.Worksheets
     iResult = 0
          For iCount = 2 To .Count
              iResult = iResult + .Item(iCount).Range("C68")
          Next
          .Item(1).Range("M25") = iResult
     End With
 End Sub

Код: Выделить всё

Private Sub getTotalSumOfChooseCell2()
    Dim iCount1%, iCount2%, iResult#, iLists As Sheets
    Dim iArrAddress1 As Variant, iArrAddress2 As Variant
   
    iArrAddress1 = Array("C57", "C71", "C68")
    iArrAddress2 = Array("M22", "M23", "M25")

    Set iLists = ActiveWorkbook.Worksheets
    For iCount2 = 0 To UBound(iArrAddress2)
        For iCount1 = 2 To iLists.Count
            iResult = iResult + iLists(iCount1).Range(iArrAddress1(iCount2))
        Next
        iLists(1).Range(iArrAddress2(iCount2)) = iResult: iResult = 0
    Next
End Sub