GoldenLine
Zaloguj się

konto usunięte

Temat: Pomoc w napisaniu formuły/rozwiązaniu problemu

Czy jest możliwość, jakąś formułą, lub szybkim sposobem powielenie symbolu w ilości która jest podana z prawej strony? Chodzi mi o to, żeby dany symbol był w tabeli np 4 razy pod rząd, pod sobą.
Lp Symbol Ilość
1 0011719S 4
2 0011922S 6
3 0012224S 4
4 0100027S 2
5 0100030S 2
6 0100032S 2
7 0100036S 2
8 0100041S 2
9 0100046S 2
10 0100055S 2
11 0100060S 2
12 0100065S 3
13 1043000S 4
14 0100030S 1
Tak to wygląda. Wierszy jest ok 70 więc przepisywanie jest ostatnią rzeczą jaką chcę w tym przypadku zrobić.
Link do wypowiedziLink
Oskar Shon

Oskar Shon Dodatki do Office
www.VBATools.pl

Temat: Pomoc w napisaniu formuły/rozwiązaniu problemu

Profesjonalnie to pętla wsteczna w VBA, ze skokiem -4
A chałupniczo to formułą z indeksem (polecam filmik kolegi pmsocho.

Rozwiązanie w formie dodatku tutaj: http://vbatools.pl/wstawianie-wierszy-i-kolumn/
Link do wypowiedziLink

konto usunięte

Temat: Pomoc w napisaniu formuły/rozwiązaniu problemu

problem w tym, że ilość powtórzeń jest inna dla każdego wiersza (patrz przykład) dla pierwszego jest 4 razy powtórzenie ale dla drugiego już 6, następnie 2 i tak dalej jak w przykładzie
Link do wypowiedziLink
Andy L.

Andy L. ITM, VUB

Temat: Pomoc w napisaniu formuły/rozwiązaniu problemu

rozwiązanie bez VBA:
założenie: dane są od A1 do C1 i w dół
w komórce A2 zostaw 1
w komórce A3: =A2+C2 i skopiuj w dół do A16
w B16 wstaw pusty łańcuch, np. wstawiając " ' " (bez cudzysłowia) tak jak przed tekstem
wstaw 1 w E2 i 2 w E3, zaznacz obie i skopiuj w dół aby uzyskać ciąg 1.2.3.4.....38
wstaw formułę =VLOOKUP(E2,$A$2:$B$16,2) w F2 i skopiuj w dół.

powyższe odnosi się do podanego przez ciebie przykładu. jeżeli ilość wierszy jest inna to zmodyfikuj całość odpowiednio..
liczba 38 to suma z kolumny ILOŚĆ bo tyle będzie wynosiła docelowa ilość wierszy.

trochę kombinacji ale efekt jest taki jak trzeba.
jeśli nie pasuje to szukaj rozwiązań w VBA

edit: literówka :)
acha, i zmień nazwę funkcji odpowiednio do twojej wersji językowej excela.
exampleTen post został edytowany przez Autora dnia 28.05.15 o godzinie 12:18
Link do wypowiedziLink
Oskar Shon

Oskar Shon Dodatki do Office
www.VBATools.pl

Temat: Pomoc w napisaniu formuły/rozwiązaniu problemu

No dobra... i koniec tematu.
Sub Lista_zgodnie_z_ilosciami()

'Dodatki do Office: VBATools.pl

Dim t(): t = Range("b2:c15") 'twoje dane z ilościami

Dim x&, y%, z&, tt()

For x = 1 To UBound(t)

    For y = 1 To t(x, 2)

    z = z + 1

        ReDim Preserve tt(z)

        tt(z) = (t(x, 1))

    Next

Next x

Dim wks As Worksheet: Set wks = ActiveWorkbook.Sheets.Add

wks.Range("a1").Resize(UBound(tt) + 1) = Application.Transpose(tt)

End Sub
Link do wypowiedziLink

konto usunięte

Temat: Pomoc w napisaniu formuły/rozwiązaniu problemu

Andy, wielkie dzięki. Działa jak należy.
Temat do zamknięcia
Link do wypowiedziLink
Andy L.

Andy L. ITM, VUB

Temat: Pomoc w napisaniu formuły/rozwiązaniu problemu

ju ar łelkom :)
Link do wypowiedziLink
« Wróć do tematów
Odpowiedz

Podobne tematy


Następna dyskusja:

Pomoc w napisaniu Makra lub...




Wyślij zaproszenie do
Anuluj