Заполнение таблицы средствами VBA или запросом

Гость1268
Дата: 21.01.2016 17:53:14
Есть таблица:
КодНомер ЗаказаНаименованиеКод1Код2
1Х1ХХХ00
2 ХХХ100
3 ХХХ200
4 ХХХ300
5 ХХХ400
6Х2ХХХ00
7 ХХХ00
8 ХХХ00
9Х3ХХХ00
10 ХХХ00
11 ХХХ00
12 ХХХ00
13Х4ХХХ00
14Х5ХХХ00
12 ХХХ00
12 ХХХ00
12 ХХХ00

Нужен запрос или программа которая обработает таблицу и даст результат вида!

КодНомер ЗаказаНаименованиеКод1Код2
1Х1ХХХ01
2 ХХХ101
3 ХХХ201
4 ХХХ301
5 ХХХ401
6Х2ХХХ06
7 ХХХ06
8 ХХХ06
9Х3ХХХ09
10 ХХХ09
11 ХХХ09
12 ХХХ09
13Х4ХХХ013
14Х5ХХХ014
12 ХХХ014
12 ХХХ014
12 ХХХ014

Помогите пожалуйста...
ПЕНСИОНЕРКА
Дата: 21.01.2016 18:13:50
Гость1268,

это весьма похоже не екселевскую таблицу --там это нормальная ситуация
Гость1268
Дата: 21.01.2016 18:18:50
ПЕНСИОНЕРКА,

Угу :(
Экселевская и есть... Теперь мне ее нужно заполнить, а как не знаю.
Akina
Дата: 21.01.2016 19:26:08
E2 = ЕСЛИ(B2="";B1;A2)
И растянуть...
Akina
Дата: 21.01.2016 19:26:48
Пардон, = ЕСЛИ(B2="";E1;A2)
guest_rusimport
Дата: 21.01.2016 20:15:49
Гость1268,
импортируете таблицу в Access
(Например, таблица t1)

и незатейливый запрос, использующий функцию в общем модуле
SELECT t1.Код, t1.[Номер Заказа], t1.Наименование, t1.Код1, fff([Номер Заказа],[Код]) AS Код2
FROM t1
ORDER BY t1.Код;

функция fff
Option Compare Database
Public n0

Function fff(n1, n)
If Not IsNull(n1) Then fff = n: n0 = n Else fff = n0
End Function
Гость1268
Дата: 22.01.2016 09:12:42
Cпасибо Огромное!
Именно то что нужно :)
MrShin
Дата: 22.01.2016 10:39:03
Паблик переменные - зло :)

Function fff(n1, n)
Static n0

If Not IsNull(n1) Then fff = n: n0 = n Else fff = n0
End Function
sdku
Дата: 23.01.2016 10:21:48
MrShin
Паблик переменные - зло :)
Категорично и аргументированно