Przenoszenie danych z kilku kolum do jednej kolumny

Thread View: pl.comp.lang.vbasic

13 messages

[T] Back to Threads [V] Tree View [G] Group Articles

13 total messages Started by ThomasX Thu, 25 Jun 2009 09:09

#104202

Author: ThomasX
Date: Thu, 25 Jun 2009 09:09

6 lines
1418 bytes

Witam

Mecze sie z  napiasniem prostego makra, ktorego zadaniem będzie
przenoszenie danych z komorek znajdujacych sie w sasiednich kolumnach
jednego wiersza do jednej kolumy (np. w innym arkuszu). Czyli dane
powinny znajdowac sie pod soba.

Re: Przenoszenie danych z kilku kolum do jednej kolumny

#104203

Author: ThomasX
Date: Thu, 25 Jun 2009 09:31

2 lines
1413 bytes

Zpomnialem dodac - mowie o VB w Excelu :)

Re: Przenoszenie danych z kilku kolum do jednej kolumny

#104204

Author: Jacek
Date: Thu, 25 Jun 2009 12:16

15 lines
1406 bytes

Dnia Thu, 25 Jun 2009 02:31:27 -0700 (PDT), ThomasX napisał(a):

> Zpomnialem dodac - mowie o VB w Excelu :)

Zapusc petle i niech zrobi.
x=1
y=1
while sheets("a").cells(x,1)<>""
sheets("b").cells(y,1)=sheets("a").cells(x,1)
sheets("b").cells(y+1,1)=sheets("a").cells(x,2)
sheets("b").cells(y+2,1)=sheets("a").cells(x,3)
y=y+1
wend

cos w tym stylu.

Re: Przenoszenie danych z kilku kolum do jednej kolumny

#104205

Author: Jacek
Date: Thu, 25 Jun 2009 12:18

1 lines
1097 bytes

y=y+3

Re: Przenoszenie danych z kilku kolum do jednej kolumny

#104206

Author: Rafal Kwaczala
Date: Thu, 25 Jun 2009 16:44

13 lines
1474 bytes

Uzytkownik "ThomasX" <matuss@o2.pl> napisal w wiadomosci 
news:d1f769ba-28ab-4086-97a5-6cdb1df3c654@z34g2000vbl.googlegroups.com...
>
> Zpomnialem dodac - mowie o VB w Excelu :)
>

...a moze wystarczy zaznaczyc odpowiednie wiersze, Ctrl+C a nastepnie PPM, 
opcja "Wklej specjalnie...", zaznaczyc "Transpozycja" i OK.

-- 
Pozdrawiam
Rafal Kwaczala

Re: Przenoszenie danych z kilku kolum do jednej kolumny

#104207

Author: Jacek
Date: Thu, 25 Jun 2009 17:00

1 lines
1191 bytes

Troche nie tak, jak chcial autor, poza tym chcial w VBA.

Re: Przenoszenie danych z kilku kolum do jednej kolumny

#104208

Author: ThomasX
Date: Thu, 25 Jun 2009 19:51

27 lines
2343 bytes

Transpozycja przez wklejanie specjalne odpada bo wierszy do
przeniesienia sa setki:) Pozostaje tutaj jedynie VBA.

Zastosowalem sie do Twojej wskazowki, ale nie dziala tak jak powinno.
Kolumna w Arkusz2 zapelniana jest trzema wierszami przeniesionymi z
trzech kolumn Arkusz1 do samego konca kolumny, az wyrzucany jest blad.
Zmienilem w kodzie na : x=x+1, ale wtedy pokazuje tylko wiersze
przeniesione z pierwszego wiersza Arkusz1 a chcialbym, aby pobieral w
ten sam sposob kolejne wiersze z Arkusz1 i wstawial do Arkusz2.
Ponizej kod, ktory stosowalem:

Sub kol()

Dim x, y As Integer

x = 1
y = 1

While Sheets("Arkusz1").Cells(x, 1).Value <> ""
Sheets("Arkusz2").Cells(y, 1) = Sheets("Arkusz1").Cells(x, 1)
Sheets("Arkusz2").Cells(y + 1, 1) = Sheets("Arkusz1").Cells(x, 2)
Sheets("Arkusz2").Cells(y + 2, 1) = Sheets("Arkusz1").Cells(x, 3)

x = x + 1
Wend

End Sub

Re: Przenoszenie danych z kilku kolum do jednej kolumny

#104209

Author: Jacek
Date: Fri, 26 Jun 2009 02:07

1 lines
1254 bytes

Ja ci tylko nakreslilem sposob. To nie jest gotowiec...

Re: Przenoszenie danych z kilku kolum do jednej kolumny

#104214

Author: Jacek
Date: Fri, 26 Jun 2009 02:12

14 lines
1586 bytes

To jest kod dzialajacy dla 3 kolumn:

Sub kol()
Dim x, y As Integer
x = 1
y = 1
While Sheets("Arkusz1").Cells(x, 1).Value <> ""
    Sheets("Arkusz2").Cells(y, 1) = Sheets("Arkusz1").Cells(x, 1)
    Sheets("Arkusz2").Cells(y + 1, 1) = Sheets("Arkusz1").Cells(x, 2)
    Sheets("Arkusz2").Cells(y + 2, 1) = Sheets("Arkusz1").Cells(x, 3)
    x = x + 1
    y = y + 3
Wend
End Sub

Re: Przenoszenie danych z kilku kolum do jednej kolumny

#104210

Author: Jacek
Date: Fri, 26 Jun 2009 02:24

16 lines
1573 bytes

No to masz gotowca:

Sub kol()
Dim x, y As Integer
x = 1
y = 0
While Sheets("Arkusz1").Cells(x, 1).Value <> ""
    z = 1
    While Sheets("Arkusz1").Cells(x, z) <> ""
        Sheets("Arkusz2").Cells(y + z, 1) = Sheets("Arkusz1").Cells(x, z)
        z = z + 1
    Wend
    x = x + 1
    y = y + z - 1
Wend
End Sub

Re: Przenoszenie danych z kilku kolum do jednej kolumny

#104211

Author: ThomasX
Date: Fri, 26 Jun 2009 06:38

4 lines
1608 bytes

teraz jest super :)

Wielkie Dziękuję!
... i pozdrowionka

Re: Przenoszenie danych z kilku kolum do jednej kolumny

#104212

Author: Grzegorz Chomik
Date: Fri, 29 Jan 2021 10:18

19 lines
2248 bytes

piątek, 26 czerwca 2009 o 08:38:48 UTC+2 ThomasX napisał(a):
> teraz jest super :)
> Wielkie Dziękuję!
> ... i pozdrowionka

A jak by to wyglądało jakbyśmy chcieli zachować np dane z pierwsej kolumny ?
mamy np w jednym wierszu w[pisanene że 
Krzysiek pobrał piłke, wiadro i nożyczki 
Adam pobrał konwke i szpadel 

i chciałbym mieć w wyniku 
Krzysiek piłke 
Krzysiek wiadro
Krzysiek niżyczki
Adam konewkę
Adam szpadel

Ma nadzieję ze da się zrozumieć to co napisałem 
dzięki

Re: Przenoszenie danych z kilku kolum do jednej kolumny

#104213

Author: Grzegorz Chomik
Date: Wed, 10 Feb 2021 09:00

2 lines
1908 bytes

pytanie nieaktualne 
poradziłem sobie z tym przy użyciu Power Query

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads