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

• #13120 Delila_1 veterán VGYke #13118

  Új Válasz 2012-03-06 15:05:50 #13120

  Ú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 VGYke #13118 üzenetére

  Mese a megjegyzésekben.

  Sub Gyomlal()
  'Az A1:A10 tartomány beírása az "eredeti" tömbbe
  eredeti = Application.Transpose(Range("A1:A10"))
  
  'Egyformák törlése az A oszlopból
  For sor = 10 To 1 Step -1
  If Application.CountIf(Columns(1), Cells(sor, 1)) > 1 Then _
  Cells(sor, 1).Delete Shift:=xlUp
  Next
  
  'A kigyomlált A1:Ax tartomány beírása az "uj" tömbbe
  usor = Range("A1").End(xlDown).Row
  uj = Application.Transpose(Range("A1:A" & usor))
  End Sub

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