Кто шарит в Excel?

[jiumohoo]

/del

 

[284]

Формат вывода какой?
Возможно легче в R или python
апд. понял автор отредачил стало ясно

---------Двойное сообщение соединено: 4 Дек 2020---------

по нынешней версии вообще все просто,
базовый артикул это

1234567899000

+1 за каждую строчку вниз

 

[⠀]

Переведу 500, если найдётся оптимальное решение.

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


К примеру:
Исходное, что у меня

Артикул	Коробов
888	5
555	1
ГГГ	9

3 артикула - 15 коробов
----------------------------------------
Сгенерировано 15 ШК
1234567899001
1234567899002
1234567899003
1234567899004
1234567899005
1234567899006
1234567899007
1234567899008
1234567899009
1234567899010
1234567899011
1234567899012
1234567899013
1234567899014
1234567899015

Мне надо их подтянуть в соответствие коробов

Артикул	Коробов
888	1234567899001 1234567899002 1234567899003 1234567899004 1234567899005
555	1234567899006
ГГГ	1234567899007 1234567899008 1234567899009 1234567899010 1234567899011 1234567899012 1234567899013 1234567899014 1234567899015

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

Думается мне, что в Эксель можно нечто подобное на костылях сделать, но не ручками копировать каждый раз будь у тебя 100 строк артикулов и везде количество коробов будет разное

бас теперь же с exel работает, не пробовал?

 

[jiumohoo]

Формат вывода какой?
Возможно легче в R или python
апд. понял автор отредачил стало ясно

---------Двойное сообщение соединено: 4 Дек 2020---------

по нынешней версии вообще все просто,
базовый артикул это

1234567899000

+1 за каждую строчку вниз

У мну 2016 на работе) По проще можешь написать? Я не понил

 

[284]

попробовал пока играбельной версии не нашел в екселе

 

[jiumohoo]

попробовал пока играбельной версии не нашел в екселе

Надо такое, но ручками заёбисто, думаю как проще сделать

 

[MeatyBanana]

Ну VBA скрипт же

 

[jiumohoo]

Ну VBA скрипт же

Дак мб поможешь?

 

[stimul14]

Если тут не подскажут, то спроси здесь

 

[Lister]

/del

 

[LTD akvolabeaN]

Кто скажет почему не работает скажу большое спасибо

руки_из-жёппы.джепег

жду спасибу

 

[Lister]

руки_из-жёппы.джепег

жду спасибу

cпасибо друг

@jiumohoo

https://fex.net/ru/s/xzzdvo6

Function miped(x As String, y As Integer)


    Dim c As String
    Dim result As String
    Dim i As Integer
    i = Len(x)
    c = Mid(x, i - 8, 9)
   
    For z = 1 To y
        result = result + "WB_" & CStr(c) + z & " "
    Next z
    miped = result
End Function

работает!
[/CODE]