Vraag : Excel die - de inhoud van 2 kolommen in 1 cel proberen te bewegen met wat het formatteren.

Ik heb blad met 3 kolommen daarin uitblinken: SKU#, LOT#, en hoeveelheid.  In het bestaande blad heb ik veelvoudige lijnen voor elke SKU# omdat elke SKU veelvoudige Lots.

Unfortunately heeft mijn inventarissoftware moet verschillend worden geformatteerd.  Het vergt 3 kolommen SKU, de aantallen van de Partij & totale Hoeveelheid. Ik moet de Partijen in het formaat „LOT1 (QTY) ingaan, LOT2 (QTY)“ en de totale hoeveelheidskolom zou de hoeveelheid alle samen toegevoegde partijen zijn. (ik heb voorbeelden van de twee dossiers vastgemaakt, waarschijnlijk duidelijker dan mijn explanation.

I am hebben een manier hopen te vinden om een manuscript voor formule te gebruiken om dit gemakkelijker te maken, sommige van dit SKUs honderd aantallen van de Partij, zodat is het opnieuw typen van deze in het noodzakelijke formaat heel wat werk, en het vragen om typos. Als iedereen een idee heeft zou ik dankbaar zijn.

Thanks,
Attachments:
van
Example-Existing.xls (17 KB)  (de Details van het Type van Dossier)  
Bestaande Inventaris File
van
Example-Needed.xls (17 KB)  (de Details van het Type van Dossier)  
Formaat Noodzakelijk voor Import

Antwoord : Excel die - de inhoud van 2 kolommen in 1 cel proberen te bewegen met wat het formatteren.

Hier is één benadering, voortvloeit op 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 ()

Schemerige oDic als Voorwerp, sNames () als Koord, vInput (), I zoals lang, n zoals lang

vInput = Sheet1.Range („A1“, Sheet1.Range („C“ & Rows.Count). Eind (xlUp)). Waarde
ReDim sNames (1 aan UBound (vInput, 1), 1 tot 3)
Vastgestelde oDic = CreateObject („Scripting.Dictionary“)

Met oDic
    Voor I = 1 aan UBound (vInput, 1)
        Als niet. Bestaat (vInput (I, 1)) Dan
            n = n + 1
            sNames (n, 1) = vInput (I, 1)
            sNames (n, 2) = vInput (I, 2) & „(“ & vInput (I, 3) & „)“
            sNames (n, 3) = vInput (I, 3)
            . Voeg vInput (I, 1), n toe
        ElseIf. Bestaat (vInput (I, 1)) Dan
            sNames (. Punt (vInput (I, 1)), 2) = sNames (. Punt (vInput (I, 1)), 2) & „,“ & vInput (I, 2) & „(“ & vInput (I, 3) & „)“
            sNames (. Punt (vInput (I, 1)), 3) = sNames (. Punt (vInput (I, 1)), 3) + vInput (I, 3)
        Eind als
    Volgende I
Eind met

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

Beëindig Sub
Andere oplossingen  
 
programming4us programming4us