'в коде в цикле собирается строка: 
        FormatGrayMinus = FormatGrayMinus & "," & "R" & CRow & "C" & foundcol
          '.cells(CRow, foundcol).Interior.ColorIndex = 15 
          '.cells(CRow, foundcol).FormulaR1C1 = "-" 


 'в конце: 

If Len(FormatGrayMinus) >  0  Then
FormatGrayMinus = Mid(FormatGrayMinus,  2 )
 'Debug.Print FormatGrayMinus 
 'типа : R9C4,R9C5,R9C6,R9C7,R9C8,R9C9,R9C10,R9C11,R9C12,R9C13,R9C14,R9C15,R9C16 

With XL.range(XL.ConvertFormula(FormatGrayMinus, - 4150 ,  1 ))
         .Interior.ColorIndex =  15 
         .FormulaR1C1 = "-"

Private Sub ExcelOut(OutRange As String, CellValue As String, CellFormat As String)
Dim rng
Dim zpta200
 
If Len(OutRange) =  0  Then Exit Sub
OutRange = Mid(OutRange,  2 )  'Обрезка первого разделителя 

While OutRange <> ""
    zpta200 = InStr( 200 , OutRange, ",", vbTextCompare)  'Ищем позицию разделителя после 200 позиции 
    If zpta200 <>  0  Then
        rng = Left(OutRange, zpta200)
        If Right(rng,  1 ) = "," Then rng = Left(rng, Len(rng) -  1 )
         'Debug.Print rng 
        OutRange = Mid(OutRange, zpta200 +  1 )
     Else
        If OutRange = "" Then Exit Sub
        rng = OutRange
        OutRange = ""
    End If
    rng = XL.Application.ConvertFormula(rng, - 4150 ,  1 ,  4 )
     'Debug.Print rng 
    rng = Replace(rng, ",", ";", , , vbTextCompare)
    With XL.Range(rng)
        If CellValue <> "" Then .FormulaR1C1 = CellValue
        If CellFormat <> "" Then .Interior.ColorIndex = CellFormat
    End With
Wend



End Sub

ALTER PROCEDURE sotr_project_statusInfo (@Start_date datetime ='20050301'  , @id_p_f_p	int =  11  , 	@id_sotr	int =  551 )
AS

 -- Процедура выдает название проекта в котором занят данный сотрудник в запрашиваем месяце, кроме обозначенного проекта 
 -- Впоследствии возможно будет необходимо выдавать список нескольких проектов на один день 

SET NOCOUNT ON 

declare @SRC table ( info varchar ( 100 ), 	d1 int , d2 int , d3 int , d4 int , d5 int , d6 int , d7 int , d8 int , d9 int , d10 int , 
			d11 int , d12 int , d13 int , d14 int , d15 int , d16 int , d17 int , d18 int , d19 int , d20 int , 
			d21 int , d22 int , d23 int , d24 int , d25 int , d26 int , d27 int , d28 int , d29 int , d30 int , 
			d31 int )

insert into @src 
select  saved_clientname collate SQL_Latin1_General_CP1251_CI_AS + char( 13 ) + char( 10 )  + prj  as info,
			d1  , d2  , d3  , d4  , d5  , d6  , d7  , d8  , d9  , d10  , 
			d11  , d12  , d13  , d14  , d15  , d16  , d17  , d18  , d19  , d20  , 
			d21  , d22  , d23  , d24  , d25  , d26  , d27  , d28  , d29  , d30  , 
			d31
from dbo.pltime pt inner join dbo.partners_fplan_prop fp on id_p_f_p = idpartners_fplan_prop   where  pt.sumh <>  0   AND pt.id_sotr = @id_sotr and pt.start_date = @start_date  and id_p_f_p <> @id_p_f_p





select
(select top  1  info as sd1 from @SRC pt   where D1 <>  0   ) as d1 , 
(select top  1  info as sd1 from @SRC pt   where D2 <>  0   ) as d2 ,  
(select top  1  info as sd1 from @SRC pt   where D3 <>  0   ) as d3 , 
(select top  1  info as sd1 from @SRC pt   where D4 <>  0   ) as d4 , 
(select top  1  info as sd1 from @SRC pt   where D5 <>  0   ) as d5 , 
(select top  1  info as sd1 from @SRC pt   where D6 <>  0   ) as d6 , 
(select top  1  info as sd1 from @SRC pt   where D7 <>  0   ) as d7 , 
(select top  1  info as sd1 from @SRC pt   where D8 <>  0   ) as d8 , 
(select top  1  info as sd1 from @SRC pt   where D9 <>  0   ) as d9 , 
(select top  1  info as sd1 from @SRC pt   where D10 <>  0  ) as d10 , 
(select top  1  info as sd1 from @SRC pt   where D11 <>  0  ) as d11 , 
(select top  1  info as sd1 from @SRC pt   where D12 <>  0  ) as d12 , 
(select top  1  info as sd1 from @SRC pt   where D13 <>  0  ) as d13 , 
(select top  1  info as sd1 from @SRC pt   where D14 <>  0  ) as d14 , 
(select top  1  info as sd1 from @SRC pt   where D15 <>  0  ) as d15 , 
(select top  1  info as sd1 from @SRC pt   where D16 <>  0  ) as d16 , 
(select top  1  info as sd1 from @SRC pt   where D17 <>  0  ) as d17 , 
(select top  1  info as sd1 from @SRC pt   where D18 <>  0  ) as d18 ,  
(select top  1  info as sd1 from @SRC pt   where D19 <>  0  ) as d19 , 
(select top  1  info as sd1 from @SRC pt   where D20 <>  0  ) as d20 ,  
(select top  1  info as sd1 from @SRC pt   where D21 <>  0  ) as d21, 
(select top  1  info as sd1 from @SRC pt   where D22 <>  0  ) as d22 , 
(select top  1  info as sd1 from @SRC pt   where D23 <>  0  ) as d23 ,  
(select top  1  info as sd1 from @SRC pt   where D24 <>  0  ) as d24 , 
(select top  1  info as sd1 from @SRC pt   where D25 <>  0  ) as d25 ,  
(select top  1  info as sd1 from @SRC pt   where D26 <>  0  ) as d26 , 
(select top  1  info as sd1 from @SRC pt   where D27 <>  0  ) as d27 , 
(select top  1  info as sd1 from @SRC pt   where D28 <>  0  ) as d28 ,  
(select top  1  info as sd1 from @SRC pt   where D29 <>  0  ) as d29 , 
(select top  1  info as sd1 from @SRC pt   where D30 <>  0  ) as d30 , 
(select top  1  info as sd1 from @SRC pt   where D31 <>  0  ) as d31