Вопрос : Эксел - пытающся для того чтобы двинуть содержание 2 колонок в 1 клетку с некоторой форматизацией.

Я имею лист первенствовать с 3 колонками в ем: SKU#, LOT#, и количество.  В существующий листе я имею множественные линии для каждого SKU# потому что каждому SKU имеет множественно средство программирования инвентаря Lots.

Unfortunately мое нужно быть форматным по-разному.  Для этого нужно 3 колонки SKU, номера серии & полное количество. Мне нужно вписать серии в форму «LOT1 (QTY), LOT2 (QTY)» и полная колонка количества была бы количеством всех серий добавленных совместно. (Я прикреплял примеры 2 архивов, вероятно clearer чем мои explanation.

I am надеясь найти дорогу использовать сценарий для формулы для того чтобы сделать эта легкую, некоторое из этого SKUs имеют 100 номеров серии, поэтому перепечатывать эти в обязательно форму много работой, и просить typos. Если любое имеет идею, то я был бы признательн.

Thanks, class= " lastRow
>Attachments " имени " class= class= " значение "
>
class= " fileInfo "
title= " " filename class= " Example-Existing.xls (17 KB)  яваскрипт " href= " " attachmentDetails class= (тип архива детали)  
class= " описание "
Существующий инвентарь File
class=
>
>
class= " fileInfo "
title= " " filename class= " Example-Needed.xls (17 KB)  яваскрипт " href= " " attachmentDetails class= (тип архива детали)  
class= " описание "
Форма обязательно для Import
class=
>
class=

Ответ : Эксел - пытающся для того чтобы двинуть содержание 2 колонок в 1 клетку с некоторой форматизацией.

Здесь один подход, результаты на sheet2.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

Sub x ()

Тусклое oDic как предмет, sNames () как шнур, vInput (), I как длиной, n как длиной

vInput = Sheet1.Range («A1», Sheet1.Range («c» & Rows.Count). Конец (xlUp)). Значение
sNames ReDim (1 к UBound (vInput, 1), 1 до 3)
Установленное oDic = CreateObject («Scripting.Dictionary»)

С oDic
    Для I = 1 к UBound (vInput, 1)
        Если не. Существует (vInput (I, 1)) после этого
            n = n + 1
            sNames (n, 1) = vInput (I, 1)
            sNames (n, 2) = vInput (I, 2) & «(" & vInput (I, 3) & ")»
            sNames (n, 3) = vInput (I, 3)
            . Добавьте vInput (I, 1), n
        ElseIf. Существует (vInput (I, 1)) после этого
            sNames (. Деталь (vInput (I, 1)), 2) = sNames (. Деталь (vInput (I, 1)), 2) & «,» & vInput (I, 2) & «(" & vInput (I, 3) & ")»
            sNames (. Деталь (vInput (I, 1)), 3) = sNames (. Деталь (vInput (I, 1)), 3) + vInput (I, 3)
        Закончитесь если
    Затем iий
Конец с

Sheet2.Range («A1»). Измените размеры (n, 3) = sNames

Закончите подводную лодку
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us