У меня есть ссылка, которую я вставил в сообщение. Я хочу составить список титулы, в которых указана сумма за индивидуальную деятельность. Я использую Excel 2013/2016.
БМВ написал: макрусу быть где нужно и не быть где не нужно :-)
Скрытый текст
Код
Function СЦЕПИТЬЕСЛИ(iRng1 As Range, iRng2 As Range, Optional iDelim As String = ", ")
Dim iCl As Range
For Each iCl In iRng1
If Cells(iRng2.Row, iCl.Column) > 0 Then
If IsEmpty(СЦЕПИТЬЕСЛИ) Then
СЦЕПИТЬЕСЛИ = iCl
Else
СЦЕПИТЬЕСЛИ = СЦЕПИТЬЕСЛИ & iDelim & iCl
End If
End If
Next
End Function
АlехМ, ну чтоб не хитрить с пробелами =SUBSTITUTE(REPLACE(IF(E4;"Ё"&E$3;"")&IF(F4;"Ё"&F$3;"")&IF(G4;"Ё"&G$3;"")&IF(H4;"Ё"&H$3;"")&IF(I4;"Ё"&I$3;"")&IF(J4;"Ё"&J$3;"")&IF(K4;"Ё"&K$3;" ")&IF(L4;"Ё"&L$3;"");1;1;);"Ё";", ")
БМВ, АлексМ, Саня, спасибо! Я с опозданием благодарю Вас за тяжелую работу и предоставленные знания, но я искренне благодарю вас! Я изучу предложенные варианты и воспользуюсь ими.