Fråga : Excel - som är pröva till den flyttningen, tillfredsställer av 2 kolonner in i 1 cell med något formatera.

Jag har en överträffa att täcka med 3 kolonner i den: SKU#, LOT# och antal.  I det existerande täcka mig har multipel fodrar för varje SKU#, därför att varje SKU har min inventariumprogramvara för multipeln Lots.

Unfortunately behöver att formateras olikt.  Den behöver 3 kolonner SKU, numrerar mycket & det sammanlagda antalet. Jag behöver att skriva in lotten i formatera ”LOT1 (antal), LOT2 (antal)”, och sammanlagda den skulle antalskolonnen är lotten för antalet som allra tillsammans tillfogas. Så skriva om dessa in i det nödvändigt formatera är ett raddaarbete och att fråga för typos, (jag har fäst exempel av tvåna sparar, antagligen klareraren, än min förmiddag för explanation.

I hoppas för att finna a långt för att använda en skriva för att formel ska göra denna lättare, något av denna SKUs, har hundra numrerar mycket. Om någon har en idé, jag skulle är tacksam.

Thanks, Attachments: för >
<-/div> " title= " för den Example-Existing.xls (17 KB)  " javascript för href= " för Existerande inventarium File <-/div>
för >
<-/div> för >
<-/div> " title= " för den Example-Needed.xls (17 KB)  " javascript för href= " för Formatera nödvändigt för Import <-/div>
för >
<-/div> " klar "

Svar : Excel - som är pröva till den flyttningen, tillfredsställer av 2 kolonner in i 1 cell med något formatera.

Är här en att närma sig, resultat på 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:

Underx ()

Dunkelt oDic som anmärker, sNames () som stränger, vInput (), I som Long, n som Long

vInput = Sheet1.Range (”A1”, Sheet1.Range (”C” & Rows.Count). Avsluta (xlUp)). Värdera
ReDim sNames (1 till UBound (vInput, 1), 1 till 3)
Fastställdt oDic = CreateObject (”Scripting.Dictionary”)

Med oDic
    För I = 1 till UBound (vInput, 1)
        Om inte. Finns (vInput (I, 1)) Därefter
            n = n + 1
            sNames (n, 1) = vInput (I, 1)
            sNames (n, 2) = vInput (I, 2) & ”(” & vInput (I, 3) & ”)”,
            sNames (n, 3) = vInput (I, 3)
            . Tillfoga vInput (I, 1), n
        ElseIf. Finns (vInput (I, 1)) Därefter
            sNames (. Objekt (vInput (I, 1)), 2) = sNames (. Objekt (vInput (I, 1)), 2) & ”,” & vInput (I, 2) & ”(” & vInput (I, 3) & ”)”,
            sNames (. Objekt (vInput (I, 1)), 3) = sNames (. Objekt (vInput (I, 1)), 3) + vInput (I, 3)
        Avsluta om
    Därefter i
Avsluta med

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

Avsluta suben
Andra lösningar  
 
programming4us programming4us