Aktywne Wpisy
Milo900 +19
Czesc jestem po wizycie u dietetyka i mam takie xD
W skrocie:
- wiekszosc "jogurtow" typu jogobella, dabio, fantasia to "smieci"
- napoje typu 0 (pepsi max, cola 0) wg tej pani to tez smieci, poniewaz wplyw sztucznych slodzikow nie jest tak w 100% xbadany na wplyw czlowieka + picie tych napojj powoduje chec wiekszego jedzenia tlustych rzeczy lub slodkich*
- mozna jest kebab albo pizze na obiad (ale robioną wlasnorecznie) xDDDDDD
- musi byc jakas aktywnosc fizyczna, nawet chodzenie,.ale minikum iles tysiecy krokow
W skrocie:
- wiekszosc "jogurtow" typu jogobella, dabio, fantasia to "smieci"
- napoje typu 0 (pepsi max, cola 0) wg tej pani to tez smieci, poniewaz wplyw sztucznych slodzikow nie jest tak w 100% xbadany na wplyw czlowieka + picie tych napojj powoduje chec wiekszego jedzenia tlustych rzeczy lub slodkich*
- mozna jest kebab albo pizze na obiad (ale robioną wlasnorecznie) xDDDDDD
- musi byc jakas aktywnosc fizyczna, nawet chodzenie,.ale minikum iles tysiecy krokow
Zgadzasz sie z tą panią ?
- tak 86.7% (2395)
- nie 13.3% (368)
Hylfnur +206
Jako że widok geja czy typa w sukience wzbudza agresję w wykopkach, oraz fakt że wykopki do wykształconych czy oczytanych ludzi nie należą, nałożyły swój ideologiczny simplicity filter i się zesrały bo się w paryżu zainspirowali się ostatnią wieczerzą w jednym ujęciu. Tak samo jak w innych ujęciach inspirowali się innymi słynnymi obrazami ale wykopki o tym nie wiedzą bo widziały jeden obraz w życiu.
Jako że uraziło to wasze uczucia religijne,
Jako że uraziło to wasze uczucia religijne,
źródło: last-supper-south-park
Pobierz
Strasznie wolno działa mi ten kod:
Application.ScreenUpdating = False
Dim fullRange As Range
Set fullRange = Range("A1", Cells(Rows.Count, "A").End(xlUp))
Dim lastRow As Integer
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
Dim r As Integer
For Each a In fullRange
For r = 1 To lastRow - a.Row
If a.Value = a.Offset(r, 0).Value Then
a.Offset(0, 1).Value = a.Offset(0, 1).Value + 1
a.Offset(r, 0).EntireRow.Delete
r = r - 1
End If
Next r
Next a
Application.ScreenUpdating = True
W komórkach A1 do A9000 są jakieś losowe słowa
a kolumna B jest wypełniona jedynkami
Jak jest wierszy 8000 to jeszcze pójdzie w te 50 sekund, ale 9000 excel nie ogarnia.
Można powyższy kod jakoś zoptymalizować?
A działanie polega na usunięciu duplikatów i zliczeniu ile razy się powtórzyły
@scorpio18k: Może wskaż, że chodzi o komórki, nie daj się domyślać.
For Each a In fullRange.Cells
Chodzi szybko
1-sza pętla bierze każde słowo po kolei z góry na dół
2-ga pętla (wewnętrzna) sprawdza czy to słowo gdzieś występuje i jeśli tak to usuwa duplikat
Edit: Zresztą widzę, że kod podlinkowany sortuje dane, więc zakładam, że tak.
A) słowa 5-33 znaków, duża powtarzalność (~200) unikatów:
=POWT(ZNAK(97+LOS.ZAKR(0;23));LOS.ZAKR(5;33))