ВНИМАНИЕ: макросы должны быть разрешены до открытия файла  
(меню Сервис - Макрос - Безопасность - Низкая)  
 
вот весь код:  
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)  
   If Target.Column = 7 And Target.Row > 5 Then Cancel = True: Заполнить Target.Text  
End Sub  
 
Sub Заполнить(ByVal СписокЧленов As String)  
   Dim ra1 As Range, ra2 As Range: Set ra1 = [комиссия]: Set ra2 = [ФИО]
   ra1.Value = "": ra2.Value = "": i = 1  
   For Each Член In Split(СписокЧленов, ",")  
       Член = Trim(Член): Должность = Split(Член, " ")(0): ФИО = Split(Член, " ")(1)  
       ra1.Areas(i).Cells(1) = LCase(Должность)  
       ra2.Areas(i).Cells(1) = ФИО  
       i = i + 1  
   Next Член  
   pr.Activate  
End Sub

Спасибо, проверила, работает, а с поправкой выводятся и инициалы  
Но...    
если должность из 2-х и более слов, то не срабатывает, признак окончания поля " ". Как можно это обойти, кроме как радикального (например, ставить после должности "-"), а то пользователи у нас не очень аккуратные...