Cuestión : Excel - intentando trasladarse el contenido de 2 columnas a 1 célula con un cierto formato.

Tengo una hoja del sobresalir con 3 columnas en ella: SKU#, LOT#, y cantidad.  En la hoja existente tengo líneas múltiples para cada SKU# porque cada SKU tiene múltiple mi software del inventario de Lots.

Unfortunately necesita ser dado formato diferentemente.  Necesita 3 columnas SKU, números de porción y cantidad total. Necesito incorporar las porciones en el formato “LOT1 (QTY), LOT2 (QTY)” y la columna total de la cantidad sería la cantidad de todas las porciones agregadas juntas. (He atado los ejemplos de los dos archivos, probablemente clarificante que mis explanation.

I que esperan encontrar una manera de utilizar una escritura para que la fórmula haga este más fácil, algo de este SKUs tienen cientos números de porción, así que escribir de nuevo éstos a máquina en el formato necesario es mucho trabajo, y el pedir errores tipográficos. Si cualquier persona tiene una idea sería agradecido.

Thanks, class= " lastRow del
>Attachments del " nombre " del class= del class= " valor " del
del >
class= " fileInfo " del
el title= " del " nombre de fichero del class= " del Example-Existing.xls el class= (17 KB)  Javascript del href= " de los " attachmentDetails del class= " del (tipo de archivo detalles)  
class= " descripción " del
Inventario existente File
el class= de
del >
del >
class= " fileInfo " del
el title= " del " nombre de fichero del class= " del Example-Needed.xls el class= (17 KB)  Javascript del href= " de los " attachmentDetails del class= " del (tipo de archivo detalles)  
class= " descripción " del
Formato necesario para Import
el class= de
del >
class= del

Respuesta : Excel - intentando trasladarse el contenido de 2 columnas a 1 célula con un cierto formato.

Aquí está un acercamiento, resultados en 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 secundario ()

oDic dévil como objeto, sNames () como secuencia, vInput (), i como de largo, n como de largo

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

Con oDic
    Para i = 1 a UBound (vInput, 1)
        Si no. Existe (vInput (i, 1)) entonces
            n = n + 1
            sNames (n, 1) = vInput (i, 1)
            sNames (n, 2) = vInput (i, 2) y “(” y vInput (i, 3) y ")”
            sNames (n, 3) = vInput (i, 3)
            . Agregar el vInput (i, 1), n
        ElseIf. Existe (vInput (i, 1)) entonces
            sNames (. Artículo (vInput (i, 1)), 2) = sNames (. Artículo (vInput (i, 1)), 2) y “,” y vInput (i, 2) y “(” y vInput (i, 3) y ")”
            sNames (. Artículo (vInput (i, 1)), 3) = sNames (. Artículo (vInput (i, 1)), 3) + vInput (i, 3)
        Terminar si
    Después i
Extremo con

Sheet2.Range (“A1”). Volver a clasificar según el tamaño (n, 3) = sNames

Terminar el submarino
Otras soluciones  
 
programming4us programming4us