Автор *** задал вопрос в разделе Прочее компьютерное
Подскажите, как в Экселе автоматически пронумеровать столбец. и получил лучший ответ
Ответ от Алексей Матевосов (AlexM)[гуру]
В ячейке А1 пишите формулу =СТРОКА ()
Копируете эту формулу в ячейках столбца А, сколько надо. Алексей Матевосов (AlexM)
Просветленный
(25464)
Про 1000 ничего не говорили.
Вставить формулу в 10000 ячеек не сложнее чем в 10.
И так в А1 формула. Копируем.
Далее над колонкой А есть поле, в котором пишется номер активной ячейки.
В этом поле пишем А10000, нажимаем и удерживаем Shift, жмем Enter.
Готово. 🙂
Ответ от Валдымар Техно[гуру]
написать формулу вот так
А В С
1
= если в ячейке Вх >0 тогда А (где единица) +1 если нет 0
написать формулу вот так
А В С
1
= если в ячейке Вх >0 тогда А (где единица) +1 если нет 0
Ответ от Ёергей кАханский[гуру]
придумал полурешение, с помощью макроса, подумаю еще как его доделать, макрос реагирует на изменение в столбце В и вставляет в первый столбец номерок
для его работы надо нажать альт-ф11 и вставить в модуль листа текущей книги такой текст
Private Sub WorkSheet_Change(ByVal Target As Range)
Application.Calculation = xlManual
x = Left(Target.Address, 2)
If Left(Target.Address, 2) = "$B" Then
Range("A2:A" & Range("A1").CurrentRegion.Rows.Count).ClearContents
r = 2
While Cells(r, 2).Value <> ""
Cells(r, 1).Value = r - 1
r = r + 1
Wend
End If
Application.Calculation = xlAutomatic
End Sub
только вот на удаление строк пока не реагирует
для изменения номеров первого столбцп нужно перезаписать любую ячеку второго столбца
пример с макросом в файле
ссылка
придумал полурешение, с помощью макроса, подумаю еще как его доделать, макрос реагирует на изменение в столбце В и вставляет в первый столбец номерок
для его работы надо нажать альт-ф11 и вставить в модуль листа текущей книги такой текст
Private Sub WorkSheet_Change(ByVal Target As Range)
Application.Calculation = xlManual
x = Left(Target.Address, 2)
If Left(Target.Address, 2) = "$B" Then
Range("A2:A" & Range("A1").CurrentRegion.Rows.Count).ClearContents
r = 2
While Cells(r, 2).Value <> ""
Cells(r, 1).Value = r - 1
r = r + 1
Wend
End If
Application.Calculation = xlAutomatic
End Sub
только вот на удаление строк пока не реагирует
для изменения номеров первого столбцп нужно перезаписать любую ячеку второго столбца
пример с макросом в файле
ссылка
Ответ от Богдан Мартин[новичек]
пишеш например в 1-м 1 в втором столбце 2 дальше 3 потом выделаеш 3 цыфри в правом нижнем углу черной рамки ищи крестик на него и возьмись и проедь до кудп надо
пишеш например в 1-м 1 в втором столбце 2 дальше 3 потом выделаеш 3 цыфри в правом нижнем углу черной рамки ищи крестик на него и возьмись и проедь до кудп надо
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Подскажите, как в Экселе автоматически пронумеровать столбец.