Pergunta : Excel - tentando mover os índices de 2 colunas em 1 pilha com algum formato.

Eu tenho uma folha primar com as 3 colunas nela: SKU#, LOT#, e quantidade.  Na folha existente eu tenho linhas múltiplas para cada SKU# porque cada SKU tem múltiplo software do inventário de Lots.

Unfortunately meu precisa de ser formatado diferentemente.  Precisa 3 colunas SKU, números de lote & a quantidade total. Eu preciso de incorporar os lotes ao formato “LOT1 (QTY), LOT2 (QTY)” e a coluna total da quantidade seria a quantidade de todos os lotes adicionados junto. (Eu uni exemplos das duas limas, provavelmente esclarecedor do que meus explanation.

I am que esperam encontrar uma maneira de usar um certificado para que a fórmula faça este mais fácil, algum deste SKUs têm cem números de lote, assim que datilografar estes no formato necessário é muito trabalho, e pedir erros tipográficos. Se qualquer um tem uma idéia eu seria grato.

Thanks, class= do " lastRow do
>Attachments do " nome " do class= do class= " valor " do
>
class= " fileInfo " do
o title= " do " nome de arquivo do class= " do Example-Existing.xls o class= (17 KB)  Javascript " do href= " dos " attachmentDetails do class= do (tipo de lima detalhes)  
class= " descrição " do
Inventário existente File
o class= de
do >
>
class= " fileInfo " do
o title= " do " nome de arquivo do class= " do Example-Needed.xls o class= (17 KB)  Javascript " do href= " dos " attachmentDetails do class= do (tipo de lima detalhes)  
class= " descrição " do
Formato necessário para Import
o class= de
do >
class= do

Resposta : Excel - tentando mover os índices de 2 colunas em 1 pilha com algum formato.

Está aqui uma aproximação, resultados em 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:

X secundário ()

oDic não ofuscante como o objeto, sNames () como a corda, vInput (), i como por muito tempo, n como por muito tempo

vInput = Sheet1.Range (“A1”, Sheet1.Range (“C” & Rows.Count). Extremidade (xlUp)). Valor
sNames de ReDim (1 a UBound (vInput, 1), 1 a 3)
oDic ajustado = CreateObject (“Scripting.Dictionary”)

Com oDic
    Para i = 1 a UBound (vInput, 1)
        Se não. Existe (vInput (i, 1)) Então
            n = n + 1
            sNames (n, 1) = vInput (i, 1)
            sNames (n, 2) = vInput (i, 2) & “(” & vInput (i, 3) & ")”
            sNames (n, 3) = vInput (i, 3)
            . Adicionar o vInput (i, 1), n
        ElseIf. Existe (vInput (i, 1)) Então
            sNames (. Artigo (vInput (i, 1)), 2) = sNames (. Artigo (vInput (i, 1)), 2) & “,” & vInput (i, 2) & “(” & vInput (i, 3) & ")”
            sNames (. Artigo (vInput (i, 1)), 3) = sNames (. Artigo (vInput (i, 1)), 3) + vInput (i, 3)
        Terminar se
    Em seguida i
Extremidade com

Sheet2.Range (“A1”). Resize (n, 3) = sNames

Terminar o submarino
Outras soluções  
 
programming4us programming4us