Re: Przenoszenie danych z kilku kolum do jednej kolumny

Article View: pl.comp.lang.vbasic

Article #104210

Back to pl.comp.lang.vbasic Previous Next

#104210

From: 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

Technical Details

Message-ID: <cztg807mbo18.1g4tqlks2uyjl$.dlg@40tude.net>

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!opal.futuro.pl!news.internetia.pl!not-for-mail

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> <5dbed63e-6078-4d70-ad57-ac0f863a3a6c@q37g2000vbi.googlegroups.com> <rnij4y8o8gfx$.s4aiscn7vj6e.dlg@40tude.net>

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: Fri, 26 Jun 2009 04:24:32 +0200
Organization: Netia S.A.
Lines: 16
Message-ID: <cztg807mbo18.1g4tqlks2uyjl$.dlg@40tude.net>
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> <5dbed63e-6078-4d70-ad57-ac0f863a3a6c@q37g2000vbi.googlegroups.com> <rnij4y8o8gfx$.s4aiscn7vj6e.dlg@40tude.net>
NNTP-Posting-Host: 77-254-87-131.adsl.inetia.pl
Mime-Version: 1.0
X-Trace: mx1.internetia.pl 1245983735 30982 77.254.87.131 (26 Jun 2009 02:35:35 GMT)
X-Complaints-To: abuse@inetia.pl
NNTP-Posting-Date: Fri, 26 Jun 2009 02:35:35 +0000 (UTC)
X-Tech-Contact: usenet@internetia.pl
X-Antivirus-Status: Clean
X-Antivirus: avast! (VPS 090625-0, 2009-06-25), 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: 7bit

Reply to Parent Message