Article View: pl.comp.lang.vbasic
Article #104208Re: Przenoszenie danych z kilku kolum do jednej kolumny
From: ThomasX
Date: Thu, 25 Jun 2009 19:51
Date: Thu, 25 Jun 2009 19:51
27 lines
2343 bytes
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
Technical Details
Message-ID:
<5dbed63e-6078-4d70-ad57-ac0f863a3a6c@q37g2000vbi.googlegroups.com>Path:
mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!news.onet.pl!news.nask.pl!news.nask.org.pl!news.unit0.net!feeder.news-service.com!postnews.google.com!q37g2000vbi.googlegroups.com!not-for-mailReferences:
<54ae2a70-4e9f-4ca3-ba05-bba290c6a86c@z34g2000vbl.googlegroups.com> <d1f769ba-28ab-4086-97a5-6cdb1df3c654@z34g2000vbl.googlegroups.com> <h20a3h$7e1$1@nemesis.news.neostrada.pl> <16mprzjmkm4jd$.1bvioi9yxusyb$.dlg@40tude.net>Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!news.onet.pl!news.nask.pl!news.nask.org.pl!news.unit0.net!feeder.news-service.com!postnews.google.com!q37g2000vbi.googlegroups.com!not-for-mail From: ThomasX <matuss@o2.pl> Newsgroups: pl.comp.lang.vbasic Subject: Re: Przenoszenie danych z kilku kolum do jednej kolumny Date: Thu, 25 Jun 2009 12:51:03 -0700 (PDT) Organization: http://groups.google.com Lines: 27 Message-ID: <5dbed63e-6078-4d70-ad57-ac0f863a3a6c@q37g2000vbi.googlegroups.com> References: <54ae2a70-4e9f-4ca3-ba05-bba290c6a86c@z34g2000vbl.googlegroups.com> <d1f769ba-28ab-4086-97a5-6cdb1df3c654@z34g2000vbl.googlegroups.com> <h20a3h$7e1$1@nemesis.news.neostrada.pl> <16mprzjmkm4jd$.1bvioi9yxusyb$.dlg@40tude.net> NNTP-Posting-Host: 85.222.114.212 Mime-Version: 1.0 X-Trace: posting.google.com 1245959463 18335 127.0.0.1 (25 Jun 2009 19:51:03 GMT) X-Complaints-To: groups-abuse@google.com NNTP-Posting-Date: Thu, 25 Jun 2009 19:51:03 +0000 (UTC) Complaints-To: groups-abuse@google.com Injection-Info: q37g2000vbi.googlegroups.com; posting-host=85.222.114.212; posting-account=yRyhpwoAAAAjsbOpXtrCrjlyHZmsJx14 User-Agent: G2/1.0 X-HTTP-UserAgent: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.1; WOW64; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729; Media Center PC 6.0; InfoPath.2),gzip(gfe),gzip(gfe) Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 7bit