Pytanie : Przodować - Próbować the zawartość 2 kolumna w (1) komórka z niektóre formatowanie.

I mieć przodować prześcieradło z 3 kolumna w ono: SKU#, LOT#, i ilość.  W the istniejący prześcieradło I mieć wieloskładnikowy linia dla wieloskładnikowy SKU# ponieważ wieloskładnikowy SKU mieć wielokrotność Lots.

Unfortunately mój inwentarz oprogramowanie potrzeba mój inaczej.  Ono potrzebować 3 kolumna SKU, Udział liczba & sumaryczny Ilość. I potrzebować the Udział w the format "LOT1 (QTY), LOT2 (QTY)" i the sumaryczny iloczasowy kolumna być the ilość wszystkie udział dodawać wpólnie. (I dołączać przykład the dwa kartoteka, prawdopodobnie jaśniejszy mój explanation.

I am sposób pismo dla formuła ten łatwy, łatwy ten SKUs mieć sto Udział liczba, więc re-typing udział w the konieczny format być mnóstwo praca, i dla literówka. Jeżeli i mieć pomysł I być wdzięczny.

Thanks,
Attachments:
Example-Existing.xls (17 KB)  (Kartoteka Typ Szczegół)  
Istniejący Inwentarz File
Example-Needed.xls (17 KB)  (Kartoteka Typ Szczegół)  
Format Konieczny dla Import

Odpowiedź : Przodować - Próbować the zawartość 2 kolumna w (1) komórka z niektóre formatowanie.

Tutaj być jeden podejście, rezultat na 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:

Okręt podwodny x ()

Ćmić oDic Przedmiot, sNames () Jako Sznurek, vInput (), i Długo, n Długo

vInput = Sheet1.Range ("A1", Sheet1.Range ("C" & Rows.Count). Końcówka (xlUp)). Wartość
ReDim sNames ((1) UBound (vInput, 1), (1) 3)
Ustalony oDic = CreateObject ("Scripting.Dictionary")

Z oDic
    Dla i = (1) UBound (vInput, 1)
        Jeśli nie. Istnieć (vInput (i, 1)) Wtedy
            n = n + (1)
            sNames (n, 1) = vInput (i, 1)
            sNames (n, 2) = vInput (i, 2) & "(" & vInput (i, 3) & ")"
            sNames (n, 3) = vInput (i, 3)
            . Dodawać vInput (i, 1), n
        ElseIf. Istnieć (vInput (i, 1)) Wtedy
            sNames (. Rzecz (vInput (i, 1)), 2) = sNames (. Rzecz (vInput (i, 1)), 2) & "," & vInput (i, 2) & "(" & vInput (i, 3) & ")"
            sNames (. Rzecz (vInput (i, 1)), 3) = sNames (. Rzecz (vInput (i, 1)), 3) + vInput (i, 3)
        Kończyć Jeżeli
    Następnie i
Końcówka Z

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

Kończyć Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us