Как занести значение в ячейку

[IgorGO]

см.вложение

[s-posad]

Чего-то не догнал
Установить всем отмеченным работает по какому действию?

[IgorGO]

а Вашего файла нет поэтому леплю что придумал

измениние С1 дожно повлиять на остальные ячейки колонки С

[s-posad]

Не работает.
Самый главный вопрос заключается в психологии людей: когда видят сообщение о макросах и возможных вирусах и т.д. отключают все
Поэтому и писал в начале поста о возможности без VBA

[s-posad]

Сообщение от IgorGO

измениние С1 дожно повлиять на остальные ячейки колонки С

Я сам занимаюсь прикладным программированием с 93-го. Разные языки, в основном FoxPro. VBA осваиваю второй день.
В Вашем коде все понятно, однако для строк, которые находятся ниже той ячейки колонки В, в которой стоит "пробел" корректно работает только если в С1 выбрать a,b или c. Если выбрать "по умолчанию", то в такие ячейки устанавливается "умолчание" первой "отмеченной" ячейки колонки В.
В чем баг??

[IgorGO]

ошибка в том что все было написано написано на коленках
правильно так:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address <> "$C$1" Then Exit Sub
  Dim rc As Long, c As Range, EE
  rc = Cells(Rows.Count, 1).End(xlUp).Row - 1
  EE = Application.EnableEvents:  Application.EnableEvents = False
  If Target = "по умолчанию" Then
   For Each c In Cells(2, 2).Resize(rc, 1).SpecialCells(xlCellTypeConstants)
     c.Offset(0, 1) = c.Offset(0, -1)
   Next
  Else
    Cells(2, 2).Resize(rc, 1).SpecialCells(xlCellTypeConstants).Offset(0, 1).Value = Target.Value
  End If
  Application.EnableEvents = EE
End Sub