Public Function MySum(N1, N2 As Integer) As Double i = N1 For Each R In Range(Cells(N1 + 1, 1), Cells(N2 - 1, 1)) i = i + 1 F = R.MergeArea.Address FF = R.Address Ins = InStr(F, ":") IsFirstCell = (Left(F, Ins - 1) = FF) If IsFirstCell Then j = i If IsFirstCell Then V = Cells(i, 1).Value If V <> "" Then S = S + Cells(i, 2).Value Next MySum = S End Function
[/vba]
Код
=MySum(СТРОКА($A$1:$B$1);СТРОКА())
немного подкорректировал [vba]
Код
Public Function MySum(N1, N2 As Integer) As Double i = N1 For Each R In Range(Cells(N1 + 1, 1), Cells(N2 - 1, 1)) i = i + 1 F = R.MergeArea.Address FF = R.Address Ins = InStr(F, ":") IsFirstCell = (Left(F, Ins - 1) = FF) If IsFirstCell Then j = i If IsFirstCell Then V = Cells(i, 1).Value If V <> "" Then S = S + Cells(i, 2).Value Next MySum = S End Function
buchlotnik, Вы Маг и Волшебник! Только я все равно не пойму как ее применить для себя) Дело в том, что у меня все это хозяйство идет вперемежку объединенные ячейки и ординарные. Вы только один понял, что требуется. Прошу Вас посмотреть таблицу прикрепленную в сообщении. Заранее огромное Вам спасибо
buchlotnik, Вы Маг и Волшебник! Только я все равно не пойму как ее применить для себя) Дело в том, что у меня все это хозяйство идет вперемежку объединенные ячейки и ординарные. Вы только один понял, что требуется. Прошу Вас посмотреть таблицу прикрепленную в сообщении. Заранее огромное Вам спасибоsollip
Function SumIfMerge(strCrit As Range, rCrit As Range, rRange As Range) As Double Dim arr1, arr2, k#, i& arr1 = rCrit.Value arr2 = rRange.Value For i = LBound(arr1) To UBound(arr1) If Len(arr1(i, 1)) = 0 Then arr1(i, 1) = arr1(i - 1, 1) If arr1(i, 1) = strCrit Then k = k + arr2(i, 1) Next SumIfMerge= k End Function
[/vba]
[vba]
Код
Function SumIfMerge(strCrit As Range, rCrit As Range, rRange As Range) As Double Dim arr1, arr2, k#, i& arr1 = rCrit.Value arr2 = rRange.Value For i = LBound(arr1) To UBound(arr1) If Len(arr1(i, 1)) = 0 Then arr1(i, 1) = arr1(i - 1, 1) If arr1(i, 1) = strCrit Then k = k + arr2(i, 1) Next SumIfMerge= k End Function
sollip, а я ведь дважды попросил показать реальный пример. А так без макросов никак, имхо. Но вы упорно игнорируете варианты от abtextime и RAN
sollip, а я ведь дважды попросил показать реальный пример. А так без макросов никак, имхо. Но вы упорно игнорируете варианты от abtextime и RANbuchlotnik