Article View: pl.comp.lang.vbasic
Article #104204Re: Przenoszenie danych z kilku kolum do jednej kolumny
From: Jacek
Date: Thu, 25 Jun 2009 12:16
Date: Thu, 25 Jun 2009 12:16
15 lines
1406 bytes
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.
Technical Details
Message-ID:
<m0tmimyy7e1q.k5gsqkveene5.dlg@40tude.net>Path:
mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!opal.futuro.pl!news.internetia.pl!not-for-mailReferences:
<54ae2a70-4e9f-4ca3-ba05-bba290c6a86c@z34g2000vbl.googlegroups.com> <d1f769ba-28ab-4086-97a5-6cdb1df3c654@z34g2000vbl.googlegroups.com>Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!opal.futuro.pl!news.internetia.pl!not-for-mail From: Jacek <ala@ola.pl> Newsgroups: pl.comp.lang.vbasic Subject: Re: Przenoszenie danych z kilku kolum do jednej kolumny Date: Thu, 25 Jun 2009 14:16:10 +0200 Organization: Netia S.A. Lines: 15 Message-ID: <m0tmimyy7e1q.k5gsqkveene5.dlg@40tude.net> References: <54ae2a70-4e9f-4ca3-ba05-bba290c6a86c@z34g2000vbl.googlegroups.com> <d1f769ba-28ab-4086-97a5-6cdb1df3c654@z34g2000vbl.googlegroups.com> NNTP-Posting-Host: 77-254-87-131.adsl.inetia.pl Mime-Version: 1.0 X-Trace: mx1.internetia.pl 1245932831 9646 77.254.87.131 (25 Jun 2009 12:27:11 GMT) X-Complaints-To: abuse@inetia.pl NNTP-Posting-Date: Thu, 25 Jun 2009 12:27:11 +0000 (UTC) X-Tech-Contact: usenet@internetia.pl X-Antivirus-Status: Clean X-Antivirus: avast! (VPS 090624-0, 2009-06-24), Outbound message User-Agent: 40tude_Dialog/2.0.15.1pl X-Server-Info: http://www.internetia.pl/news/ Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit