Új hozzászólás Aktív témák

• #22454 Delila_1 veterán mdk01 #22453

  Új Válasz 2014-07-16 06:29:55 #22454

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz mdk01 #22453 üzenetére

  Ehhez nem kell felhasználói függvény.

  Kijelölöd a tartományt, Adatok | Szövegből oszlopok menü. Tagolt, határoló jel a kötőjel. Ez szétbontja az adatokat az A:D tartományba. A D oszlopban lesz a két utolsó számjegy, alsó kötőjellel elválasztva.

  Kijelölöd a D oszlop adatait, újra Szövegből oszlopok, itt a tagoló jel az alsó kötőjel.

  Ennyi, csupán néhány kattintás.

  Rögzítéssel makró hozzá – kicsit javítva:

  Sub Rögzítés1()
  Dim usor As Long
  usor = Range("A" & Rows.Count).End(xlUp).Row
  Range("A1:A" & usor).TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
  TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
  Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
  :="-", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1)), _
  TrailingMinusNumbers:=True
  Range("D1:D" & usor).TextToColumns Destination:=Range("D1"), DataType:=xlDelimited, _
  TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
  Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
  :="_", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
  End Sub

Új hozzászólás Aktív témák