MS Excel

Téma: Automatická úprava tabuľky

Zaslal/a m6692 10.11.2015 20:47

Ahojte,
je možné nejako automaticky pretranformovať tabuľku ktorá je v priloženom súbore skuska.xls v hárku1 na tabuľku ako vyzerá v hárku2.

Ďakujem

Příloha: zip

27964_skuska.zip (8kB, staženo 20x)

Zaslat odpověď >

AL(10.11.2015 23:53)#027967

Data preklopíš napr. takto:Sub test()
Dim myArr As Variant, i As Byte, j As Byte, k As Byte
myArr = Sheet1.[B2].CurrentRegion
k = 3
With Sheet2
.Cells.Clear
For i = 1 To UBound(myArr, 1)
For j = 2 To UBound(myArr, 2)
If myArr(i, j) <> "" Then
.Cells(k, 2) = myArr(i, 1)
.Cells(k, 3) = myArr(i, j)
k = k + 1
End If
Next j
Next i
End With
End Sub

formátovanie si už dorobíš, mám za to, že ti ide primárne o tú transformáciu..citovat

m6692(11.11.2015 10:22)#027970

Ahoj

ďakujem funguje to presne ako potrebujem

M.citovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.