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

• #23355 slashing senior tag Fboy #23350

  Új Válasz 2014-09-20 20:11:31 #23355

  Ú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

  

  slashing

  senior tag

  válasz Fboy #23350 üzenetére

  találtam a neten egy ilyet...

  Sub test()
  Dim e, s
  With CreateObject("System.Collections.ArrayList")
  For Each e In Range("a2", Range("a" & Rows.Count).End(xlUp)).Value
  If Not IsEmpty(e) Then
  For Each s In Split(e, ";")
  .Add s
  Next
  End If
  Next
  .Sort
  Range("b2").Resize(.Count).Value = _
  Application.Transpose(.ToArray)
  End With
  End Sub

  a pontos vesszőt írd át vesszőre a .Sort sort meg töröld hogy ne rendezze....

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