Private Sub Worksheet_SelectionChange(ByVal Target As Range)  
Dim arr, a  
arr = Split("D7:K15 D17:K27 D29:K36 D38:K47 D49:K56 D58:K68 D70:K71 D73:K77 D79:K88 D90:K97 D99:K110 D112:K139 D141:K154 D156:K165 D167:K173 D175:K180 D182:K193 D195:K201 D203:K207 D209:K214 D216:K216 D218:K220 D222:K230 D232:K238 D240:K243 D245:K249 D251:K255 D257:K263 D265:K273")  
 
Select Case Target.Address  
Case "$M$4": a = Split("1 3 2 3 1 3 2 3 1 3 2 3 1 3 2 3 1 3 2 3 1 3 2 3 1 3 2 3 1") 'столбцы первого клиента  
Case "$N$4": a = Split("2 2 3 1 3 2 1 2 3 2 3 1 3 2 3 1 3 2 3 1 3 2 3 1 3 2 3 1 1") 'аналогично второго  
Case "$O$4": a = Split("3 1 1 3 2 3 2 1 2 3 2 3 1 3 2 3 1 3 2 3 1 3 2 3 1 3 2 3 1") 'третьего  
Case "$P$4"  
For i = 0 To UBound(arr): Range(arr(i)).Interior.ColorIndex = xlNone: Next  
Exit Sub  
Case Else: Exit Sub  
End Select  
 
For i = 0 To UBound(arr)  
Range(arr(i)).Interior.ColorIndex = xlNone  
Range(arr(i)).Columns(Val(a(i))).Interior.Color = vbMagenta  
Next  
 
End Sub  
 
ОГРОМНОЕ спасибо! Вот что получилось, все работает. А как нибудь можно сделать так чтобы при вставке в прайс какой нибудь позиции не приходилось переписывать адреса всех блоков? Ps: думала про "ваш цвет" вы блондинку имели ввиду)))))

Огромное спасибо, с этим вроед разобралась, еще пару вопросов: где взять коды цветов и как сделать ячейеку при  нажатии на которую выделение цветом уберается вообще.

ага, спасибо, с этим справилась, теперь как это все редактировать? )

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

пример ниже

Здраствуйте! Как в екселе сделать так чтобы при нажатии на одну ячейку выделялись цветом несколько несмежных диапазонов ячеек. (Допустим есть прайс, в нем несколько колонок цен и несколько позиций номенклатуры, у одного покупателя на разные позиции разные колонки цен, с права от прайса список покупателей, при нажатии на покупателя в прайсе цветом выделяются его цены. Помогите пожалуйста )