как из двухуровневого отчета вставить в n-1 уровень заголовок n строки?

Пользователь

Сообщений: 149 Регистрация: 01.01.1970

07.08.2020 11:50:41

Добрый день!

Есть двухуровневый отчет, который выгружается из 1С. Я хочу сделать АВС анализ движения товаров по данному складу. По какой-то неведомой причине нельзя в 1С сделать регистратор движения и артикул в одной строке, только многоуровневый отчет.

Поэтому нужна Ваша помощь, котаны

В описании звучит коряво, поэтому прилагаю пример, там все наглядно.

Прикрепленные файлы

пример.xlsx (13.38 КБ)

Just keep doing!..

Mershik

Пользователь

Сообщений: 8277 Регистрация: 03.12.2015

07.08.2020 12:05:59

Вагиз,

Код

Sub art()
Dim i As Long
Dim lr As Long
lr = Cells(Rows.Count, 1).End(xlUp).Row
Columns(7).Insert
For i = 3 To lr
If Cells(i, 1) <> "" And Cells(i, 5) <> "" Then
    x = Cells(i, 5)
    y = Cells(i, 1)
Else
    Cells(i, 7) = x
    Cells(i, 1) = y & " " & Cells(i, 1)
End If
Next i
End Sub

Не бойтесь совершенства. Вам его не достичь.

Вагиз Пользователь Сообщений: 149 Регистрация: 01.01.1970	#3 07.08.2020 14:36:55 Спасибо! Just keep doing!..