GoldenLine
Zaloguj się

konto usunięte

Temat: zautymatyzowanie przepisywania

Poszukuję sposobów by usprawnić przygotowywanie raportów w Excelu.

1. Czy znacie jakąś taką formułę która wyłapywała by z tabeli np. co 3 wiersz i obok generowałaby te wartości jedne pod drugimi?

2. Czy znacie taką magiczną formułę która tabelę horyzontalną(pozioma tabela) zamieniałaby na tabelę-listę (pionowa tabela)? czyli np.
jak zamianiac:
a b c d e f
5 6 7 8 9 7

na:
a 5
b 6
c 7
d 8
e 9
f 7

Będę cholernie wdzięczny za wszelkie wskazówki.
Na razie wymyslilem coś z komendą "jeżeli" ale to jest dosyc zagmatwane i wole cos bardziej optymalnego miec. Zapewne visual basic by sie przydal...Wojciech Obłąk edytował(a) ten post dnia 15.09.10 o godzinie 23:50
Link do wypowiedziLink
Paweł S.

Paweł S. .

Temat: zautymatyzowanie przepisywania

Trochę nie ta grupa. Pierwszą sprawę, można załatwić w 5 min. przy użyciu VBA.

Co do drugiej - czy to koniecznie musi być formuła? Kopiuj -> Wklej Specjalnie -> Transpozycja.
Link do wypowiedziLink

konto usunięte

Temat: zautymatyzowanie przepisywania

no wlasnie, tylko ze dawno nie korzystalem z VB i nie wiele pamietam. Rozumiem, ze nie istnieje prosta formuła na to?
Link do wypowiedziLink
Paweł S.

Paweł S. .

Temat: zautymatyzowanie przepisywania

Nie wiem, czy nie istnieje prosta formuła na to, ale prosta pętla po wierszach w VBA naprawdę jest prosta. Jeśli kiedykolwiek korzystałeś z VBA, to szybkie odświeżenie pamięci przyjdzie ci naprawdę bez problemu.
Link do wypowiedziLink
Paweł S.

Paweł S. .

Temat: zautymatyzowanie przepisywania



  For i = 3 to LiczbaWierszyZrodlowych Step 3



    ActiceSheet.Cells(i/3, kolumnadocelowa) = ActiveSheet.Cells(i,kolumnazrodlowa)



  Next
Link do wypowiedziLink
Wojciech Sobala

Wojciech Sobala Redaktor
statystyczny,
biostatystyk,
Instytut Medycyny
Pr...

Temat: zautymatyzowanie przepisywania

Nie ta grupa ale pewnie kilka osób ma doświadczenie w pracy z Excelem.

Pierwszy przypadek:
trzeba dodać kolumnę w której należy wpisać formułę (zakładam, że w kolumnie A),
w pierwszym wierszu wartość 1 (to nie formuła),
od drugiego wiersza =jeżeli(A1<3;A1+1;1),
następnie kopiuj-> wklej specjalnie(wartości),
następnie posortuj dane wg kolumny A (albo włącz filtr).

Drugi przypadek:
to kopiuj->wklej specjalnie (wybierz opcję transpozycja).
Link do wypowiedziLink
« Wróć do tematów
Odpowiedz



Wyślij zaproszenie do
Anuluj