Aktywne Wpisy
njdnsjdnjs +5
ile razy rzygaliscie z powodu upojenia alkoholowego
ale tak bezposrednio po, na kacu sie nie liczy
ja tylko 2 i to bylo okropne doswiadczenie
ale tak bezposrednio po, na kacu sie nie liczy
ja tylko 2 i to bylo okropne doswiadczenie
Runaway28 +5
#przegryw jest piwo są ciperki można dalej wegetować...
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
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
Wygląda to tak: https://db.tt/U4IkUmGs
Jest to plik tekstowy wklejony do excela.
Adresów będzie sporo ok. 250.
Komentarz usunięty przez autora
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
Komentarz usunięty przez autora
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
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.