Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 63206 Skopiuj do schowka Oddzielenie tekstu od liczb
Autor Wiadomość
Sultan1453 
Exceloholic


Posty: 118
Wysłany: 17-11-2018, 17:57   Oddzielenie tekstu od liczb

Cześć!

Czy znacie jakiś sposób (najlepiej - najprostszy sposób) żeby oddzielić tekst od liczb?

100GBP -> 100 GBP
1UAH -> 1 UAH
600 g -> 600 g
10.35 g -> 10.35 g

Plik w załączniku.
dzięki

Przykład - PQ.xlsx
Pobierz Plik ściągnięto 25 raz(y) 9.09 KB

ID posta: 356495 Skopiuj do schowka
 
 
bodek 


Pomógł: 925 razy
Posty: 2605
Wysłany: 17-11-2018, 19:33   

To bardzo skomplikowany problem, ale
wpisz w D4 100, Enter
wciśnij Ctrl + E
Ciesz się życiem :-P i testuj możliwości, uwarunkowania itd
_________________
Szkolenia z Excela, Power Query, Power Pivot, wizualizacje danych w Excelu
ID posta: 356502 Skopiuj do schowka
 
 
kulasart
[Usunięty]

Wysłany: 17-11-2018, 20:10   

bodek, ale że jak? Co to? jak to działa? W skrócie: WOW!
ID posta: 356505 Skopiuj do schowka
 
 
Cezary Czajka 
Excel Expert


Pomógł: 129 razy
Posty: 632
Wysłany: 17-11-2018, 20:55   

Nie mam pytań :beer
Jak to działa? Ctrl+E wywołuje funkcję "Wypełniania błyskawicznego" (oczywiście z pewnymi ograniczeniami)
_________________
W sumie - jest git
ID posta: 356509 Skopiuj do schowka
 
 
umiejead 
Excel Expert


Pomógł: 228 razy
Posty: 1231
Wysłany: 18-11-2018, 01:38   

Działa to "intuicyjnie" (heh - nad tą "intuicją" pracowało pewnie kilka(naście) osób przez co najmniej rok... :mrgreen: ).

Tu masz "klasyczny" sposób:
Kod:
Option Explicit

Private Sub CommandButton1_Click()
Dim i As Integer, j As Integer, d As Integer, str As String
Dim k As Integer, Cyfry As String

On Error Resume Next

d = Cells(Rows.Count, "C").End(xlUp).Row

For i = 4 To d
    str = Cells(i, 3).Value
    For j = 1 To Len(str)
        If IsNumeric(Mid(str, j, 1)) Or Mid(str, j, 1) = "." _
                Or Mid(str, j, 1) = "," Then
            Cyfry = Cyfry & Mid(str, j, 1)
        Else
            k = j
            Exit For
        End If
    Next j
    Cells(i, 8).Value = Cyfry
    Cells(i, 9).Value = Right(str, Len(str) - k + 1)
    Cyfry = ""
Next i

End Sub


Kopia Przykład - PQ.xlsm
Pobierz Plik ściągnięto 13 raz(y) 21.31 KB

_________________
.
Jak poprawnie opisać problem: http://www.excelforum.pl/...ika-vt59262.htm
I dbajmy - proszę - o poprawną polszczyznę.
ID posta: 356522 Skopiuj do schowka
 
 
Bill Szysz 
Excel Expert


Pomógł: 773 razy
Posty: 3240
Wysłany: 19-11-2018, 18:22   

Jeśli to jednorazowe działanie to bodka propozycja (czyli wypełnianie błyskawiczne) powinno się spisać.
Jeśli koniecznie chcesz w PQ to jest wiele na to sposobów.... nie wdając się w szczegóły powiem tylko że wszystko zależy od danych. Jeśli Twoje dane wyglądają zawsze tak jak w przykładzie (czyli liczby najpierw a tekst (litery) po nich ) to npponiższy sposób spokojnie sobie z tym poradzi.
Kod:
let
    Source = Excel.CurrentWorkbook(){[Name="Table4"]}[Content],
    #"Changed Type" = Table.TransformColumnTypes(Source,{{"Quantity", type text}}),
    Qty = Table.AddColumn(#"Changed Type", "Qty", each List.First(Splitter.SplitTextByAnyDelimiter({"A".."Z", "a".."z", " "}) ([Quantity]))),
    Measure = Table.AddColumn(Qty, "Measure", each Text.Trim(Text.AfterDelimiter([Quantity], [Qty])), type text),
    #"Removed Columns" = Table.RemoveColumns(Measure,{"Quantity"}),
    #"Changed Type with Locale" = Table.TransformColumnTypes(#"Removed Columns", {{"Qty", type number}}, "en-US")
in
    #"Changed Type with Locale"
_________________
Szkolenia z Power Query!!!

Pozdrawiam, były szbill62 aktualnie Bill Szysz
ID posta: 356595 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe