|
||||||||||||||||||||||||||||||||||||||
KORAK 1. Prvo trebamo srediti podatke tj. ukloniti ZAREZ i BLANKO ZNAK iza zareza (između riječi). To ćemo uraditi tako što ćemo selektirati sve podatke A1:A4 pa ići na opciju "Text to column" sa aktivnim parametrima Comma i Space. Sada imamo ovakvu situaciju.
KORAK 2.
Transponiranje podataka iz
tablice u stupac
|
Sub TransposeRowsToOneColumn() Dim i As Long, k As Long, j As Integer Application.ScreenUpdating = False Columns(1).Insert i = 0 k = 1 While Not IsEmpty(Cells(k, 2)) j = 2 While Not IsEmpty(Cells(k, j)) i = i + 1 Cells(i, 1) = Cells(k, j) Cells(k, j).Clear j = j + 1 Wend k = k + 1 Wend Application.ScreenUpdating = True End Sub |
|
Vratite se u Excel Sheet i sa ALT+F8 pokrenite makronaredbu. Sada sve podatke imate u jednom stupcu "A" (jedan ispod drugoga).
Dodatak:
Ako želite imati razmake između podataka bazirane na kraju
redova tada iskoristite ovu makronaredbu.
Option Explicit
Dim RowNbr As Range
Dim RowItem As Range
Dim r As Long
Sub TransposeRowsToColumn()
Application.ScreenUpdating = False
Columns(1).Insert
r = 0
For Each RowNbr In Range("B1", Range("B65536").End(xlUp))
r = r + 1
For Each RowItem In Range(RowNbr, Range("IV" & RowNbr.Row).End(xlToLeft))
r = r + 1
Cells(r, 1) = RowItem
RowItem.Clear
Next RowItem
Next RowNbr
End Sub
Rezultat nakon
pokretanja PRVE MAKRONAREDBE
|
Rezultat nakon
pokretanja DRUGE MAKRONAREDBE
|
KORAK 3.
Postoji više načina prebrojavanja ili izdvajanja UNIQUE
podataka, ako idete preko Advanced Filtera poželjno je imati
naslov stupca podataka.
Za više detalja pogledajte link
Kako prebrojati ili kopirati
UNIQUE data. Ovdje ću prikazati jedan način koji
zadovoljava naše potrebe.
U ćeliju C1 upišite slijedeću formulu =IF(COUNTIF($A$1:$A1;$A1)=1;$A1;"") da bi izdvojili UNIQUE podatke i kopirajte je prema dolje
U ćeliju D1 upišite slijedeću formulu =COUNTIF(A:A;A1) da prebrojite UNIQUE podatke i kopirajte je prema dolje. Obrišite višak koji Vam ne treba.
|
Na prvoj slici ispod postavljene su fixne formule. Dakle samo mijenjamo podatke u stupcu B. Formule su slijedeće:
stupac C: =DEC2BIN(B3;8)
kopirajte prema dolje
stupac D: =MID($C3;1;1)
kopirajte prema dolje
stupac E: =MID($C3;2;1)
kopirajte prema dolje
stupac F: =MID($C3;3;1)
kopirajte prema dolje
stupac G: =MID($C3;4;1)
kopirajte prema dolje
...
ćelije N1:N8 =$B$3
ćelije N9:N16 =$B$4
...
Ostale formule u stupcu O pogledajte na slici
Primjer na slici ispod odrađen je sa VBA makronaredbom. Izmjenom range u makronaredbi možete kombinirati željene podatke kao rezultat
VBA makronaredba za primjer na slici iznad. Ovaj VBA kod kopirajte u Sheet vaše Workbook
Sub Transpose()
Range("$B$2:$K$9").Select
'izvorni podaci za kopiranje
Selection.Copy
Range("N1").Select 'prva
ćelije gdje kopiramo
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone,
SkipBlanks:=False _
, Transpose:=True
End Sub
Osnove naredbe TRANSPOSE u Excelu pogledajte na linku.
Također pogledajte tutorijale vezane za ovu temu
-
Zaokretanje ili
transponiranje tablice u Excelu
-
Kako zaokrenuti ili rotirati za 90° brojeve iz
stupca u redove po grupama od po pet brojeva
-
Rotiranje tablice u Wordu za
90°
-
Automatic group and transpose
data to another sheet
- Transpose podataka iz više redova u okomiti raspored u stupcu
|
Copyright 2008 - 2021 - IvanC - ic.ims.hr