Sub Pr()
Application.OnTime TimeValue("12:00:00"), "Pr"
Dim Data As Integer
Data = Cells(Rows.Count, 2).End(xlUp).Row + 1
Cells(Data, 2) = Format(Now, "DD.MM.YYYY")
 
Dim q As Integer
Dim w As Integer
w = 1
For q = 2 To ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row
If (Range("B" & q) <> "") Then
Range("A" & q) = w
w = w + 1
End If
Next
End
 
End Sub

Теперь надо сделать третью колонку, в которой каждый раз будет копироваться ячейка, заполненная ранее т.е. скопировать значение из ячейки выше в этой же колонке (значение в первой ячейке задается в ручную).
P.S. Если можно как-то оптимизировать код, приведенный мною, будет тоже хорошо.
Спасибо.

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

19.08.2015, 09:12

Ответы с готовыми решениями:

Поиск и запись предыдущего значения
Добрый день! Надо организовать поиск и запись предыдущего значения по идентификатору.Есть два...

Проставить в таблице значения каждое следующее на 1 больше предыдущего
Помогите, пожалуйста решить простую задачку. В таблице с определенным диапазоном необходимо...

Открытие файла, поиск значения и копирование значения в исходный файл
Уважаемые форумчане, помогите, пожалуйста, с выполнением "простой" задачи (если можно - с...

Вывести индексы тех элементов, значения которых больше значения предыдущего
Прошу,помогите решить ) Дан массив целых чисел, состоящий из 10 элементов. Заполнить его с...

	19.08.2015, 09:12

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

19.08.2015, 09:12

Помогаю со студенческими работами здесь

Определить номера элементов массива, значения которых больше значения предыдущего элемента
Дан одномерный массив размерности 20. Заполнить его случайными числами на отрезке . Определить...

Подсчитать количество элементов массива, значения которых больше значения предыдущего элемента
Подсчитать кол-во элементов значения которых больше значения предыдущего элемента? Срочно нужно!...

Подсчитать количество элементов последовательности, значения которых больше значения предыдущего элемента
Дана последовательность из n действительных чисел.( Задачу нужно решить, используя одномерный...

Найти индексы тех элементов массива, значения которых больше значения предыдущего элемента
Дан массив 20 целых чисел. Элементы массива вводить с клавиатуры. Найти индексы тех элементов,...

Найти индексы тех элементов массива, значения которых больше значения предыдущего элемента
Дан массив целых чисел.Найти индексы тех элементов массива, значения которых больше значения...

Вывести индекс тех элементов амссива, значения которых больше значения предыдущего элемента
На паскале Дан массив целых чисел,состоящий из 10 элементов.Заполнить его с клавиатуры.Найти: ...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Опции темы

Наверх