[drk001]

Mircy mam pytanie do szpeców z excela.
Mam plik tekstowy z adresami, który wklejam do excela (wygląda to jak po lewej).
Chciałbym przekształcić wiersze w kolumny. Robie to za pomocą funkcji "transpozycja"
Tyle, że jak zazanczę więcej niż jedną partię danych (adres, nazwisko itd) to excel transponuje mi wszystko w poziomie.
Chciałbym aby kończył na telefonie i kolejną partię danych wrzucał mi do kolejnej kolumny zaczynając od nazwy firmy.

Da się to jakoś zrobić z pomocą tej funkcji? Chybam że w jakiś inny sposób? Ktoś coś?
#excel

[brak_nicku]

@drk001: każdy adres to 5 wierszy?

[komtraja]

@drk001: excel transpose every 3 rows https://www.extendoffice.com/documents/excel/3360-excel-transpose-every-5-rows.html

[drk001]

@brak_nicku: w niektórych jest więcej wierszy - dochodzi np. adres mailowy

[L.....k]

@drk001: może np funkcja przesunięcie i jako jej argumenty liczby z kilku kolumn pomocniczych?
https://support.office.com/pl-pl/article/PRZESUNI%C4%98CIE-funkcja-c8de19ae-dd79-4b9b-a14e-b4d906d11b66
zamiast argumentów liczbowych można wpisać odwołania do komórek - do kolumn pomocniczych, które wypełniasz liczbami

[brak_nicku]

@drk001: to musisz pokazać więcej danych, zapewne da się to zrobić za pomocą formuł(y), ale zależy jaki konkretnie jest układ

[drk001]

@brak_nicku:
Wygląda to tak: https://db.tt/U4IkUmGs
Jest to plik tekstowy wklejony do excela.
Adresów będzie sporo ok. 250.

[brak_nicku]

I co chesz dokładnie na tej podstawie uzyskać? dane wejściowe mają niezbyt spójny format, raz nazwa to 1 wiersz, innym razem 2 wiersze, chcesz to po prostu przetransponować, czy uzyskać jeden typ informacji w każdej kolumnie?

[brak_nicku]

@drk001: ^^^

[drk001]

@brak_nicku: Chciałbym uzyskać coś najbliżej tego: https://db.tt/EUdUBxU0

[drk001]

@brak_nicku: Tu dokładniej czyli rozbicie danych na kolumny: https://db.tt/xLtZamU9

[JanKremovski]

@drk001: Hej, poniżej napisane na szybko makro. Działa na zaznaczonym przez ciebie zakresie komórek.

Option Explicit

Sub transpose()
Dim i, j As Integer
Dim cell0, cell1, cell2 As Range
Dim firstcell As Range

j = 1
For i = 1 To Selection.Rows.Count

Set cell0 = Selection.Cells(i - 1, 1)
Set cell1 = Selection.Cells(i, 1)
Set cell2 = Selection.Cells(i + 1, 1)

If cell0 = "" And cell1 <> "" Then

Set

[drk001]

@JanKremovski: Dzięki. Zaraz testuje.

[drk001]

@JanKremovski: U mnie wygląda to tak. Trochę wychodzi miszmasz ze względu, że dane wejściowe są niezbyt spójne. Dodatkowo jak zaznacze kolumnę zawierającą więcej danych wyskakuje błąd 1004. Do kilku adresów wykonuję swoją pracę przy większym zakresie jest błąd.

[drk001]

@JanKremovski @brak_nicku Chyba tę opcję sobie odpuszcze. Mam takie pytanie czy dało by się zautomatyzować aby zaznaczone dane (nazwę, adres, tel. itd) excel scalił mi jako jedną komórkę? Każda firma z danymi kontaktowymi jako jedna komórka.

[JanKremovski]

@drk001: Hej, 1004 nie wyskoczy, jesli dodasz 1 wiersz na samej gorze i zaznaczysz od 2 wiersza w arkuszu (sorry pisalem na szybko i nie zauwazylem ze bedzie probowalo zaczac od wiersza 1-1=0, ktory nie istieje).

[JanKremovski]

@drk001: Drugie makro do scalania komórek, bez błędu 1004.

Sub merge()
Dim i, j As Integer
Dim cell0, cell1, cell2 As Range
Dim firstcell As Range
Application.ScreenUpdating = False
On Error Resume Next
Columns("B").ColumnWidth = 45
For i = 1 To Selection.Rows.Count

Set cell0 = Selection.Cells(i - 1, 1)
Set cell1 = Selection.Cells(i, 1)
Set cell2 = Selection.Cells(i + 1, 1)

If cell0 = "" And cell1 <> "" Then

Set

[drk001]

@JanKremovski: Wielkie dzięki, działa. Super sprawa! :)

[drk001]

@JanKremovski:
Kolego czy była by możliwość modyfikacji powyższego skryptu (do scalania komórek) aby po każdym wierszu wstawiał odstęp lub np. przecinek?

Skrypt daje fajny wynik ale jak mam zawijane wiersze w excelu, jak wyłączę opcję zawijania to jest ciągły tekst bez odstępów. Tak to wygląda: https://db.tt/wyTWB2dO

A tutaj plik excela: https://db.tt/kGYCMlYK
Będę wdzieczny za wskazówki.