Автор Александр Иванов задал вопрос в разделе Другие языки и технологии
Excel макросы и получил лучший ответ
Ответ от PROXY[новичек]
создай кнопку на странице и привяжи вот этот макрос: Private Sub CommandButton1_Click() Dim nR, maxR As Long Dim nC As String nR = 1 \'номер строки в которой находится первое число nC = \"A\" \'имя колонки maxR = 65000 \' максимально количество строк для просмотра, но все они смотреть не будет, только заполненные askB = False \' индикатор первой записи, т. е. нашли первую заполненную ячейку (нужно если первое число стоит не в строке nR=1 i = 1\' счетчик For Each res In Range(nC & nR & \":\" & nC & maxR) \'перебираем строки в колонке If res.Text = \"\" And askB Then \'если обнаружена пустая строка после окончания перебора - выходим из цикла Exit For ElseIf Not res.Text = \"\" Then \'если найдена не пустая ячейка askB = True If Not Val(res.Text) = i Then \'сравниваем значение ячейки со счетчиком Rows(res.Row & \":\" & res.Row).Insert Shift:=xlDown \'не совпало значение, вставляем строку Range(nC & res.Row - 1) = i \' и заполняем i = i + 1 Else i = i + 1 End If End If Next End Sub
Sub Macros() a = Selection.Item(1).Value For Each cell In Selection If cell - a > 1 Then Rows(cell.Row).Insert Shift:=xlDown a = a + 1 cell.Offset(-1, 0).Value = a Else a = cell.Value End If Next End Sub
У меня вопрос по Excel 2010, выделение цветом ячеек при поиске в документе
Макрос, код которого ниже окрашивает выделенную ячейку. Код поместить в модуль "Эта книга"
подробнее...
Excel Как так сделать чтобы: поставив галочку в квадратик и формулы в некоторых ячейках стали другими. А потом галочку
Вариант с галочкой в ячейке F1. В Эту ячейку "проверкой вводимых значений" ограничен ввод. В ячейке
подробнее...
(EXCEL) Макрос с использованием ВПР
Примерно так
k = 1
Do While Worksheets(1).Rows(k).Cells(1) <> \"\"
j = 1
Do
подробнее...
MS Excel. Макросы на авто растягивание ячеек.
Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 06.04.2015 (Александр)
'
подробнее...
Нужен Excel макрос для удаления строк по условию,
Диапазон в экселе понятие почти всеобъемлющее, поэтому макрос работает с крайним правым столбцом
подробнее...
Как создать эти макросы в VBA (Excel)?
первый макрос:
Sub makros1()
iii = 1
For Each ttt In Selection.Cells
подробнее...
подскажите как макросом xls открыть любой файл xls например в корневом диске с? не указывая его имени?
добавь в referenses галочку около Microsoft Scripting Runtime и используй (открывает не только
подробнее...
Как в EXCEL удалить строки через одну начиная с 5 до 1000?
Sub udalenie()
For ii = 5 To 1000
If ii Mod 2 = 0 Then
Rows(ii).ClearContents
подробнее...
Помогите с простым макросом для Excel! (см. внутри)
Меняйте свой макрос на этот
Код
Sub замена_дат ()
For Each cell In Selection
If
подробнее...
как в VBA Excel прописать поиск в ячейке, которая содержит нужный набор символов(например "Казань") и в случае выполнени
Поиск в одной ячейке или в диапазоне? Обязательно на ВБА или просто формулой?
Олег
подробнее...
Сведение двух таблиц в одну. Excel
В каждой таблице на Лист1 и Лист2 в столбце А - код, в В - наименование, в С - количество
подробнее...
массивы в excel
вот тебе макрос сортировки
на листе в первую строчку вбей любые цифры- он тебе их отсортирует
подробнее...
можно ли автоматически склонять по падежам существительные в формате Excel
Доброго времени суток.
Если речь идет о ФИО, наименованиях должностей или подразделений,
подробнее...
Excel. VBA. Поиск текста. Ошибка когда не найдет текст
ну дык.. . проверяйте сперва -- нашлось ли что-либо -- перед тем как делать что-то с найденным.
подробнее...
Подскажите, как сделать автоматическое добавление текущей даты в ячейку в excel???
Вариант Ивана Леконтцева не очень удачный. Он, конечно, работает, но при открытии книги на
подробнее...