Temat: Jak scalić wiersze gdzie kluczowa komórka się duplikuje a...

Witam. Byłbym wdzięczny za poradę w scalaniu, chyba nietypowym, bo mi Google nie pomogły:

Jak połączyć wiersze w których komórki w kluczowej kolumnie się duplikują, a wiersze te mają różne wartości w różnych (innych) kolumnach.
Kolumna A to wyrazy - każdy wiersz ma coś wpisane w kolumnie "A" i bardzo dużo wierszy ma to samo w kolumnie A. Jak można scalić wszystkie wiersze-duplikaty, tak by w kolumnie A były tylko nazwy unikalne. W pozostałych kolumnach tych wierszy są różne wartości - w różnych kolumnach z różnych źródeł - dlatego nic nie będzie się nadpisywało, poza polem A

Obrazowo. Np. grupa wierszy o wartości "su" w kluczowej-identyfikującej kolumnie

A B C D E F
su 1 2 2 3 4
su...................5 6 5 6
su..................................3 4 22
su..............................................7 8 9 10

żeby scalić je w taki wiersz (jakby zgnieść do jednego wiersza z zachowaniem kolumn):

su 1 2 3 4 5 6 5 6 3 4 22 7 8 9 10

Oczywiście takich grupek 2 lub więcej duplikatów do ściśnięcia w unikatowe wiersze jest b. dużo.
Pozdrawiam

Temat: Jak scalić wiersze gdzie kluczowa komórka się duplikuje a...

Witam,
o ile dobrze zrozumiałem problem, to spróbuj może odpalić makro typu:

Sub Makro1()

Dim a&, b&, i&, j&, k&



a = Cells(Rows.Count, 1).End(xlUp).Row



With Worksheets("Arkusz2")

  Range("A1:A" & a).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.Range("A1"), Unique:=True

  b = .Cells(.Rows.Count, 1).End(xlUp).Row

  For i = 2 To b

    For j = 1 To a

      If Cells(j, 1).Value = .Cells(i, 1).Value Then

        For k = 2 To 17

          If Cells(j, k).Value <> "" Then .Cells(i, k).Value = Cells(j, k).Value

        Next k

      End If

    Next j

  Next i

End With



End Sub

Pozdrawiam.Darek J. edytował(a) ten post dnia 14.08.12 o godzinie 12:36

Temat: Jak scalić wiersze gdzie kluczowa komórka się duplikuje a...

Dzięki, ale nie wiem gdzie to mam wrzucić w VBasic, żeby coś się zadziało działo po uruchomieniu makra... Na składni się niestety nie znam...

Temat: Jak scalić wiersze gdzie kluczowa komórka się duplikuje a...

Dla Ex > 2003 wstążka Developer, Visual Basic, następnie najeżdżamy myszką na odpowiednią nazwę Arkusza w lewym górnym oknie, prawy przycisk Insert/Module Wklejamy makro i je odpalamy Run/Run. W razie kłopotów proponuję wujka Google, pozdrawiam.Darek J. edytował(a) ten post dnia 16.08.12 o godzinie 19:11

Temat: Jak scalić wiersze gdzie kluczowa komórka się duplikuje a...

Tak, to już wiem, była kwestia zezwolenia Excelowiw2010 na uruchamianie makr...

Aczkolwiek:

Zależnie od pliku wywala mi.
Run-time error 1004: W wydzielonym zakresie brakuje nazwy pola lub jest ona niepoprawna
lub
Can't execute code in break mode

Tak czy siak - zacina się na linijce kodu "Range ("A1:A" & a) [...]"
Jak rozumiem makro ma jakieś wymagania co do struktury danych. Ilość wierszy, kolumn, nagłówki lub ich brak. Dostałem makro, ale chyba muszę się jakoś do niego dostosować?

Pozdrawiam