makravba.pl
login:
hasło:
 
  *Rejestracja *Zapomniane hasło
 Dziś jest czwartek, 14 listopada 2019 roku.
Ustaw jako stronę startową Ulubione Napisz
PowrótPowrót do serwisu  RegulaminRegulamin rssRSS

  tytuł wątku:
Wątki dyskusji

Sorting data in rows


otwartyotwarty rozpoczął: dolik22 postów: 2



napisał: Trebor
postów: 1202


umieszczony:
5 lipca 2019
05:27

  
Spróbuj takie makro:
Sub imiona()
Dim wiersz As Long, komorka As String
For wiersz = 2 To Cells(Rows.Count, 2).End(xlUp).Row
komorka = Replace(Cells(wiersz, 2), " ", "") 'usuwam spacje
    komorka = Join(sortuj(Split(komorka, ",")), ",") 'sortuje i łączę
komorka = Replace(komorka, ",", ", ") 'dopisuję spacje
    Cells(wiersz, 2) = komorka
Next wiersz


End Sub


Function sortuj(lista)
Dim i As Long, j As Long, tekst As String
For i = 0 To UBound(lista) - 1
    For j = i To UBound(lista)
        If StrComp(lista(i), lista(j), vbTextCompare) = 1 Then
            tekst = lista(i)
                lista(i) = lista(j)
            lista(j) = tekst
        End If
    Next j
 Next i
sortuj = lista
End Function

Reklama
napisał: dolik22
postów: 8


umieszczony:
4 lipca 2019
11:49

edytowany:
4 lipca 2019
11:53

  
nazwa pliku rozmiar
test.xlsx 8.28 kB

Cześć,
mam problem z sortowaniem danych w moim arkuszu. Chodzi o to, że mam komórki w których znajdują się dane (imiona oddzielone przecinkiem) i chciałbym żeby każda komórka była posortowana alfabetycznie, ale niestety standardowe sortowanie nic nie daje bo wtedy sortuje caly arkusz a nie poszczegolne komorki. Jeśli ktoś ma jakiś pomysł albo przykład makra to byłbym wdzięczny. Wrzucam testowy plik, ktory pokazuje jak wyglądaja moje dane.


<-wstecz  1  dalej->
wszystkich stron: 1


Sortuj posty: z