GoldenLine
Zaloguj się
Janusz Dreziński

Janusz Dreziński Pełnomocnik Zarządu,
Kierownik Projektu,
Product Owner

Temat: Import danych od prawej do lewej

PROŚBA DO ADMINA o przeniesienie tego pytania do wątku: http://www.goldenline.pl/forum/733688/makra-i-visual-b...

*****************

Mam takie dane...

b.f.d
d.t.a.w
z.r.w.t.g
j.p

Excel importuje mi te dane tak...
A | B | C | D | E
b | d
d | t | a | w
z | r | w | t | g
j | p

A chcę żeby importował (lub już po imporcie żeby wyglądało) tak...

A | B | C | D | E
----------->b | d
--->d | t | a | w
z | r | w | t | g
----------->j | p

Litery: d w g p powinny znaleźć się w kolumnie E; litery: b a t j w kolumnie D; etc. czyli od prawej do lewej.

Jak powinno/mogłoby wyglądać do tego makro?Janusz D. edytował(a) ten post dnia 22.12.10 o godzinie 13:33
Link do wypowiedziLink

konto usunięte

Temat: Import danych od prawej do lewej

sorry - nie widzę różnicy :)
Link do wypowiedziLink
Monika M.

Monika M. PROGRAMISTA VBA,
Excel, Access,
Outlook, Word -
SZKOLENIA

Temat: Import danych od prawej do lewej

Ja widzę różnicę, ale za mało jest informacji nt. danych.
Tzn. interesujące jest, czy ilość tych danych w jednym wierszu jest zawsze stała? Tzn. czy zawsze tworzy się stała liczba kolumn?
Czy pomiędzy danymi może występować brak wartości rozdzielony znakiem separatora (po zaimportowaniu będą puste komórki w wierszu danych)?

Zrobiłabym to tak, że po zaimportowaniu danych uruchamiamy makro, które:
1) odczytuje, ile kolumn i ile wierszy zajmują dane;
2) w pętli dla każdego wiersza danych oblicza różnicę pomiędzy ilością niepustych komórek (przez ILE.NIEPUSTYCH) i maksymalną ilością kolumn danych (jeśli nie występują puste komórki pomiędzy danymi w wierszu danych);
3) jeśli różnica jest różna od zero, to stosuje Offset(0, Roznica) dla odpowiedniego zakresu - wiersza danych (o tą różnicę - dla kolumn).
Link do wypowiedziLink
Janusz K.

Janusz K. Ekspert rozwoju i
przyszłości firm,
struktur, systemów
or...

Temat: Import danych od prawej do lewej

Wpis moderatora

Nie mam możliwości przenoszenia postów między tematami ani - tym bardziej - przenoszenia wątków. Mogę tylko kasować wpisy i cale wątki co czasem muszę, acz z najwyższym obrzydzeniem - czynić.
To dlatego właśnie prosimy (założyciel grupy i ja) o rozważny namysł przed kliknięciem przycisku [Wyślij].

------------------------------

Mam też prośbę, aby tam gdzie mówimy o zbiorach policzalnych (np. komórek w wierszu, kolumnie, obszarze), mówić o ich liczbie, natomiast o ilości czegokolwiek mówić wtedy, kiedy zbiór policzyć się nie daje.
Link do wypowiedziLink

konto usunięte

Temat: Import danych od prawej do lewej

pomyślałbym nad dodaniem odpowiedniej liczby kropek na początku każdego wiersza pliku tekstowego przed rozpoczęciem importu.

Można dane najpierw zainportować do jednego pola (jedna kolumna), dodać kropki (setki sposobów zależnie do narzędzia), wyeksportować i znowu zaimportować tym razem do większej liczby kolumn
Link do wypowiedziLink
Paweł B.

Paweł B. architekt baz danych
/ SQL Developer /BI
Developer

Temat: Import danych od prawej do lewej

Można też po imporcie zapodać wyrównanie kolumn:
Sub przesun()

With Arkusz1

    For RW = 1 To .UsedRange.Rows.Count

        If .Cells(RW, 1).Value <> "" Then

            While .Cells(RW, 5).Value = ""

                .Cells(RW, 1).Insert shift:=xlToRight

            Wend

        End If

    Next

End With

End Sub
Link do wypowiedziLink

Wojciech Gardziński

Wypowiedzi autora zostały ukryte. Pokaż autora
« Wróć do tematów
Odpowiedz

Podobne tematy


Następna dyskusja:

Import danych z pliku sdf




Wyślij zaproszenie do
Anuluj