Frage : Excel - versuchend, den Inhalt von 2 Spalten in 1 Zelle mit etwas Formatierung zu verschieben.

Ich habe ein übertreffenblatt mit 3 Spalten in ihm: SKU#, LOT# und Quantität.  Im vorhandenen Blatt habe ich mehrfache Linien für jedes SKU#, weil jedes SKU mehrfach Lots.

Unfortunately meine Warenbestand-Software muss anders als formatiert werden hat.  Es benötigt 3 Spalten SKU, Partienummern u. Gesamtquantität. Ich muss die Lose in das Format „LOT1 (Menge), LOT2 (Menge)“ eintragen und die Gesamtquantitätsspalte würde die Quantität aller Lose sein, die zusammen addiert wurden. (Ich habe Beispiele der zwei Akten, vermutlich Reiniger angebracht, als meine explanation.

I morgens hoffend, eine Weise zu finden, einen Index zu benutzen, haben damit Formel dieses einfachere, etwas von diesem SKUs hundert Partienummern bildet, also, diese in das notwendige Format neu zu tippen viel Arbeit und Bitten um Typos ist. Wenn jedermann eine Idee hat, würde ich dankbar sein.

Thanks,
Attachments:
Example-Existing.xls (17 KBS)  (Akten-Art Details)  
Vorhandener Warenbestand File
Example-Needed.xls (17 KBS)  (Akten-Art Details)  
Format notwendig für Import

Antwort : Excel - versuchend, den Inhalt von 2 Spalten in 1 Zelle mit etwas Formatierung zu verschieben.

Ist hier eine Annäherung, Auswirkungen auf 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:

Vorx ()

Schwaches oDic als Gegenstand, sNames () als Schnur, vInput (), i als lang, n als lang

vInput = Sheet1.Range („A1“, Sheet1.Range („C“ u. Rows.Count). Ende (xlUp)). Wert
ReDim sNames (1 zu UBound (vInput, 1), 1 bis 3)
Gesetztes oDic = CreateObject („Scripting.Dictionary“)

Mit oDic
    Für i = 1 zu UBound (vInput, 1)
        Wenn nicht. Existiert (vInput (i, 1)) dann
            n = n + 1
            sNames (n, 1) = vInput (i, 1)
            sNames (n, 2) = vInput (i, 2) u. „(“ u. vInput (i, 3) u. ")“
            sNames (n, 3) = vInput (i, 3)
            . vInput (i, 1), n addieren
        ElseIf. Existiert (vInput (i, 1)) dann
            sNames (. Einzelteil (vInput (i, 1)), 2) = sNames (. Einzelteil (vInput (i, 1)), 2) u. „,“ u. vInput (i, 2) u. „(“ u. vInput (i, 3) u. ")“
            sNames (. Einzelteil (vInput (i, 1)), 3) = sNames (. Einzelteil (vInput (i, 1)), 3) + vInput (i, 3)
        Beenden wenn
    Zunächst I
Ende mit

Sheet2.Range („A1“). Die Größe neu bestimmen (n, 3) = sNames

Unterseeboot beenden
Weitere Lösungen  
 
programming4us programming4us