IZBORNIK HOME FORUM ACCESS 2003 EXCEL 2003 WORD 2003  .
   
   
HOME
FORUM Win Tips&Tricks
   
KAKO INSTALIRATI
WINDOWS XP ?
Kako instalirati Win XP sa USB STICKA
Kako instalirati WINDOWS 7 ?
Naučite za 15 minuta raditi u Windows XP
Naučite Internet Explorer i Outlook Express
za 15 minuta
Kako kreirati BOOT CD za instalaciju Win95
   
MS OFFICE 2003
MS OFFICE 2007
   
   
HOME NETWORK
tutorijal za mreže
Network Windows 7 - XP
   
ZANIMLJIVI LINKOVI
BROJEVNI SUSTAVI
(DEC, OKT, BIN, HEX )
CMD - Command Prompt
CISCO - CCNA tutoriali
VLSM and SUBNETTING
   
Tutorijali za phpBB forum
JAVASCRIPT
VISUAL BASIC 6.0
AUTOCAD 2007
 



MICROSOFT EXCEL 2007- kako premjestiti više stupaca u jedan stupac, how to move multiple columns to one column vith VBA

Kako prebaciti više stupaca u jedan stupac




Premještanje ili prebacivanje više stupaca u jedan stupac

U ovom primjeru imamo situaciju u kojoj želimo više stupaca sa njihovim nazivima premjestiti u jedan stupac da nam podaci budu jedan ispod drugoga.

Podaci nam se nalaze u nekakvom rasponu (može biti i par stotina redova). Mi želimo sve stupce premjestiti u jedan stupac A.

SITUACIJA ŽELIMO OVAKAV RASPORED

Ovaj zadatak možemo riješiti na dva načina.

- pomoću formule
- pomoću VBA Makronaredbe

POMOĆU FORMULE

U stupac F upišimo slijedeću formulu

=INDEX($A$2:$E$16;MOD(ROWS(F$2:F2)-1;ROWS($A$2:$E$16))+1;INT((ROWS(F$2:F2)-1)/ROWS($A$2:$E$16))+1)

Kopirajmo formulu prema dolje do željenog reda da nam se obuhvate svi podaci.. Sada imamo sve podatke iz stupaca A:E u jednom stupcu F. Selektirajmo cijeli stupac F i Copy. Kliknimo desnom tipkom miša na ćeliju G2 ili G1 pa Paste Special i odaberimo opciju Value (Vrijednosti). Sada obrišimo sve stupce A:F. Ostaje nam stupac A (bivši G) i podaci u njemu.

POMOĆU VBA makronaredbe

PAŽNJA! Koristeći makronaredbu nemate mogućnost UNDO (povratka), zato sve radite na kopiji datoteke da bi ste bili sigurni je li ovo ono što želite.

Ako želimo na brzinu odraditi premještanje  svih stupaca iz ovog primjera, to možemo odraditi pomoću VBA Macro-a (makronaredbe). Za početak potrebno je dozvoliti izvršavanja makronaredbi u Excelu.
Ako ne znate kako, pogledajte link  kako se vrši dozvola izvršavanja makronaredbi.
Pritisnite kombinaciju tipki ALT+F11 da otvorite VBE za Excel. Insertirajte novi Module1 (ako ne znate kako pogledajte link Kako insertirati Module u VBE za Excel). Selektirajte Module1 i u desnom dijelu VBE u prozor "Window Code" zalijepite ovu makronaredbu ispod




Sub JedanStupac()

Dim Last_Row, Last_Row_A As Long
Dim Last_Col As Integer
Dim I, J As Integer
Last_Row_A = Range("A" & Rows.Count).End(xlUp).Row
Last_Col = Cells(1, Columns.Count).End(xlToLeft).Column

For J = 2 To Last_Col
Last_Row = Cells(Rows.Count, J).End(xlUp).Row
Range(Cells(1, J), Cells(Last_Row, J)).Cut
Cells(Last_Row_A + 1, 1).Select
'ovaj bold broj 1 označava da će podaci biti odmah jedan ispod drugoga
ActiveSheet.Paste
Last_Row_A = Range("A" & Rows.Count).End(xlUp).Row
Next J
Cells(1, 1).Select
End Sub

Vratite se na Sheet na kojem trebate prebaciti podatke i pritisnite ALT+F8, selektirajte makronaredbu "JedanStupac" pa kliknite na RUN.

Sada su vam se svi podaci premjestili u stupac A. Vodite računa da će se ovom makronaredbom premjestiti svi stupci u kojima ima podataka. U kliko u jednom stupcu postoje prazne ćelije i opet se nastavljaju neki podaci, makronaredba neće prebaciti taj nastavak. Dakle makronaredba prebacuje samo kontinuirani slijed stupaca u kojima se nalaze podaci osobito ako se neki podatak nalazi u prvoj ćeliji slijedećeg stupca. Da bi razgraničili prebacivanje samo određenih stupaca umetnite jedan prazan stupac između vaših ostalih podataka







©- 2006 - 2021 - IvanC  - Sva prava pridržana.  ic.ims.hr