Изменение имен ячеек
Всем привет! Помогите написать такой макрос, который бы делал следующее: я выделяю некоторый диапазон ячеек, и запускаю макрос, который должен сменить имя у каждой из выделенной ячейки таким образом, чтобы имя первой выделенной ячейки было скажем Cell_1 а имя последней выделенной - Cell_N, где N - количество выделенных ячеек.
Цитата:
Originally posted by Maxximator
Всем привет! Помогите написать такой макрос, который бы делал следующее: я выделяю некоторый диапазон ячеек, и запускаю макрос, который должен сменить имя у каждой из выделенной ячейки таким образом, чтобы имя первой выделенной ячейки было скажем Cell_1 а имя последней выделенной - Cell_N, где N - количество выделенных ячеек.
Всем привет! Помогите написать такой макрос, который бы делал следующее: я выделяю некоторый диапазон ячеек, и запускаю макрос, который должен сменить имя у каждой из выделенной ячейки таким образом, чтобы имя первой выделенной ячейки было скажем Cell_1 а имя последней выделенной - Cell_N, где N - количество выделенных ячеек.
Вот вариант
i = 0
For Each c In Selection
i = i + 1
nm = "Cell_" & i
ActiveWorkbook.Names.Add Name:=nm, RefersToR1C1:="=R" & c.Row & "C" & c.Column
Next c
Спасибо! Конец дня, туплю не по детски просто уже :)