Questione : Excel - provando ad entrare il contenuto di 2 colonne in 1 cellula con una certa formattazione.

Ho uno strato di supremazia con 3 colonne in esso: SKU#, LOT# e quantità.  Nello strato attuale ho linee multiple per ogni SKU# perché ogni SKU ha multiplo mio software di inventario di Lots.

Unfortunately deve essere formattato diversamente.  Ha bisogno di 3 colonne SKU, dei numeri di lotto & della quantità totale. Devo fornire i lotti nella disposizione “LOT1 (QTY), LOT2 (QTY)„ e la colonna totale di quantità sarebbe la quantità di tutti i lotti aggiunti insieme. (Ho attaccato gli esempi delle due lime, probabilmente pulitore che i miei explanation.

I che sperano di trovare un senso usare uno scritto affinchè la formula facciano questo più facile, alcuno di questo SKUs hanno cento numeri di lotto, in modo da riscrivere questi a macchina nella disposizione necessaria è molto lavoro e chiedere i typos. Se chiunque ha un'idea sarei riconoscente.

Thanks, class= " lastRow del
>Attachments " di nome " del class= del class= " valore " del
il

class= " fileInfo " del
il title= " " di nome di schedario del class= " di Example-Existing.xls il class= (17 KB)  Javascript " del href= " " dei attachmentDetails del class= di (tipo di lima particolari)  
class= " descrizione " del
Inventario attuale File
il class= di
del >
il
class= " fileInfo " del
il title= " " di nome di schedario del class= " di Example-Needed.xls il class= (17 KB)  Javascript " del href= " " dei attachmentDetails del class= di (tipo di lima particolari)  
class= " descrizione " del
Disposizione necessaria per Import
il class= di
del >
class= del

Risposta : Excel - provando ad entrare il contenuto di 2 colonne in 1 cellula con una certa formattazione.

Qui è un metodo, risultati su 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 secondaria ()

oDic fioco come oggetto, sNames () come stringa, vInput (), i come lungamente, n come lungamente

vInput = Sheet1.Range (“A1„, Sheet1.Range (“C„ & Rows.Count). Estremità (xlUp)). Valore
sNames di ReDim (1 a UBound (vInput, 1), 1 - 3)
oDic stabilito = CreateObject (“Scripting.Dictionary„)

Con oDic
    Per i = 1 a UBound (vInput, 1)
        Se non. Esiste (vInput (i, 1)) allora
            n = n + 1
            sNames (n, 1) = vInput (i, 1)
            sNames (n, 2) = vInput (i, 2) & “(" & vInput (i, 3) & ")„
            sNames (n, 3) = vInput (i, 3)
            . Aggiungere il vInput (i, 1), n
        ElseIf. Esiste (vInput (i, 1)) allora
            sNames (. Articolo (vInput (i, 1)), 2) = sNames (. Articolo (vInput (i, 1)), 2) & “,„ & vInput (i, 2) & “(" & vInput (i, 3) & ")„
            sNames (. Articolo (vInput (i, 1)), 3) = sNames (. Articolo (vInput (i, 1)), 3) + vInput (i, 3)
        Concluder se
    Dopo i
Estremità con

Sheet2.Range (“A1„). Ridimensionare (n, 3) = sNames

Concludere il sommergibile
Altre soluzioni  
 
programming4us programming4us