Умрбек Искандарович
Мастер
(1676)
4 года назад
Как наверху написали, задача непонятно описано, всё ровно отвечу.
Код нужно вписать в лист (sheet):
Private Sub Worksheet_Change(ByVal Target As Range)
r = ActiveCell.Row
c = ActiveCell.Column
If ActiveCell = "*" Then
Cells(r, c + 1) = "a"
Cells(r, c + 2) = "a+1"
Cells(r, c + 3) = "a+2"
'дальше код развивайте сами. Может быть я неправильно понял
'важный момент. После заполнения не нажимаем Enter, а CTRL+Enter
End If
End Sub