Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Как ускорить вставку строк?, необходимо ускорить вставку строк
 
Автофил не катит. Строка может вставляться через 3 или 4 строки. Зря конечно про автозаполнение написал - это просто чтобы понятно было что формула должна отрабатывать смещение. Ну то-есть если я её ниже вставляю, то и формула соответсвенно изменяется. Да вставляем .formula

Тут всё дело в том, что Excel каждую ячейку вставляет отдельно. А если использовать массивы, то нужно в VBA отдельно писать какая ячейка что означает. А листов много, формулы разные. Поэтому хочется как-то вставить сразу диапазон, но чтобы формулы не "сломались"
Изменено: Korkiy Korkiy - 02.04.2017 13:33:50
Как ускорить вставку строк?, необходимо ускорить вставку строк
 
Доброго времени суток!
Подскажите пожалуйста, есть ли способ ускорить макрос, который вставляет строки с формулами. Компьютеры старые, листов много, формулы везде разные.
Макрос берет строку и копирует (протягивает) вниз на 10 000 строк. Формулы смотрят на другой лист.
Вот код:
Код
Sub Zapolnit()

Application.ScreenUpdating = False ' отключает обновление экрана

' счетает 6 минут
Sheets("Лист1").Select

' цикл заполнения
For a = 1 To 10000

    Rows(1).Copy
    lLastRow = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count
    Rows(lLastRow).Insert
   
Next a

Application.ScreenUpdating = True ' включает обновление экрана
End Sub

Пробовал диапазон ячеек загнать в массив, но тогда формула остается как была. То есть она не протягивается вниз, а как-будто её скопировали текстом.

Ниже прикрепил файл с примером
Изменено: Korkiy Korkiy - 03.04.2017 13:10:28
Как склеить текст и дату?
 
Всем огромное спасибо
Как склеить текст и дату?
 
Помогите пожалуйста, необходимо "склеить"/сцепить текст и дату, но при этом дата превращается в числовой код  (например 20 мая 2013 г. становиться 41414).
буквы первого слова в ячейке сделать прописными
 
Спасибо огромное
буквы первого слова в ячейке сделать прописными
 
в первой ячейке надпись - Пивовар Иван Таранов, во второй ячейке необходимо сделать - пивовар Иван Таранов
Создать нижний колонтитул таким образом, чтобы в верхней его части была полоса на всю ширину страницы
 
Подскажите пожалуйста, как создать нижний колонтитул таким образом, чтобы в верхней его части была полоса на всю ширину страницы (похожие нижние колонтитулы есть в MS Word - см. прикрепленный файл)
Изменено: vikttur - 20.07.2021 17:35:32
Как пользоваться шаблонами?, Необходимо перенести таблицу из MS Exel в MS Word
 
Johny спасибо огромное, все работает превосходно :D
Как пользоваться шаблонами?, Необходимо перенести таблицу из MS Exel в MS Word
 
Не может найти проект (Can't find project or library), выделяет строчку
Private xlBook As Excel.Workbook
Как пользоваться шаблонами?, Необходимо перенести таблицу из MS Exel в MS Word
 
Johny, большое спасибо за помощь, принцип понятен, но макрос почему-то не работает...  :(
Как пользоваться шаблонами?, Необходимо перенести таблицу из MS Exel в MS Word
 
В MS Exel очень неудобно делать титульные листы, протоколы и т.п., зато очень удобно создавать и заполнять таблицы. Я где-то слышал что можно создать шаблон в MS Word, а данные чтоб из файла Exel брались. Подскажите пожалуйста как это делается.
Страницы: 1
Наверх